Discussion :

[djebalves]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[electrons]

Bonjour,

Voici un exemple de code que j'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[djebalves]

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.

[riaolle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(la plage à fusionner).Merge

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[djebalves]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Voici le code que j'ai inscrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il me stipule erreur d'éxécution '424' objet requis.

[riaolle]

Il faut faire l'un après l'autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[electrons]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[djebalves]

Merci pour l'info, très sympa.