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.
 

Pièces jointes

  • Insérer texte et couleur cellule .xls
    46 KB · Affichages: 10

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+
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs