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
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
papou
Regarde ma réponse à ton message du 6/08 Cordialement Pascal
"Denis" a écrit dans le message de news:e6b%
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
Regarde ma réponse à ton message du 6/08
Cordialement
Pascal
"Denis" <denis.vigier@wanadoo.fr> a écrit dans le message de
news:e6b%23NpJfEHA.2916@TK2MSFTNGP12.phx.gbl...
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
Regarde ma réponse à ton message du 6/08 Cordialement Pascal
"Denis" a écrit dans le message de news:e6b%
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
