Excel chercher une valeur dans une colonneRésolu

Question

bonjour &#224; tous!
Sous VBa pour Excel, comment faire pour passer dans chaque cellule de la colonne s&#233;lectionn&#233; afin de v&#233;rifier si la valeur X est dans la cellule?
je pensais utiliser &#231;a:
ActiveCell.EntireColumn.Select 'selection de la premi&#232;re colonne
                
            For Each Cells In Selection
                                'instructions &#224; faire si X est dans la cellule
            Next Cells
m&#233; j'arrive pas &#224; le faire marcher.
bonne matin&#233;e
Jordinette

mrdep1978 · Accepted Answer

Cells est une propri&#233;t&#233; (de types tableau de Range) associ&#233; &#224; l'objet Range (ou Worksheet), ce n'est donc pas une variable.
Tu dois d&#233;finir une variable de type Range pour faire le parcours de ta boucle :

Dim l_Cell as Range
ActiveCell.EntireColumn.Select
For Each l_Cell in Selection
   If l_Cell.Value = "X" Then
      Debug.print l_Cell.Address
   End IF
next l_Cell

Le pb de cette solution, c'est que tu vas parcourir syst&#233;matiquement toute la colonne (=65000 lignes).

Je te conseille donc de faire comme ceci :

Dim l_Cell As Range 'Cellule de parcours
Dim l_Range As Range    'Zone &#224; parcourir
'UsedRange.Row : Premiere ligne utilis&#233;e de la feuille
'UsedRange.Rows.Count : Nb de lignes utilis&#233;es
'ActiveCell.Column : Num&#233;ro de colonne de la cellule active
Set l_Range = Range(Cells(UsedRange.Row, ActiveCell.Column), _
    Cells(UsedRange.Row + UsedRange.Rows.Count - 1, ActiveCell.Column))
For Each l_Cell In l_Range
    If l_Cell.Value = "X" Then
        Debug.Print l_Cell.Address
    End If
Next l_Cell

Pierre_faucon · Answer

Bonjour Jordinette,

Voici une autre m&#233;thode qui utilise les m&#233;thodes Find et FindNext d'excel ( un peu comme la boite de dialogue. Dans la macro que je te propose, la correspondance est partielle (lookat:=xlpart), mais tu peux &#233;galement demander une correspondance stricte (lookat:=xlwhole).

( Extrait de ma r&#233;ponse de vendredi sur le m&#234;me forum... )

Il faut m&#233;moriser la premi&#232;re cellule correspondant &#224; la recherche, de mani&#232;re &#224; comparer les adresses des cellules suivantes trouv&#233;es et de sortir de la boucle lorsque Excel revient sur la premi&#232;re cellule.

Il faut &#233;galement, lors du FindNext, sp&#233;cifier &#224; Excel de chercher apr&#232;s la cellule trouv&#233;e...

Voici le code complet, &#224; adapter selon tes besoins. Dans le cas pr&#233;sent, Excel colorie les cellules trouv&#233;es en rouge. Tu peux bien s&#251;r adapter en renvoyant les adresses dans un tableau ou une collection, puis it&#233;rer sur le tableau ou la collection des adresses trouv&#233;es.

Sub Recherche()
    Dim Premiere_Cellule_Trouvee As Range ' Sert &#224; &#233;viter une boucle sans fin
    Dim Cellule_Suivante As Range ' Correspond &#224; la cellule suivante trouv&#233;e
    Set Premiere_Cellule_Trouvee = _
        Range("a1:a10").Find(What:="elec", LookIn:=xlValues, LookAt:=xlPart)
    
    ' Si aucune correspondance, on sort de la proc&#233;dure
    If Premiere_Cellule_Trouvee Is Nothing Then Exit Sub
    
    Set Cellule_Suivante = Premiere_Cellule_Trouvee
    Do
        Cellule_Suivante.Interior.Color = vbRed
        Set Cellule_Suivante = Range("a1:a10").FindNext(after:=Cellule_Suivante)
        ' Si correspondance entre les cellules, on a boucl&#233; et on sort
        If Cellule_Suivante Is Nothing Then Exit Sub
        If Cellule_Suivante.Address = Premiere_Cellule_Trouvee.Address Then Exit Sub
    Loop
End Sub

Ok?

Pierre Fauconnier

Excel chercher une valeur dans une colonne

2 réponses

Discussions similaires