Autres Insérer texte en fonction d'infos d'une autre colonne

[alain18]

Bonsoir,
En VBA, je souhaiterais écrire quelques mots dans les cellules d'une colonne en fonction de résultats obtenus dans une autre colonne.
Non, j'avoue ce n'est pas très explicite.....! La PJ sera plus facile à comprendre.
Je vous remercie.

 

[Paf]

Bonjour,

peut-être en modifiant la macro5 existante ...

For i= ...
      If cellule (i, 6) contient  "NON PAYE"
            fond cellule (i,6)= xlNone
             'cellule (i,3) = "" 'éventuellement
      Else
            fond cellule (i,6)=65535
            cellule (i,3) = "Payé Web"
      End if
Next

A+

 

[alain18]

Merci Paf, mais je n'arrive pas à faire fonctionner cette macro en modifiant la macro 5

 

[alain18]

Bonjour
N'étant pas un spécialiste du VBA, la macro existante a été mise en place avec l'aide de Calvus, Staple1600 et laurent950 que je remercie a nouveau mais pour effectuer une modification de cette macro ou en créer une nouvelle pour effectuer cette tâche une petite aide pour le code serait la bienvenue.
Cordialement.

 

[Paf]

Le code proposé n'était évidemment pas un code fonctionnel mais une trame ...

Sub Macro5()
Dim i&
For i = 5 To Cells(Rows.Count, 6).End(xlUp).Row
      If InStr(Cells(i, 6), "NON PAYE")   Then
            Cells(i, 6).Interior.Color = xlNone
      Else
             Cells(i, 6).Interior.Color = 65535
             Cells(i,3) = "Payé Web"
      End If
Next i
End Sub

A+

 

[alain18]

Merci Paf pour votre aide. Le premier test fonctionne parfaitement, il me reste plus qu'à insérer cette macro dans une autre bien plus longue.
J'espère qu'il n'y aura pas de souci...!
Merci à tous.