jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 12 oct. 2006 à 15:37
Salut,
Tiens essaie ceci,
Meme si je suis persuadé qu il y a plus rapide et mieux ecrit
Dim UnCell As Range
'Selectionne la colonnes D
'de la feuille active du classeur actif
ActiveWorkbook.ActiveSheet.Columns("D:D").Select
For Each UnCell In Selection
'On sort de la boucle des que
'l'on trouve une cellule vide
If UnCell.Text = "" Then Exit For
If UnCell.Text = "Total" Then
UnCell.Text = "Lien " & ActiveWorkbook.ActiveSheet.Range("C" & UnCell.Row)
End If
Next