question c.n

[tactic6]

Salut tout le monde
pour appeler une feuille dans le classeur ou on travail c'est Sheets("Feuil1")
mais pour en appeller une dans un autre dossier comment fait-on ?

 

[tactic6]

Re : question c.n

je ne dois pas y mettre un truc du genre:
for x = 12 to 52
...
...
next x
???
pour bien lui faire comprendre à partir d'où chercher l'oubli ??

 

[tactic6]

Re : question c.n

tu viens juste de me repondre
desolé

 

[tactic6]

Re : question c.n

allo Houston j'ai un probleme

dans les cellule de K j'ai une formule donc elle n'est pas "physiquement" vide
comment lui faire comprendre que c'est une valeur compris entre "0;1;2 ou 3" que doit se faire le test ?

 

[fred65200]

Re : question c.n

re

If Cells(x, "J")[B].Text[/B] = "" And Cells(x, "K")[B].Text[/B] = "" Then

ou

If not Cells(x, "J").text like "#" And Not Cells(x, "K").text like "#" Then

si tu veux qu'il y ait une valeur numérique dans les cellules.

Ajoute un Exit For pour sortir de la boucle dès que la condition n'est pas remplie pour ne pas avoir n Msgbox.

@+

 

[tactic6]

Re : question c.n

c'est pas le résultat escompté
la macro me demande de remplir les cellules J et K du reste de la feuille alors que sur la première ligne la cellule K est restée volontairement vide et la J est remplie pour le test
j'aurais aimé que le message s'affiche pour K vide si J plein Uniquement
Si J vide alors K est vide aussi
pour te faire comprendre J est un pris total HT et K est le taux de TVA correspondant
dernièrement j'ai émis une facture et oublié de mettre quelques taux de TVA c'est pour cela que je voulais créer ce controle

 

[fred65200]

Re : question c.n

re

If [COLOR=Red]Not[/COLOR] Cells(x, "J")[B].Text[/B] = "" And Cells(x, "K")[B].Text[/B] = "" Then

@+

 

[tactic6]

Re : question c.n

re
j'avais utlisé

If not Cells(x, "J").text like "#" And Not Cells(x, "K").text like "#" Then

je viens d'essayer

If Not Cells(x, "J").Text = "" And Cells(x, "K").Text = "" Then

le résultat est identique
il suffit que la cellule J soit remplie pour que le test passe sans que K le soit

et controle du reste de la feuille

 

[fred65200]

Re : question c.n

re

If Not Cells(x, "J").Text = "" then
if  Cells(x, "K").Text = "" Then msgbox "la cellule " & cells(x,"K").address & " est vide.": Exit For 'si tu ne veux pas continuer les tests .
end if

@+

 

[tactic6]

Re : question c.n

toujours pareil
apparemment pas evident

 

[fred65200]

Re : question c.n

re

peux tu "uploader" un classeur Zippé sans donnée confidentielle. J'ai l'impression qu'on n'avance pas.

@+

 

[tactic6]

Re : question c.n

pour que ça soit un minimum fonctionnel il pese 120 Ko
(d'origine il fait 1.62 Mo)

si je diminue encore ça n'aura plus rien a voir

 

[tactic6]

Re : question c.n

enfin reussi a zipper un max mais bon ...

 

[fred65200]

Re : question c.n

re

modifie ligne 32 du module 6

cells(15.52,"j")

ça ne veut rien dire pour en VBA

For i = 15 To 52
  If F1.Cells(i, "J").Value <> "" And _
      F1.Cells(i, "K").Value = "" Then _
         MsgBox "la cellule " & Cells(i, "K").Address & " est vide." ': Exit For 'si tu ne veux pas continuer les tests .
Next i

@+

 

[tactic6]

Re : question c.n

re
ouais t'as raison
mais par contre impossible de modifier avant la fin de la macro
faudrait avoir le choix lors du message d'erreur
en plus il n'y a pas moyen d'arreter le test si la cellule J est vide ?

 

[fred65200]

Re : question c.n

re

j'ai remodifié le code quelques minute après l'envoi, mais trop tard, reteste avec le dernier.