A voir également:
- Erreur 91 ?
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
2 réponses
Bonjour,
Comme ceci, l'erreur c'est que ça trouve pas (et y a pas besoin de rownumber) :
Note : Range appartient à Worksheet (Sheet n'existe pas).
Comme ceci, l'erreur c'est que ça trouve pas (et y a pas besoin de rownumber) :
Sub search() Dim rng As Range Dim min_val As String min_val = Worksheets("Feuil1").Range("A1").Value Set rng = Worksheets("Feuil2").Columns("A:A").Find(What:=min_val, LookIn:=xlFormulas, LookAt:=xlWhole, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Not rng Is Nothing Then Worksheets("Feuil1").Range("B2").Value = rng.Offset(0, 1).Value Else MsgBox min_val & " non trouvé", vbInformation End If End Sub
Note : Range appartient à Worksheet (Sheet n'existe pas).
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, le message d'erreur n'inclut pas de texte explicatif?
merci d'utiliser les balises de code quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
le plus probable, je pense, c'est que le
tu pourras lire ici comment détecter que rien n'est trouvé: https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
pourquoi as-tu écrit
merci d'utiliser les balises de code quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
le plus probable, je pense, c'est que le
findne trouve rien.
tu pourras lire ici comment détecter que rien n'est trouvé: https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
pourquoi as-tu écrit
LookIn:=xlFormulas?