Boucle

bonjour,

le code ci dessous fonctionne très bien mais je voudrais l'adapter pour qu'il n'effectue la macro que sur les lignes

où le mot "titi" est contenu en colonne D

je n'ai pas réussi

merci de vos conseils

cordialement

<<Private Sub CommandButton8_Click()

Dim s As Long
Dim Java1 As String

s = 1

        While Sheets("Feuil1").Range("D" & s).Value <> ""
                Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("Feuil1").Cells(s, 8).Value & "));" _
                & "Mark.SetCustomIcon('pushpina.gif');('" & Sheets("Feuil1").Cells(s, 1).Value & "');" _
                & "Mark.SetTitle('" & Sheets("Feuil1").Cells(s, 2).Value & "');" _
                & "Mark.SetDescription('" & Sheets("Feuil1").Cells(s, 9).Value & "');" _
                & "map.AddShape(Mark);"

                EnvoiScript Java1

                s = s + 1
        Wend

End Sub

Bonjour,

essaie ceci

<<Private Sub CommandButton8_Click()

Dim s As Long
Dim Java1 As String

s = 1

        While Sheets("Feuil1").Range("D" & s).Value <> ""
                 if Sheets("Feuil1").Range("D" & s)="titi" then
                 Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("Feuil1").Cells(s, 8).Value & "));" _
                 & "Mark.SetCustomIcon('pushpina.gif');('" & Sheets("Feuil1").Cells(s, 1).Value & "');" _
                 & "Mark.SetTitle('" & Sheets("Feuil1").Cells(s, 2).Value & "');" _
                 & "Mark.SetDescription('" & Sheets("Feuil1").Cells(s, 9).Value & "');" _
                 & "map.AddShape(Mark);"

                 EnvoiScript Java1
                end if
                s = s + 1
        Wend

End Sub
 

NICKEL !!

merci H2SO4!!