Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs

woira95

XLDnaute Nouveau
Bonjour à tous,

Je ne connais pas du tout le langage vba d'où ma vue ici...

J'aimerais fusionner des cellules vides partie des cellules avec valeurs à l'intérieur et donc après l'activer avec un bouton...

Exemple :

E F
38 setting
39 colling
40 heat Treatment
41
42
43 heat tratment
44 unitary control
45
46 cleaning
46 packaging

donc en résumé, où il y a les cases vides il faudrait les fusionner avec celle au-dessus ou en dessous. Puis ensuite peut-on fusionner la colonne E avec la F pour que sa sois fusionné et centré ?
Tout en sachant que je veux juste ces lignes précisément car au-dessus j'ai d'autre valeur et fusion qu'y ne doivent pas être changé.

Merci à ceux qui pourront m'éclairer à ce sujet !!
 

fanch55

XLDnaute Barbatruc
Je ne vois pas trop la finalité de l'exercice mais voici une proposition de code:
VB:
Sub Grouper_Lignes()
Dim Plage As Range, Cel As Range, F As Range, Group As Range
    Set Plage = [E38:E47]
    Plage.Resize(, 1).UnMerge
    For Each Cel In Plage
        If Cel <> "" Then
            Set F = Plage.Find("*", Cel)
            If F.Row <= Cel.Row + 1 Then
                Set Group = Cel.Resize(, 2)
            Else
                Set Group = Cel.Resize(F.Row - Cel.Row, 2)
            End If
            With Group
                .Merge
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
        End If
    Next
End Sub
 

Membres actuellement en ligne

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA