Aide sur un .Find

[nougitch]

Bonsoir,

J'ai le code suivant :

sQuery = sQuery & CDbl(Cells(l, Sheets("Today").Rows(lReferenceRow).Find("Last").Column)) & "', '"

Comment gérer le fait qu'il puisse ne pas rencontrer le champ LAST ?
J'aimerais avoir une condition du type :
- Si LAST rencontré, faire ceci
- Sinon, faire cela

Merci par avance.
Cdt,

 

[Roland_M]

Re : Aide sur un .Find

bonsoir

désolé mais ce n'est pas suffisant ce bout de code pour te donner une réponse !?

Roland

 

[nougitch]

Re : Aide sur un .Find

Voici grosso-modo ce que j'aimerais faire :

With Range(Cells(lReferenceRow, 1), Cells(lReferenceRow, lMaxCol))
Set rLast = .Find("Last", LookIn:=xlValues)
End With
If rLast Is Nothing Then
MsgBox "NOTHING"
Else
MsgBox "SOMETHING"
End If

Sachant que j'ai un FOR qui exécute ce code plusieurs fois et que parfoiis le LAST est présent, parfois non. Quoiqu'il en soit, c'est toujours la première condition qui est choisie.

Merci pour votre aide.

 

[nougitch]

Re : Aide sur un .Find

C'est bon, c'est mon End With qui était mal placé ! Il fallait le mettre à la fin 🙂