error 91

Question

Bonjour,
Je ne comprends pas pourquoi j'ai la erreur 91 "variable objet ou variable de bloc With non définie" dans la ligne maPlage = ActiveSheet.Columns(3) du code ci-dessous.

Private Sub onvatrouver()
Dim trouve As Range
Dim chaine As String
Dim maPlage As Range
    chaine = "xxx"
    maPlage = ActiveSheet.Columns(3)
    trouve = maPlage.Cells.Find(what:=chaine, LookAt:=xlWhole)
    MsgBox trouve.Address
End Sub

Merci de vos réponses

f894009 · Answer

Bonjour,

Private Sub onvatrouver()
    Dim chaine As String
    Dim maPlage As Range
    Dim trouve As Range
    
    chaine = "xxx"
    Set maPlage = ActiveSheet.Columns(3)
    Set trouve = maPlage.Cells.Find(what:=chaine, LookAt:=xlWhole)
    If Not trouve Is Nothing Then
        MsgBox trouve.Address
    Else
        MsgBox "Pas trouvé, désolé........."
    End If
End Sub

xicamaria · Answer

Merci beaucoup,
je n'avais pas mis le set pour affecter la plage.

xicamaria · Answer

Je repose une question,
Savez-vous pourquoi il m'affiche deux fois l'adresse de Trouve ?
Merci

xicamaria · Answer

Excusez-moi, il faut ignorer ma dernière question.
Le sujet est résolu !
Merci encore

Error 91

4 réponses

Discussions similaires

Newsletters