Discussion :

[flamel]

Bonjour,

Voici un morceau de code qui ne marche pas et je ne trouve pas pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub fusionPalette()
Dim listCol As String
Dim j1 As Integer, j2 As Integer
Dim iLin As Integer
Dim iCol As Integer
 '   Application.DisplayAlerts = False
        listCol = ("1,3,8,13,18,25,32,41")
        Sheets("Modifications").Select
    For iLin = 2 To 10
        For iCol = 0 To 6
            j1 = Split(listCol, ",")(iCol)
            j2 = Split(listCol, ",")(iCol + 1) - 1
            Sheets("Modifications").Select
            Sheets("Modifications").Range("celMdfDoc_2").Range(Cells(2, j1), Cells(2, j2)).Merge
        Next iCol
    Next iLin
End Sub

Ça bloque toujours sur ' .Range("celMdfDoc_2").Range(Cells(2, j1), Cells(2, j2)) '
Où est ma faute ?

Merci si vous pouvez m'aider.

[gFZT82]

Bonjour flamel,

Je ne vois pas l’utilité du Range("celMdfDoc_2").

Si j’ai bien compris, tu souhaites effectuer une fusion des cellules des lignes 2 à 10 en suivant la séquence indiquée par listCol.
En reprenant ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub fusionPalette()
    Dim listCol As String
    Dim j1 As Byte, j2 As Byte
    Dim iLin As Byte
    Dim iCol As Byte
    'Application.DisplayAlerts = False
    listCol = ("1,3,8,13,18,25,32,41")
    With Sheets("Modifications")
        For iLin = 2 To 10
            For iCol = 0 To 6
                j1 = Split(listCol, ",")(iCol)
                j2 = Split(listCol, ",")(iCol + 1) - 1
                .Range(Cells(iLin, j1), Cells(iLin, j2)).Merge
            Next iCol
        Next iLin
    End With
End Sub

Cordialement.

[flamel]

Merci gFZT82,

Exact.

Mon code exact, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub fusionPalette()
Dim listCol As String
Dim j1 As Integer, j2 As Integer
Dim iLin As Integer
Dim iCol As Integer
 '   Application.DisplayAlerts = False
        listCol = ("1,3,8,13,18,25,32,41")
        Sheets("Modifications").Select
    For iLin = 2 To 10
        For iCol = 0 To 6
            j1 = Split(listCol, ",")(iCol)
            j2 = Split(listCol, ",")(iCol + 1) - 1
            Sheets("Modifications").Select
            Sheets("Modifications").Range("celMdfDoc_2").Range(Cells(2, j1), Cells(2, j2)).Merge
        Next iCol
    Next iLin
End Sub

Une partie s'est perdue.

[mercatog]

Bonjour
Tu as une plage nommée celMdfDoc_2 sur ta feuille Modifications?

Essaies ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub fusionPalette()
Dim j As Integer
Dim ListCol
 
Application.ScreenUpdating = False
ListCol = Array(1, 3, 8, 13, 18, 25, 32, 41)
With Sheets("Modifications").Range("celMdfDoc_2")
    For j = 0 To 6
        .Range(.Cells(2, ListCol(j)), .Cells(10, ListCol(j + 1) - 1)).Merge True
    Next j
End With
End Sub

[flamel]

Oui,
' celMdfDoc_2 ' c'est le nom d'une cellule de la feuille ' Modifications '

Merci pour le code, mais il ne fait pas la fusion.

[Maxence HUBICHE]

Pour commencer (donc, avant d'aller plus loin :p) essaie de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("celMdfDoc_2")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").

(en mettant, en fait, l'adresse de la cellule plutôt que son nom.)
Et là, ca fait quoi ?