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

alain18

XLDnaute Occasionnel
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.
 

Fichiers joints

Paf

XLDnaute Barbatruc
Bonjour,

peut-être en modifiant la macro5 existante ...
VB:
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Le code proposé n'était évidemment pas un code fonctionnel mais une trame ...
VB:
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

XLDnaute Occasionnel
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.
 

Discussions similaires


Haut Bas