Fusionner des cellules et nombre de lignes variables VBA

Bonjour,

Je cherche à créer grâce à VBA une nouvelle colonne dans une base de donnée,
Avant de remplir les données de cette colonne il me faut effectuer une fusion de 3 cellules (H8:H10) et reproduire cette fusion jusqu'en bas de ma base. J'ai toujours du mal avec la programmation sur un nombre de lignes variables et l'utilisation de "Autofill".
Je précise que les cellules à fusionner sont pour le moment vide.

Après un enregistrement de macro et avoir synthétisé le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Bouton5_Clic() ' ' Bouton5_Clic Macro ' ' Range("H8:H10").Merge Range("H8:H10").AutoFill Destination:=Range("H8:H58"), Type:=xlFillDefault End Sub

---

Il me faut donc remplacer la partie en gras pour travailler sur un nombre de lignes variables, j'ai essayé différentes solutions mais pour le moment aucun résultat adéquate, je pense que le soucis est le faites que mes cellules soient vides.
Merci d'avance pour votre aide.

Bonjour hugohours1993,

Voici un petit code qui te permet de merger autant de cellule que tu veux sur une colonne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Sub oMerge() Dim oRng As Range, oCell As Range   With Worksheets("Feuil1") Set oRng = .Range("A1:A100") 'Set oRng = Range("A1", .Cells(.Rows.Count, 1).End(xlUp)) For Each oCell In oRng oCell.Resize(1, 3).Merge Next oCell End With   End Sub

---

Après tu peux mettre dans la variable oRng un peu ce que tu veux.
Mais étant donné que tes cellules sont vides, il est difficile, par exemple, de récupérer la dernière ligne non vide avec Set oRng = Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).
En espérant que cela te serve ! :ccool:

Cordialement,
Kimy

Ouai cela oblige à changer le code à chaque export fait c'est pas très pratique, mais merci pour l'idée.

Peut être est t-il possible de repérer la dernière ligne par l'intermédiaire de la colonne précédente F, où les données sont dans ce cas ci présent.
.. ?

De plus, ton code me permet d'effectuer un fusion horizontal genre H:J, je voudrais une fusion verticale de H8:H10

Aucune idée?