Discussion :

[RichRich59]

Bonjour, j'ai le même problème que dans cette discussion.

Il se trouve que je voudrais regrouper mes ligne en fonction de la colonne A a condition que les valeurs soient identique.

65
66
66
66
67
67
67
67
68
71
71
71
71
71
72
72
72

Voila le code que j'ai mais il ne fonctionne pas correctement

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
19
20
21
22
23
24
25
26
27
28
29
Sheets("TRM_ONEY").Activate
fin = Cells(3, 1).End(xlDown).Row
i = 3
 
    Do While i < fin + 1
      Range("D" & i).Select
      If Range("D" & i).Value = "" Then
        If Range("D" & i + 1).Value = "" Then
            If Range("D" & i + 2).Value = "" Then
                Rows(i & ":" & i + 2).Select
                Selection.Rows.Group
                i = i + 1
            Else
             Rows(i & ":" & i + 1).Select
             Selection.Rows.Group
             i = i + 1
            End If
        Else
        End If
      End If
      i = i + 1
    Loop
 
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
 
fin = Cells(3, 1).End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$AE$" & fin

Le problème c'est qu'il me regroupe bien lorsqu'il n'y a que trois ligne. cependant des qu'une quatrieme ou une cinquieme apparait, il y a des sous groupement... merci de m'aider svp

[fllyann]

J'ai fait un programme qui effectue une fusion de cellule
si ça peut t'aider

bonne chance

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
For compteur2 = 3 To DerniereLigne
 
    'numérotation pour la ligne
    numeroDeLigne1 = numeroDeLigne1
    n = n + 1
    numeroDeLigne2 = numeroDeLigne1 + n
 
    'valeur dans la cellule
    cas1 = Range("A" & numeroDeLigne1).Value
    cas2 = Range("A" & numeroDeLigne2).Value
 
    'Adresse de la cellule
    address1 = Range("A" & numeroDeLigne1).Address
    address2 = Range("A" & numeroDeLigne2).Address
 
 
    'Si la valeur ds cellules est égale alors on fusionne les cellules
    'si ce n'est pas égale alors la dernière cellule devient la première
    'on recommence alors le teste jusqu'à la dernière ligne
    If cas1 = cas2 Then
 
    Range(address1, address2).Select
 
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .AddIndent = False
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
 
        Application.DisplayAlerts = False
        Selection.Merge
        Application.DisplayAlerts = True
 
        numeroDeLigne2 = numeroDeLigne1 + n
        Else
        cas1 = cas2
        address1 = address2
        numeroDeLigne1 = numeroDeLigne2
        numeroDeLigne2 = numeroDeLigne1 + 1
        n = 0
    End If
Next compteur2

[mayekeul]

bonjour,

voici un code pour grouper en fonction de la première colonne
pour que cela fonctionne, il faut inserer une ligne après chaque groupement.
tu pourras mettre dans cette ligne vie un soustotal de la ligne (comme je suppose que c'est le but)

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
19
Sub GrouperParColonneA()
Dim I, J
Dim C As Range
 
Set C = Cells(3, 1).End(xlDown)
J = 3
I = 3
 
Do Until I > C.Row
    If Not Cells(I, 1) = Cells(I + 1, 1) Then
        Cells(I + 1, 1).EntireRow.Insert
        Range(Cells(J, 1), Cells(I, 1)).EntireRow.Group
        I = I + 1
        J = I + 1
    End If
    I = I + 1
Loop
 
End Sub

[RichRich59]

Bonjour,

Comment faire une macro disant que
- Si la cellule de la colonne D n'est pas vide, mettre toute la ligne en gras
- Si la cellule est vide, pas mettre en gras

[mayekeul]

bonjour,

en gros, comme ça!

Code :

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

1
2
3
 
cells.font.bold=true
columns(4).SpecialCells(xlCellTypeBlanks).entirerow.Font.Bold=false

[RichRich59]

Merci, c'est parfait ^^
Franchement tu assures, c'est cool
Merci bcp