Fusion de cellules en boucle depuis ActiveCell

Bonjour à tous,

Nouveau sur le forum, je débute en vba.

Je cherche à créer une boucle pour fusionner deux cellules puis passer à la ligne du dessous, deux cellules, puis à la ligne du dessous, deux cellules etc...

Mon souhait serait d'obtenir la fusion de deux cellules sur une boucle de 05 lignes depuis la cellule active et quelque soit la cellule de départ choisie dans la feuille

(voir fichier joint pour exemple).

Avec tous mes remerciements pour vos réponses, un peu de difficulté à comprendre les boucles et la déclaration de variables. Cordialement

Bonjour LaurentMourey21, le forum,

Bien que la fusion de cellules soit déconseillée car elle peut être source de problème par la suite, voici un code à tester....

Sub fusion()
'déclaration des variables en integer
 Dim lig As Integer, col As Integer, i As Integer
 'définit la ligne de départ ainsi que la colonne à partir de la cellule active
  lig = ActiveCell.Row: col = ActiveCell.Column
  'désactive le rafraichissement de l'écran (pas utile ici car peu de lignes)
   Application.ScreenUpdating = False
    'boucle de la ligne active à ligne active + 4 (pour avoir 5 lignes)
    For i = lig To lig + 4
     'redimensionne et fusionne la cellule de 1 ligne et 2 colonnes
     Cells(i, col).Resize(1, 2).Merge
     'prochaine ligne
    Next i
   'réactive le rafraichissement de l'écran
   Application.ScreenUpdating = True
End Sub

Un peu de lecture:

Variables

Boucles

Cordialement,

Bonjour xorsankukai,

Tous mes remerciements. C'est exactement ce qui convient. Merci pour ta réactivité.

Salut Laurent,

Si cela peut t'interesser, et comme le dit Xorsankukai, tu peux, au lieu de fusionner les cases, centrer ton texte sur ta selection. Cela evite tous les bugs liés au merged cells. Pour le faire, il te suffit de selectionner la range sur laquelle tu veux te centrer:

Où D5 est ta cellule avec ton texte et E5 est celle juste à côté.

A+ !