XL 2019 Fusion de cellules par VBA

[rounil09]

Bonsoir,

Cela me paraissait une macro toute simple, mais je n’y arrive pas.

Je cherche à fusionner par VBA les deux dernières cellules pleines de la colonne B de la ‘’feuil1’’

Merci de votre aide

 

[jmfmarques]

Bonjour
je t'invite à utiliser l'enregistreur de macros, qui t'offrira sur un plateau le code que tu cherches ...

 

[rounil09]

Merci de votre réponse, j
J'avais fait la manip. et ça fonctionne si les cellules sont statiques.
Mon problème c'est que j'arrive pas à sélectionner les deux dernières cellules pleines de la colonne B qui changent au fur et à mesure que j'ajoute des lignes à mon tableau.
J'ai essayé de sélectionner avec resize, offset, +Merge.
Cela ne fonctionne pas.

 

[jmfmarques]

Ah !
Ta vraie question serait-elle alors finalement de déterminer

les deux dernières cellules pleines de la colonne B

????

 

[job75]

Bonsoir rounil09, jmfmarques,

L'enregistreur de macro ne sait pas du tout faire ceci :

Sub Fusion()
Dim col%, c As Range, cc As Range
col = 2 'à adapter
With Feuil1 'CodeName à adapter
    If Application.CountA(.Columns(col)) < 2 Then Exit Sub
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set c = .Cells(.Rows.Count, col).End(xlUp)
    Set cc = IIf(IsEmpty(c(0)), .Cells(c.Row, col).End(xlUp), c(0))
    Application.DisplayAlerts = False
    .Range(c, cc).Merge
End With
End Sub

A+

 

[rounil09]

Merci beaucoup de ton aide Job 75.
Ta macro fonctionne nickel, elle correspond exactement à mon besoin.
Bonne soirée