Suite automatique

[Lekouti]

Bonsoir a tous,

Voila pour mon site web j'ai besoin de repeter des ligne de code pour mes photo tl que :

<A HREF="pp/70.html"><IMG SRC= "vignette/70.jpg"></a>
<A HREF="pp/71.html"><IMG SRC= "vignette/71.jpg"></a>
<A HREF="pp/72.html"><IMG SRC= "vignette/72.jpg"></a>

etc...

J'aimerai automatiser les suite de chiffre

<A HREF="pp/73.html"><IMG SRC= "vignette/73.jpg"></a>
<A HREF="pp/74.html"><IMG SRC= "vignette/74.jpg"></a>
<A HREF="pp/75.html"><IMG SRC= "vignette/75.jpg"></a> etc...

Comment faire ???

Merci

 

[Lord Nelson]

Salut Lekouti,

Tu peux essayer ceci en l'adaptant :

Sub Recopie()
Dim ST As String, I As Integer, Ligne As Long, Col As Byte
Ligne = ActiveCell.Row
Col = ActiveCell.Column
For I = 70 To 100
ST = "<A HREF=" & Chr(34) & "pp/" & CStr(I) & ".html" & Chr(34) & "><IMG SRC= " & Chr(34) & "vignette/" & CStr(I) & ".jpg" & Chr(34) & "></a>"
Cells(Ligne, Col) = ST
Ligne = Ligne + 1
Next
End Sub

L'astuce est d'utiliser Chr(34) pour faire apparaître " dans une chaîne sans perturber VBA.

A+
LN