Error 91

Fermé

xicamaria - 20 sept. 2017 à 10:00
xicamaria - 20 sept. 2017 à 10:55

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

A voir également:

Error 91
A disk read error occurred ✓ - Forum Windows
Eespt technical error ✓ - Forum TNT / Satellite / Réception
Check system power error ✓ - Forum BIOS
Network error iptv - Forum Réseaux sociaux
Cpu over temperature error - Forum Matériel & Système

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
20 sept. 2017 à 10:12

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

Réponse 2 / 4

xicamaria
20 sept. 2017 à 10:44

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

Réponse 3 / 4

xicamaria
20 sept. 2017 à 10:53

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

Réponse 4 / 4

xicamaria
20 sept. 2017 à 10:55

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

Discussions similaires

Ordi lenovo fan error

problème carte mère CMOS checksum error...

panne zimbra free erreur 413

LENOVO fan error au démarrage

message d'erreur network error

Discussions similaires

Newsletters