Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
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 ?
 

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…