saut de ligne dans macro

[didier]

Bonjour,
Excuser cette question sans doutes simpliste

Mais comment faire un saut de ligne dans une macro ?

Par exemple :
Sub placementXYfeuille2()

Dim X1 As Byte 'determine abscisse
Dim Y1 As Byte 'determine ordonnée
Dim X2 As Byte
Dim Y2 As Byte
Dim drapeau As Byte
Dim memoire As Byte
Dim histocoul As Byte
Dim histonetb as byte

memoire = Range("B1").Value

X1 = Range("F12").Value
Y1 = Range("G12").Value
X2 = Range("F13").Value

If X2 =14 Then aller a drapeau=range("B1").value....(juste avant Endsub)...............C'EST LA LE SAUT DE LIGNE.............................................

Y2 = Range("G13").Value
histocoul = Range("E12").Value
histonetb = Range("E13").Value

Sheets("Feuil1").Select
drapeau = Range("B1").Value + 1

End sub

j'espére que vous excuserez mon niveau débutant en vba
Merci
Ðidier

 

[Pascal76]

Bonjour

Si j'ai bien compris

Sub placementXYfeuille2()

Dim X1 As Byte 'determine abscisse
Dim Y1 As Byte 'determine ordonnée
Dim X2 As Byte
Dim Y2 As Byte
Dim drapeau As Byte
Dim memoire As Byte
Dim histocoul As Byte
Dim histonetb as byte

memoire = Range("B1").Value

X1 = Range("F12").Value
Y1 = Range("G12").Value
X2 = Range("F13").Value

If X2 =14 Then Goto Fin

Y2 = Range("G13").Value
histocoul = Range("E12").Value
histonetb = Range("E13").Value

Sheets("Feuil1").Select
Fin:
drapeau = Range("B1").Value + 1

End sub

Bnne journée

Pascal

 

[didier]

merci pascal
c'est exactement ce que je cherchais

puis je metre autrechose que le mot fin suivi des deux points ?

et merci encore

 

[Pascal76]

Re

Oui tu mets ce que tu veux comme nom mais il faut les 2 points

exemple

if ..... then Goto JeVeuxAllerLa

.......


JeVeuxAllerLa:
.......


End sub

Pascal