Discussion :

[trezz]

Bonjour

Voila je voudrai affecter une macro insertion de ligne à une cellule pour donner une certaine à cette dernière.
L'idéal serai que la macro insertion de ligne se déclenche quand je clic sur une cellule.

[mercatog]

Voila je voudrai affecter une macro insertion de ligne à une cellule pour donner une certaine à cette dernière.

Il manque quelque chose.

L'idéal serai que la macro insertion de ligne se déclenche quand je clic sur une cellule.

Quelle cellule à sélectionner (cliquer) et où la ligne sera insérée?

[Igloobel]

Salut,

d'après ce que je comprend tu as besoin de faire une macro événement sur ta feuille du genre :

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "changement"
End Sub

A la place du Msgbox tu crée ton insertion de ligne et tu recupères l'adresse de ta cellule par le Target

Voilà

Tu dis si cela te convient ou pas

@+

[trezz]

Dsl la fatigue se faisait sentir ...

Concrètement je voudrai que quand je clic sur ''D6'' sa déclenche ma macro qui insert une ligne en 9.

[Marc-L]

Bonjour,

pour le code de l'insertion de ligne, tu peux le faire directement en utilisant l'Enregistreur de macros ! …

Ensuite dans le module de classe de la feuille, tu copies le code dans l'évènement

Worksheet_SelectionChange en y testant Target.Address …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[trezz]

Sa fait que peut de temps que j'ai commencer à toucher au macro alors j'ai du mal à me faire au evenementielles

[Marc-L]

Pas grave ! Montre - nous au moins ton code pour l'insertion de ligne ! …

[trezz]

Pour l'insertion c'est bon mais c quoi le module de classe de la feuille

Code :

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

1
2
3
4
5
Rows("9:9").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("Q8").Select
    Selection.AutoFill Destination:=Range("Q8:Q9"), Type:=xlFillDefault
    Range("A1").Select