recherche de cellule avec find Résolu

Question

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

ludovanof · Answer

a l'aide s'il vous plait!!!!!!!!!!!!!!!!!!!

lermite222 · Answer

Bonjour,
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+

lermite222 · Answer

Oui, j'ai fait une erreur dans la ligne..
        Set celluletrouvee = Cells(lig, 2).Find("*" & ComboBox1 & "*", lookat:=xlWhole)
Remplacer par
        Set celluletrouvee = Range(Cells(lig, 2),Cells(9999,2)).Find("*" & ComboBox1 & "*", lookat:=xlWhole)
Tu dis...

ludovanof · Answer

oK Genial

C parfait 

merci encore et bonne fin de journée!!!!!

Recherche de cellule avec find

4 réponses

Discussions similaires

Newsletters