Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 21/12/2009 par pascal
'
With Sheets("feuil1")
Dim i As Integer
For i = 9 To 20 'pour les lignes 9 à 20
If Range("c" & i).Value = "" Then 'si cellule C &i vide alors pas de macro sur cette ligne
Range("c1").Value = Range("b1").Value ' [COLOR="YellowGreen"]exit sub semblait ne pas fonctionner alors j'ai mis ça[/COLOR]
Else
.Hyperlinks.Add Anchor:=Range("c" & i), Address:=Range("b" & i).Value, _
SubAddress:=Range("a" & i).Value, TextToDisplay:=Range("d" & i).Value
End If
Next i
End With
End Sub
j'ai mis les commentaires, si ça peut servir à quelqu'un de débutant comme moi
voir avec le classeur A joint plus haut pour la concordance des cellules