Recherche de cellule avec find
Résolu
Bonjour,
voila mon probleme
je cherche un mot dans une colonne (contenu dans une phrase), je le trouve, C ok!
mon probleme est le suivant, je cherche a passer le premier mot trouvé et a continuer ma recherche dans le reste de la colonne et ainsi de suite
voici mon code:
Sub pardesignation()
Dim celluletrouvee As Range
Dim ligne As Integer
If ComboBox1.Value = "" Then
Exit Sub
Else
Sheets("Données").Select
Set celluletrouvee = Range("B1:B9999").Find("*" & ComboBox1 & "*", lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("Ce devis n'existe pas !")
Exit Sub
Else
ligne = (celluletrouvee.Row)
TextBox2 = Cells(ligne, 1).Value
End If
End If
End Sub
merci de votre aide
voila mon probleme
je cherche un mot dans une colonne (contenu dans une phrase), je le trouve, C ok!
mon probleme est le suivant, je cherche a passer le premier mot trouvé et a continuer ma recherche dans le reste de la colonne et ainsi de suite
voici mon code:
Sub pardesignation()
Dim celluletrouvee As Range
Dim ligne As Integer
If ComboBox1.Value = "" Then
Exit Sub
Else
Sheets("Données").Select
Set celluletrouvee = Range("B1:B9999").Find("*" & ComboBox1 & "*", lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("Ce devis n'existe pas !")
Exit Sub
Else
ligne = (celluletrouvee.Row)
TextBox2 = Cells(ligne, 1).Value
End If
End If
End Sub
merci de votre aide
Configuration: Windows XP Internet Explorer 8.0
4 réponses
-
oK Genial
C parfait
merci encore et bonne fin de journée!!!!! -
ContributeurOui, j'ai fait une erreur dans la ligne..
Set celluletrouvee = Cells(lig, 2).Find("*" & ComboBox1 & "*", lookat:=xlWhole)
Remplacer parSet celluletrouvee = Range(Cells(lig, 2),Cells(9999,2)).Find("*" & ComboBox1 & "*", lookat:=xlWhole)
Tu dis... -
ContributeurBonjour,
Une idée !! pas tester, j'ai pas les données pour.Sub pardesignation() Dim celluletrouvee As Range Dim ligne As Integer If ComboBox1.Value = "" Then Exit Sub Else Sheets("Données").Select lig = 1 Reco: Set celluletrouvee = Cells(lig, 2).Find("*" & ComboBox1 & "*", lookat:=xlWhole) If celluletrouvee Is Nothing Then MsgBox ("Il n'y a pas/plus de devis sous ce nom !") Exit Sub Else ligne = (celluletrouvee.Row) TextBox2 = Cells(ligne, 1).Value e = MsgBox("Cliquer oui pour rechercher le nom suivant", vbQuestion + vbYesNo, "Titre") If e = vbYes Then lig = ligne + 1 GoTo Reco End If End If End If End Sub
A+ -
a l'aide s'il vous plait!!!!!!!!!!!!!!!!!!!
