Range

[Herbiti]

Bonjour le forum,

Petit problème (encore, je sais)

Peut-on grouper plusieurs plages en une?

Je vous demande ça parce que je n'ai pas envie de compliquer mon code. Voilà le problème: j'ai mis

Plage=Range('c2:e2', 'c3:i3', 'c4:d4')

Soit je dois créer un range pour chaque plage (ce qui va compliquer la suite de mon exéctuion) ou alors je dois mettre les cellules les unes à la suite des autres (ce que je n'ai pas envie de faire car certaines de mes applications comptent plusieurs dizaines de cellules).

Merci de me trouver une solution à ce problème

Herbiti

 

[WILFRIED]

Salut Herbiti, le forum,

tu y était presque :

dim plage as range

Set plage = Range('C2:E2,C3:I3,C44')

plage.Select

A+

 

[ya_v_ka]

salut Wielfried

l'enregistreur de macro me donne la réponse suivante ...


Range('E16,C16:C23,E17:E26,G10:G22,I14:I23,C30:G30')...

ya'v

 

[Herbiti]

Merci beaucoup, c vrai que j'y étais presque!

une petite info qui pourra m'aider égelement:
c'est le nombre de cellules inclues dans le range que j'ai selectionné, comment puis-je le faire avec une formule?

 

[ya_v_ka]

oups trop lent pour changer !

ya'v

 

[Herbiti]

trop lent???

 

[WILFRIED]

Salut a tous,

T'inquiéte Herbiti Quand Ya'v dit trop lent il parle surement de la ça réponse, tous comme moi il vient de ce faire avoir avec le rafraichissement, il ne devait pas avoir vu que j'avait répondu juste avant lui...

Ya'v : pour une fois c'st pas moi qui suis pas a la bourt... LOL.

A+

 

[Herbiti]

Merci beaucoup!

une petite info qui pourra m'aider égelement:
c'est le nombre de cellules inclues dans le range que j'ai selectionné, comment puis-je le faire avec une formule?

 

[ya_v_ka]

salut

bien sur que je parlais de moi, je n'oserais pas critiquer quelqu'un d'autre !

et je ne suis pas tant à la bourre...


ya'v

 

[Herbiti]

c bien tout ça, mais j'aimerai résoudre mon problème... je cherche dans l'aide mais je ne trouve pas.

une petite info qui pourra m'aider égelement:
c'est le nombre de cellules inclues dans le range que j'ai selectionné, comment puis-je le faire
avec une formule?

 

[_Thierry]

Bonsoir Herbiti, le Fil

Je ne comprenads pas ta question, mais si ça peut t'aider :

Sub TestRange()
Dim Plage As Range, Cell As Range
Dim Msg As String
Dim i As Integer

Set Plage = Range('C2:E2,C3:I3,C44')

MsgBox 'Il y a ' & Plage.Count & ' cellules, nous allons les scanner et les colorier'

    For Each Cell In Plage
        i = i + 1
        Msg = Msg & 'Cellule ' & i & ' : ' & Cell.Address(0, 0) & vbCrLf
        Cell.Interior.ColorIndex = 3
    Next

MsgBox 'Voici la Liste des ' & Plage.Count & ' cellules :' & vbCrLf & Msg


End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

 

[Herbiti]

merci beaucoup, l'ami!