Sélection de cellules discontinues

[Troudz]

Bonsoir le forum,

J'ai un problème relativement simple que je n'arrive pas à résoudre.
Je voudrais découpe une variable de type Range "MaSource" que je voudrais découper dans 4 autres Range (sur le principe d'une cellule sur 4).

J'ai donc fait la macro suivante :

Sub TestBoucle()
    Dim i As Integer
    Dim MaSource As Range
    Dim MaPlage1 As Range
    Dim MaPlage2 As Range
    Dim MaPlage3 As Range
    Dim MaPlage4 As Range
    
    With ThisWorkbook.Sheets("Test")
        Set MaSource = Range(.Cells(1, 1), .Cells(1, 64))
    End With
    i = 1
    Set MaPlage1 = MaSource.Item(1, i)
    Set MaPlage2 = MaSource.Item(1, i + 1)
    Set MaPlage3 = MaSource.Item(1, i + 2)
    Set MaPlage4 = MaSource.Item(1, i + 3)
    
    i = 5
    For i = 5 to MaSource.Columns.Count Step 4
        Set MaPlage1 = Union(MaPlage1, MaSource.Item(1, i))
        Set MaPlage2 = Union(MaPlage2, MaSource.Item(1, i + 1))
        Set MaPlage3 = Union(MaPlage3, MaSource.Item(1, i + 2))
        Set MaPlage4 = Union(MaPlage4, MaSource.Item(1, i + 3))
    Wend

    MaPlage1.Select
End Sub

Mon soucis est que je n'obtiens pas le résultat escompté. En faisant un test, je me rend compte que ma variable MaPlage1 n'est qu'une suite d'adresse au format texte......

Sauriez vous me dire où j'ai fait l'erreur ? (d'autant que j'ai pris soin de déclarer mes variables pour me prémunir de ce type de problème)

 

[Gelinotte]

Re : Sélection de cellules discontinues

Bonsoir,

Je n'ai pas tout compris, mais :
Dans la boucle While, Union est toujours sur MaPlage1 et non : Maplage1, Maplage2....
Est-ce normal ?


G

 

[Troudz]

Re : Sélection de cellules discontinues

Oups désolé ! C'est une bête erreur de copier / coller que je viens de corriger.
Malheureusement, ça n'a aucun impact sur la réussite de ma macro ^^

 

[Gelinotte]

Re : Sélection de cellules discontinues

Bonsoir,

Je lis et relis ta demande, et mon petit cerveau n'a pas la capacité de déchiffrer. 😱


G

 

[Troudz]

Re : Sélection de cellules discontinues

Roooo je suis désolé Gelinotte. J'ai pourtant essayé d'être le plus concis possible.

J'ai tout simplement une série de X cellules contiguës sur une même ligne. Cette plage est stockée dans une variable de type range nommée "MaSource"
Je veux faire une boucle qui répartisse les cellules dans 4 autres variables comme ceci :
MaPlage1 = cellule1 & cellule5 & cellule9 etc.....
MaPlage2 = cellule2 & cellule6 & cellule10 etc.....
MaPlage3 = cellule3 & cellule7 & cellule11 etc.....
MaPlage4 = cellule4 & cellule8 & cellule12 etc.....

Est ce que c'est un peu plus clair expliqué comme ça ?

Merci pour ta précieuse aide.

 

[Gelinotte]

Re : Sélection de cellules discontinues

Bonsoir,

Mais .... ça fonctionne déjà. Ton code fonctionne.

À la fin de la macro, pour afficher une plage après l'autre :
Msgbox pour faire une pause

    MaPlage1.Select
    MsgBox MaPlage1
    
    MaPlage2.Select
    MsgBox MaPlage2
    
    MaPlage3.Select
    MsgBox MaPlage3
    
    MaPlage4.Select
    MsgBox MaPlage4

G