Macro vba pour fusionner des cellules

Version imprimable

Bonjour,

Je ne connais pas du tout le vba et je cherche à créer une macro qui fusionne les cellules de valeurs identiques dans une même colonne.
J'ai donc écrit cette macro :
Code:

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 Sub Macro1() ' ' Macro1 Macro ' '****************************************************** '* Déclarations des variables * '****************************************************** Dim Sheet As Worksheet, NoCol As Integer Dim LineNum1 As Long, LineNum2 As Long Dim LastLine As Long, LastColumn As Long Dim Var1 As String, Var2 As String Set Sheet = Worksheets("Feuil2") Sheet.Columns("A:Z").AutoFit ' AutoFit des colonnes NoCol = 1 LastLine = Range("A" & Rows.Count).End(xlUp).Row For LineNum1 = 1 To LastLine Var1 = Sheet.Cells(LineNum1, NoCol).Value LineNum2 = LineNum1 + 1 For LineNum2 = LineNum2 To LastLine Var2 = Sheet.Cells(LineNum2, NoCol).Value If [Var1 = Var2] Then Application.DisplayAlerts = False Range(Cells(LineNum1, NoCol), Cells(LineNum2, NoCol)).Merge End If Next Next End Sub
Evidemment, ça ne fonctionne pas ^^

Déjà, je ne comprend pas pourquoi mais ma condition if est toujours vraie. Du coup je me retrouve avec toutes les cellules de ma colonne qui fusionnent....
Et avant, ça fonctionnait à peu près, sauf que si j'avais les lignes suivantes :
Bateau
Voiture
Voiture
Voiture
Moto
Moto
Voiture

La macro fusionnait de la première valeur "voiture" à la dernière...

Donc là je rame un peu et je fais donc appel à la communauté pour m'aider :)

Merci

08/03/2016, 22h34
Sebphyto

Salut Ioro,

Regarde cette discussion elle pourrait t'intéresser ----- ICI -----

Elle peut correspondre à ta demande
Seb
09/03/2016, 09h44
Ioro_

Salut!

Merci pour l'info, ça a effectivement l'air de correspondre.

Je vous tiens au courant!
09/03/2016, 11h03
Ioro_

Alors, ça fonctionne plutôt pas mal sauf que je bloque sur un point.
Je calcule la dernière ligne d'une colonne avec le code suivant :

Code:

LastLine = Range("A" & Rows.Count).End(xlUp).Row

J'effectue ma macro sur 3 colonnes (boucle for) et j'aimerai pouvoir calculer la dernière ligne en fonction de la colonne.
Sauf que dans ma boucle, les colonnes sont déterminées par :

Code:

Dim ColumnNumber As Long

Je pourrais éventuellement faire une succession de If mais je me dis qu'il doit exister quelque chose de plus simple et plus rapide pour calculer la dernière ligne en fonction du numéro de la colonne?

Merci
09/03/2016, 11h52
Sebphyto

Re,

Présent un classeur en pj, sans données confidentiel...pour que l'on regarde...
Poste ton code en entier, stp

Seb
09/03/2016, 17h27
Ioro_

Finalement, je me suis affranchi de mon problème. Toutes les colonnes auront le même nombre de ligne.

Tiens essais çà, çà doit correspondre à ta demande

Code:

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
Sub FusionCellules()
Dim i As Long, j As Long, h As Long, k As Long
DerColNum = Range(Split(Worksheets("Feuil1").UsedRange.Address, "$")(3) & 1).Column
DerCol = Split(Worksheets("Feuil1").UsedRange.Address, "$")(3)
Application.DisplayAlerts = False
For i = 1 To Range("A65536").End(xlUp).Row - 1 'étude colonne A
    j = i + 1
    While Cells(j, 1) = Cells(i, 1)
      Range(Cells(i, 1), Cells(j, 1)).MergeCells = True
      j = j + 1
    Wend
  i = j - 1
Next i
For h = 1 To Range("B65536").End(xlUp).Row - 1 'j - 2 'étude colonne B
        k = h + 1
        While Cells(k, 2) = Cells(h, 2) 'And k < j
          Range(Cells(h, 2), Cells(k, 2)).MergeCells = True
          k = k + 1
        Wend
        h = k - 1
Next h
For Z = 1 To Range("C65536").End(xlUp).Row - 1
    w = Z + 1
    While Cells(w, 3) = Cells(Z, 3)
    Range(Cells(Z, 3), Cells(w, 3)).MergeCells = True
    w = w + 1
  Wend
  Z = w - 1
Next Z
Application.DisplayAlerts = True
End Sub

Là c'est pour la colonne A,B,etC...mais si plus tu peux utiliser un offset sur les colonnes jusqu'à colonne vide

09/03/2016, 17h52
Ioro_

Merci pour ce bout de code mais du coup, comme toutes mes colonnes auront le même nombre de ligne, je procède au formatage sur la colonne A et je reproduit la mise en forme sur toutes celles qui m'intéresse et ça fonctionne nickel.

Merci pour les indications en tout cas
09/03/2016, 17h57
Sebphyto

Si cela te convient alors tant mieux......

ne pas oublier :resolu: et :plusser:
Seb