Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs

[woira95]

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]

Bonjour,
Un petit classeur exemple serait le bienvenu pour comprendre ce que vous demandez .
Je suppose que les valeurs sont celles de la cellule E mais qu'en est-il de la colonne F ?

 

[woira95]

Voici le fichier.
Dans le cas la, la colonne E et F sont fusionné pour une meilleur mise en page...

 

[fanch55]

Je ne vois pas trop la finalité de l'exercice mais voici une proposition de code:

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

 

[woira95]

Merci beaucoup pour ton aide !!!