Discussion :

[Arnaud_1]

Bonjour à tous,


Débutant depuis 3 semaines sur vba je bute depuis plusieurs jours déjà pour la fusion de cellules.
J'ai testé, avant l'appel à la fonction merge, si ma macro était bonne avec une MsgBox. Cela semble fonctionné. Je crains donc que je n'ai pas réussi à trouver les subtilités de cette fonction.

J'ai lu dans certains sujets que la fusion de cellules était le point faible du vba. J'aimerai avoir votre avis sur ce point.

Je m'explique :

J'ai un classeur contenant plusieurs feuilles. Je souhaiterai fusionner une colonne voulu d'une première feuille puis passer à la seconde, effectuer une autre fusion etc.

Concrètement, ma ligne de code qui traite cette tâche 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
Sub test_fusion_boucle()
 
Dim nom_ouvrage As Worksheet
Dim derniere_ligne As Long
 
Application.DisplayAlerts = False
 
For Each nom_ouvrage In Worksheets
 
derniere_ligne = Cells(Rows.Count, 1).End(xlUp).Row
 
'ma cellule de départ pour la fusion est toujours la même quequesoit la feuille concernée
 
Range(Cells(5, 1), Cells(derniere_ligne, 1)).Merge
 
Next nom_ouvrage
 
End Sub

Mon code fonctionne bien pour la première feuille mais il ne s'exécute pas pour les suivantes.

Avez-vous des pistes à me conseillez pour résoudre ce problème ?

Merci d'avance,

Arnaud

[mfoxy]

Bonjour,

Tu dois indiqué la parentalite de tes objets range et cells, dans le cas contraire le Range est toujours celui de la feuille active

Essaie comme ceci.

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
 
 
 
Sub test_fusion_boucle()
 
Dim nom_ouvrage As Worksheet
Dim derniere_ligne As Long
 
Application.DisplayAlerts = False
 
For Each nom_ouvrage In Worksheets
With nom_ouvrage
  derniere_ligne = . Cells(Rows.Count, 1).End(xlUp).Row
 
  'ma cellule de départ pour la fusion est toujours la même quequesoit la feuille concernée
 
  . Range(.Cells(5, 1), .Cells(derniere_ligne, 1)).Merge
 
End With
Next nom_ouvrage
 
End Sub

[Arnaud_1]

Bonjour mfoxy,

Je viens de tester ton code et ça fonctionne. Je ne pensais pas que le problème pouvait venir de Range.
Merci pour le tuyau, je regarderai demain de plus près la définition de parentalité pour mieux déchiffrer ton code par la suite (je suis en overdose de vba aujourd'hui !)

Un grand grand Merci

Bonne fin de journée à toi,

Arnaud