Aide pour macro avec condition

S

Softmama

XLDnaute Accro

• 15 Décembre 2010

• #2

Re : Aide pour macro avec condition

Bonjour,

Inutile d'utiliser VBA pour résoudre ton problème. Cet exemple de formule convient :

Code:

=SI(DROITE(GAUCHE(A1;3);1)*1=1;"OK";"A corriger")

à taper en B1 et à recopier vers le bas

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 15 Décembre 2010

• #3

Re : Aide pour macro avec condition

Re,

Mais bon si tu veux vraiment le faire par VBA, ceci devrait t'aider :

Code:

For Each c in Range("A1:A" & Range("A6536").End(xlUp).Row)
    c(1,2)= iIf( Mid(c, 3, 1)= "1", "Ok", "A Corriger")
Next c

 

Vote positif 0 Vote négatif

B

bsuge

Guest

• 16 Décembre 2010

• #4

Re : Aide pour macro avec condition

Merci pour cette réponse rapide.
En fait, je souhaite passer par une macro parce que d'autres personnes vont être amenées à traiter ces fichiers et donc je souhaites que en un clic le fichier soit mis en forme et les lignes à corriger affichées.

 

Vote positif 0 Vote négatif

B

bsuge

Guest

• 16 Décembre 2010

• #5

Re : Aide pour macro avec condition

Merci beaucoup Softmama pour ton aide, je vais tester ça demain au boulot.
bonne soirée !!!

 

Vote positif 0 Vote négatif