Discussion :

[joenas13]

Bonjour à tous,

J’ai un petit problème (comme beaucoup dans ce forum) concernant le redimensionnement des cellules fusionnées.

Afin de résoudre ce problème j’ai eu une idée de Macro que je n’arrive malheureusement pas à mettre en place (je ne suis pas expert en VB malheureusement)

Le cas est les suivant :

J’ai créé un tableau qui se trouve dans les colonnes B C et D.
Chaque case de ce tableau est en fait une cellule fusionnée sur 3 lignes (1,2,3 – 4,5,6…etc).

Je souhaite réaliser une macro qui réaliserait la tache suivante :
A chaque fois qu’une cellule du tableau est sélectionnée, le curseur se décalerait sur la colonne A, se placerait une ligne en dessous et rajouterai une ligne. Ainsi la ligne serait agrandie d’une case à chaque fois que j’exécuterai cette macro.

Mon problème est aussi bête que ça !

Quelqu’un peut m’aider ? J’espère que oui, ça impressionnerait mon boss si j’arrivait à finaliser mon fichier Excel !

Merci par avance

[Gorfael]

Salut joenas13 et le forum

ça impressionnerait mon boss

Au lieu d'essayer d'impressionner ton boss, essaie de nous impressionner : Je ne comprends pas ce que tu veux faire.
B1, B2, B3 sont fusionnées, de même que C1, C2, C3 et D1, D2, D3 même chose pour les lignes 4, 5 et 6. Jusqu'à là, je comprends

si je sélectionne C1(fusionnée) ? la macro est supposée faire quoi ?
Si c'est la cellule D4(fusionnée) ?
Pas clair, pas clair
A+

[House MD]

Je ne suis pas sur non plus de bien comprendre, toutefois, si cela peut t'aider, voici comment :

1/ ajouter une ligne au-dessous de le cellule sélectionnée
2/ sélectionner la cellule en colonne A de la ligne ajoutée

Colle ceci dans le code de la feuille en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public bool As Boolean
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count > 1 Then Exit Sub
If bool = False Then
    Rows(Target.Row + 1).Insert
    bool = True
    Cells(Target.Row + 1, 1).Select
    bool = False
End If
End Sub

Cependant, toute sélection de N'IMPORTE QUELLE cellule ajoutera une ligne : cela t'empêchera de saisir des valeurs...

Dis-moi si tu veux des améliorations.
Alexandre

(PS : je trouve beaucoup plus logique de vouloir épater son boss que ceux à qui on demande de l'aide... )