Macros IF THEN appliqué à une colonne

Version imprimable

13/12/2011, 09h37
nicobezyeh

1 pièce(s) jointe(s)

Macros IF THEN appliqué à une colonne

Bonjour,

Je suis débutant en langage VBA, je souhaiterais faire une macro qui en fonction d'un mot écrit dans la colonne E, m'écrive un mot dans les colonnes C et D.

Exemple : (fichier joint)

Sur toute ma colonne E : si j'écris dans une des cellules de la colonne E le mot "TEST" alors le mot "TOTO" vient s'inscrire dans les colonnes C et D sinon il laisse le contenu original

Can you help me ?:roll:

Tu peux faire comme ça par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub main()
    Dim lastRow As Long
    Dim iRow As Long
 
    'Recherche de la dernière ligne non vide pour la colonne E
    'On part d'une cellule très basse et on fait l'équivalent d'un Ctrl+flèche haut
    lastRow = Feuil1.Range("E65536").End(xlUp).Row
 
    For iRow = 2 To lastRow 'Pour chaque ligne entre 2 et dernière ligne
        If Feuil1.Cells(iRow, "E").Value = "TEST" Then 'Si la cellule de cette ligne en colonne E vaut TEST
            Feuil1.Cells(iRow, "C").Value = "TOTO" 'On met TOTO dans la cellule de cette ligne en colonne C
            Feuil1.Cells(iRow, "D").Value = "TOTO" 'Idem
        End If
    Next iRow
End Sub

13/12/2011, 09h52
nicobezyeh

Yes, ça fonctionne merci,

Je vais essayé d'adapter ça à mon problème maintenant, je ne comprend pas le role et essayer de comprendre le principe des lastrow et irow

Merci bcp:ccool:
13/12/2011, 09h56
ZebreLoup

J'ai rajouté des commentaires dans le code proposé
13/12/2011, 10h23
nicobezyeh

Yes, super, Merci beaucoup.