Discussion :

[hugohours1993]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Kimy_Ire]

Bonjour hugohours1993,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

Cordialement,
Kimy

[hugohours1993]

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

[hugohours1993]

Aucune idée?