XL 2019 Fusion de cellules par VBA

J

jmfmarques

XLDnaute Accro

• 7 Juin 2020

• #2

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

 

Vote positif 0 Vote négatif

rounil09

XLDnaute Occasionnel

• 7 Juin 2020

• #3

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.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 7 Juin 2020

• #4

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

les deux dernières cellules pleines de la colonne B

Cliquez pour agrandir...

????

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2020

• #5

Bonsoir rounil09, jmfmarques,

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

VB:

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+

 

Pièces jointes

• Fusion(1).xlsm

  18.1 KB · Affichages: 9

Vote positif 0 Vote négatif

rounil09

XLDnaute Occasionnel

• 7 Juin 2020

• #6

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

 

Vote positif 0 Vote négatif