Aide pour macro avec condition

[bsuge]

Bonjour,

Je suis un gros noob sous VBA et je cherche a perfectionner une macro pour usage professionnel
En fait , j'ai un tableau avec en colonne A une liste de nombre sur 6 positions.
Je souhaites tester ces chiffres pour savoir on trouve le chiffre 1 en 3eme position dans chaque cellule. Si c'est le cas "ok" doit être afficher dans la colonne B sinon a corriger.

Voici un exemple:

201010 ok
200065 A CORRIGER


Merci d'avance pour votre aide

 

[Softmama]

Re : Aide pour macro avec condition

Bonjour,

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

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

à taper en B1 et à recopier vers le bas

 

[Softmama]

Re : Aide pour macro avec condition

Re,

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

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

 

[bsuge]

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.

 

[bsuge]

Re : Aide pour macro avec condition

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