question c.n

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #16

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 ??

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #17

Re : question c.n

tu viens juste de me repondre
desolé

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #18

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 ?

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Janvier 2008

• #19

Re : question c.n

re

Code:

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

ou

Code:

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.

@+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #20

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

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Janvier 2008

• #21

Re : question c.n

re

Code:

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

@+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #22

Re : question c.n

re
j'avais utlisé

Code:

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

je viens d'essayer

Code:

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

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Janvier 2008

• #23

Re : question c.n

re

Code:

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

@+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #24

Re : question c.n

toujours pareil
apparemment pas evident

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Janvier 2008

• #25

Re : question c.n

re

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

@+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #26

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 😕

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #27

Re : question c.n

enfin reussi a zipper un max mais bon ...

 

Pièces jointes

• tactic6.zip

  43.6 KB · Affichages: 38
• tactic6.zip

  43.6 KB · Affichages: 37
• tactic6.zip

  43.6 KB · Affichages: 36

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Janvier 2008

• #28

Re : question c.n

re

modifie ligne 32 du module 6

Code:

cells(15.52,"j")

ça ne veut rien dire pour en VBA

Code:

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

@+

 

Dernière édition: 23 Janvier 2008

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 23 Janvier 2008

• #29

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 ?

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Janvier 2008

• #30

Re : question c.n

re

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

 

Vote positif 0 Vote négatif