Fusionnez des cellules après validation.

Version imprimable

Bonjour,

Je voudrais que à la suite de la validation de mon formulaire, certaines cellules se fusionnent et que le texte soit centré :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    ElseIf (CheckBox5 And CheckBox2) = True Then
        L = Sheets("S").Range("D65000").End(xlUp).Row + 1
        With Sheets("Suivi Livret A")
            .Range("D" & L).Value = TextBox4
            .Range("E" & L).Value = TextBox4
            .Range("F" & L).Value = TextBox4
            .Range("G" & L).Value = TextBox4
            .Range("H" & L).Value = TextBox4
        End With
 
Activecells.Merge

J'aimerai que les cellules D,E,F,G,H se fusionnent.... Merci pour votre aide.

Bonjour,

Voici un exemple de code que j'ai utilisé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Application.DisplayAlerts = False
Range("A1:B10").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
Application.DisplayAlerts = True

J'espère que ce code t'aidera.

24/08/2017, 14h27
djebalves

Citation:

Envoyé par electrons

Bonjour,

Voici un exemple de code que j'ai utilisé

Sauf que ton code, prend en compte les cellules que tu défini en haut. Moi comme ta pu voir le formulaire se met à la dernière ligne non utilisé et et inscrit ces informations.
24/08/2017, 14h51
riaolle

Bonjour,
L'enregistreur de macro nous indique que la commande pour fusionner des cellules est Merge :

Code:

Range(la plage à fusionner).Merge

Il suffit donc de remplacer la plage à fusionner par la plage que tu veux :

Code:

.Range("D" & L & ":H" & L).Merge
24/08/2017, 14h58
djebalves

Citation:

Envoyé par riaolle

Bonjour,
Il suffit donc de remplacer la plage à fusionner par la plage que tu veux :

Code:

.Range("D" & L & ":H" & L).Merge

Voici le code que j'ai inscrit :

Code:

Sheets("Suivi employé").Range("D" & L & ":H" & L).Merge.Value = TextBox4

Il me stipule erreur d'éxécution '424' objet requis.
24/08/2017, 15h09
riaolle
Il faut faire l'un après l'autre :
Code:

1 2 3 4 With Sheets("Suivi Livret A") .Range("D" & L).Value = TextBox4 .Range("D" & L & ":H" & L).Merge End With
Merge est une action que l'on effectue sur un objet Range. Value est une propriété de l'objet Range.
Prenons un exemple de "la vie quotidienne". Soit l'objet fenêtre. Une action est "ouvrir". Une propriété est la "couleur" de la fenêtre. Toi tu écris fenêtre.ouvrir.couleur = rouge. En gros, tu dis la phrase suivante : "la couleur de ouvrir la fenêtre est rouge". Ca ne va pas. D'abord, on ouvre la fenêtre, puis on lui attribue la couleur rouge (ou l'inverse).
Tu vois le truc ?

Rebonjour,

Voici le code qui fusionne les cellules, Attention, seule la cellule de gauche sera centrée, le contenu des autres est supprimé lors de la fusion. Si tu veux garder toutes les cellules en les concatenant, il faut créer au préalable un "String" qui va contenir l'ensemble des différents textes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Range(Cells(L, 4), Cells(L, 8)).Select 'Le 4 correspond au D et le 8 au H Application.DisplayAlerts = False With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Application.DisplayAlerts = True
Bon travail et ne pas oublier le résolu.... si OK

24/08/2017, 15h17
djebalves

Merci pour l'info, très sympa.