[XL-2010] Macros IF THEN appliqué à une colonne [Résolu]

[nicobezyeh]

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 ?

[ZebreLoup]

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

[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

[ZebreLoup]

J'ai rajouté des commentaires dans le code proposé

[nicobezyeh]

Yes, super, Merci beaucoup.