Recherche de cellule avec find
Résolu
ludovanof
-
ludovanof -
ludovanof -
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
A voir également:
- Recherche de cellule avec find
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Find and mount - Télécharger - Récupération de données
- Recherche photo - Guide
4 réponses
Bonjour,
Une idée !! pas tester, j'ai pas les données pour.
A+
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+
