GoTo

[CharlesSSQ]

Bonjour,

Voici un petit morceau de code, je me demande pourquoi la macro ne veut pas embarquer sur le GoTo lorsqu'elle devrait le faire.... je veux faire en sorte que "lignedepart" soit une valeur, toutefois lorsqu'elle ne la trouve pas alors de prendre goto suite et d'aller plus loin dans ma macro poursuivre à "suite"

Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_DATA).Select
Set LD = Range("A1:A10000").Find(Ticker(i), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not LD Is Nothing Then
lignedepart = LD.Row
GoTo suite

End If

merci!

 

[Cousinhub]

Re : GoTo

Bonsoir,

PS, juste avant de commencer, prends comme habitude de mettre ton code entre balises (le # dans la barre du haut)

Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_DATA).Select
Set LD = Range("A1:A10000").Find(Ticker(i), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not LD Is Nothing Then
lignedepart = LD.Row
GoTo suite

End If

Dans ton code, tu oublies le Else....

Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_DATA).Select
Set LD = Range("A1:A10000").Find(Ticker(i), LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not LD Is Nothing Then
        lignedepart = LD.Row
    Else
        GoTo suite
    End If

Bonne soirée

 

[CharlesSSQ]

Re : GoTo

super merci beauoup!

Charles