1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Range variable cellules

Résolu
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
 -
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
 -
Bonjour,

je souhaite fusionner des cellules

voici le code que j'ai essayé (mais qui ne fonctionne pas). 

Sub Macro2()
Range(Cells(666, 22) & ":" & Cells(666, 24)).MergeCells = True
End Sub


Avez-vous une solution à me proposer

Merci !

2 réponses

Réponse 1 / 2
Messages postés
14852
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
26 janvier 2022
 160
Bonjour,

Essaye comme ça : 
Sub Macro2()
Range(Cells(666, 22).Address & ":" & Cells(666, 24).Address).MergeCells = True
End Sub


Mon site
Réponse 2 / 2
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
 1
MERCI

cela fonctionne TB !
Répondre Posez votre question