Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Impossible de lire la propriété Find de la classe range.

Impossible de lire la propriété Find de la classe range.

1 réponse
Avatar
Denis
Bonsoir, j'ai récupéré cette macro, mais voilà elle trouve bien la cellule
recherchée, mais après effacement de la ligne, j'ai le msg suivant :
Impossible de lire la propriété Find de la classe range.
Comment dois-je m'y prendre ?
Merci à toutes et tous.
Denis

Private Sub ListBox1_Click()
Application.ScreenUpdating = False
Dim Atrouver, VaChercher As Range
With Me.ListBox1
Label21 = .Column(1, .ListIndex)
End With
Atrouver = ListBox1.Value
With Worksheets("Postes").UsedRange
Set VaChercher = .Find(Atrouver)
If Not VaChercher Is Nothing Then
VaChercher.Select
End If
End With
Application.ScreenUpdating = True
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Quel est le but recherché ?
Cordialement
Pascal

"Denis" a écrit dans le message de
news:uqiYWR$
Bonsoir, j'ai récupéré cette macro, mais voilà elle trouve bien la cellule
recherchée, mais après effacement de la ligne, j'ai le msg suivant :
Impossible de lire la propriété Find de la classe range.
Comment dois-je m'y prendre ?
Merci à toutes et tous.
Denis

Private Sub ListBox1_Click()
Application.ScreenUpdating = False
Dim Atrouver, VaChercher As Range
With Me.ListBox1
Label21 = .Column(1, .ListIndex)
End With
Atrouver = ListBox1.Value
With Worksheets("Postes").UsedRange
Set VaChercher = .Find(Atrouver)
If Not VaChercher Is Nothing Then
VaChercher.Select
End If
End With
Application.ScreenUpdating = True
End Sub