selection plusieurs cellules selon leur valeur

marie49 · 19 Décembre 2008

Bonjour,

Je ne trouve pas et pourtant je pense que c'est très simple.

Je voudrai selectionner une cellule et l'ajouter à la selection précédente tant qu'elle a la meme valeur.
Ces cellules sont sur la meme ligne et une meme valeur se suit toujours.
Par exemple, j'ai 10 cellules sur la ligne 2 avec pour les 6 premières la valeur 1 et pour les 4 suivantes la valeur 13.

1 1 1 1 1 1 13 13 13 13

En faisant un test sur chaque cellule, je veux au final obtenir une selection des 6 premières sélection dont les valeurs sont identiques (pour faire une mise en forme) et ensuite les 4 autres suivantes (pour une mise en forme)...et ainsi de sutie

Ce que je n'arrive c'est d'ajouter dans ma sélection la nouvelle cellule ayant la meme valeur que les précédentes.

Pouvez vous m'aider?

Merci
Marie

Gael · 19 Décembre 2008

Re : selection plusieurs cellules selon leur valeur

Bonjour Marie,

Si j'ai bien compris, peut-être un code comme suit:

Code:

Sub test()
Dim i As Integer, j As Integer, dercol As Integer
ActiveSheet.Range("A2").Select
dercol = Selection.End(xlToRight).Column
j = 1
    Do Until j = dercol + 1
        Do While Selection.Offset(0, i) = Selection.Value
            i = i + 1
        Loop
    Range(Cells(2, j), Selection.Offset(0, i - 1)).Interior.ColorIndex = j + 3
    Selection.Offset(0, i).Select
    j = j + i
    i = 1
    Loop
End Sub

Cf exemple joint.

@+

Gael

marie49 · 19 Décembre 2008

Re : selection plusieurs cellules selon leur valeur

Bonjour Gael,

C'est exactement cela que je souhaite faire. En faite, je crois que l'instruction qui me manquait est : Selection.Offset(0, i).Select.

Je vais essayer d'adapter à mon cas
merci beaucoup
surtout pour la rapidité

marie

selection plusieurs cellules selon leur valeur

marie49

XLDnaute Occasionnel

Gael

XLDnaute Barbatruc

Pièces jointes

marie49

XLDnaute Occasionnel

Discussions similaires

selection plusieurs cellules selon leur valeur

marie49

XLDnaute Occasionnel

Gael

XLDnaute Barbatruc

Pièces jointes

marie49

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency