Bonjour à tous !
Je bloque sur un problème de macro et je n'arrive pas à m'en sortir, je viens rechercher votre aide.😱
Soit : un tableau Excel de 5 colonnes : N° de colis ; Objet ; Date d'envoi ; Date de retour ; Expéditeur (je le met en pièce jointe...)
Ennoncé du problème : recherche dans la colonne E ("Expediteur"), une valeur, mais avec la condition que la cellule C ("Date d'envoi") soit vide, si cette cellule est vide, la recherche continue.
Là où ça coince : ma recherche fonctionne bien, tant qu'il trouve un résultat associé à une cellule vide, de la colonne C.
(dans mon tableau exemple, en lançant une recherche sur "eric" par exemple, ça buggue...)
--------------------
Sub recherche()
Dim resultat_trouve As Range
Dim recherche_donnees As String
recherche_donnees = InputBox("Renseigner l'expéditeur : ")
Set resultat_trouve = ActiveSheet.Columns(5).Cells.Find(what:=recherche_donnees)
If resultat_trouve Is Nothing Then
MsgBox "Il n'y a pas de " & recherche_donnees
Else
While resultat_trouve.Offset(0, -2).Value <> ""
Set resultat_trouve = Cells.Find(what:=recherche_donnees, After:=resultat_trouve.Cells, LookIn:=xlFormulas, SearchDirection:=xlNext)
Wend
MsgBox "Le n° du colis est le : " & resultat_trouve.Offset(0, -4).Value & " ( sur la ligne : " & resultat_trouve.Row & " )"
End If
Set resultat_trouve = Nothing
End Sub
Je bloque sur un problème de macro et je n'arrive pas à m'en sortir, je viens rechercher votre aide.😱
Soit : un tableau Excel de 5 colonnes : N° de colis ; Objet ; Date d'envoi ; Date de retour ; Expéditeur (je le met en pièce jointe...)
Ennoncé du problème : recherche dans la colonne E ("Expediteur"), une valeur, mais avec la condition que la cellule C ("Date d'envoi") soit vide, si cette cellule est vide, la recherche continue.
Là où ça coince : ma recherche fonctionne bien, tant qu'il trouve un résultat associé à une cellule vide, de la colonne C.
(dans mon tableau exemple, en lançant une recherche sur "eric" par exemple, ça buggue...)
--------------------
Sub recherche()
Dim resultat_trouve As Range
Dim recherche_donnees As String
recherche_donnees = InputBox("Renseigner l'expéditeur : ")
Set resultat_trouve = ActiveSheet.Columns(5).Cells.Find(what:=recherche_donnees)
If resultat_trouve Is Nothing Then
MsgBox "Il n'y a pas de " & recherche_donnees
Else
While resultat_trouve.Offset(0, -2).Value <> ""
Set resultat_trouve = Cells.Find(what:=recherche_donnees, After:=resultat_trouve.Cells, LookIn:=xlFormulas, SearchDirection:=xlNext)
Wend
MsgBox "Le n° du colis est le : " & resultat_trouve.Offset(0, -4).Value & " ( sur la ligne : " & resultat_trouve.Row & " )"
End If
Set resultat_trouve = Nothing
End Sub