Sélection "complexe" de cellules

Bonjour,

j'ai une macro qui me sélectionne toutes les cellules d'un tableau contenant une certaine valeur.

Mon objectif est maintenant de sélectionner les 10 cellules en dessous de chaque cellule sélectionnée (en comprenant celle avec la valeur).

Voici le code :

Dim pl As Range
Dim OK As Range
Dim Cel As Range

With Sheets("Feuil1")

    For Each OK In .Range("A1:ZZ999")
        For Each Cel In OK
            If Cel.Value = "OK" Then
                If pl Is Nothing Then Set pl = Cel Else Set pl = Union(pl, Cel)
                Set pl = ?
            End If
        Next Cel
    Next OK

End With

Au passage quelqu'un sait comment le .Range("A1:ZZ999") pourraît être plus propre ? Je souhaite faire référence à toutes les cellules de la page (le "For Each ... In .Cells" fait assurément planter le fichier)

Merci !

Bonjour

Donc vous voulez repérez toutes les cellules contenant un OK et de là, sélectionner toutes les cellules Ok et les 9 cellules en dessous ?

Quel est le but final ?

Cordialement

Bonjour,

je dois colorer en rouge les 9 cellules en dessous des cases contenant "OK" dans mon tableau

Merci de l'aide

Re

Essayez ceci :

Dim prem As String 'Range
Dim Cel As Range

With Sheets("Feuil1").Range("a1:zz999")
    Set Cel = .Find("OK", LookIn:=xlValues)
    If Not Cel Is Nothing Then
        prem = Cel.Address
        Do
            With Sheets("Feuil1")
                .Range(.Cells(Cel.Row, Cel.Column), .Cells(Cel.Row + 9, Cel.Column)).Interior.Color = 255
            End With
            Set Cel = .FindNext(Cel)
        Loop While Not Cel Is Nothing
    End If
End With

Cordialement

Bonjour Dan,

désolé pour le temps de réponse.

C'est bien ce que je cherchais merci beaucoup !

Topic résolu