OVH Cloud OVH Cloud

Insérer une ligne avec une Macro excel

7 réponses
Avatar
Utilisateur1
Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL

7 réponses

Avatar
isabelle
bonjour,

Range("B3").Select
Range("B3").EntireRow.Insert Shift:=xlDown

isabelle


Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL


Avatar
anonymousA
bonsoir,

tu connais la poursuite infernale?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = False
Selection.EntireRow.Insert Shift:=xlDown
Application.EnableEvents = True

End Sub

si tu utilises cette procédure, quel que soit la cellule que tu cliques tu
obtiendras une ligne insérée. Si tu veux ne restreindre cette possibilité
qu'à 1 groupe de cellules, il te faudra faire un test sur target.


Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL





Avatar
poy-poy
Bonjour JL,

Tu mets cette macro dans un module de ton classeur.

sub insereligne()

ActiveCell.EntireRow.Insert shift:=xlDown

end sub

Estce bien cela que tu voulais ?

Cordialement
Benjamin


Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL





Avatar
Utilisateur1
Merci à tous
Avé
JL

"Utilisateur1" a écrit dans le message de
news:41a4b9df$0$1156$
Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL




Avatar
jps
ou bien

ActiveCell.EntireRow.Insert Shift:=xlDown

histoire de compléter la réponse de notre geôlière
jps

"isabelle" a écrit dans le message de
news:
bonjour,

Range("B3").Select
Range("B3").EntireRow.Insert Shift:=xlDown

isabelle


Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL




Avatar
jps
oups, merdum, benjamin, pas vu ta réponse, forcément brillante puisque c'est
la même que la mienne....
jps

"poy-poy" a écrit dans le message de
news:
Bonjour JL,

Tu mets cette macro dans un module de ton classeur.

sub insereligne()

ActiveCell.EntireRow.Insert shift:=xlDown

end sub

Estce bien cela que tu voulais ?

Cordialement
Benjamin


Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL







Avatar
poy-poy
On va dire que les grands esprits se rencontrent :-)

benjamin


oups, merdum, benjamin, pas vu ta réponse, forcément brillante puisque c'est
la même que la mienne....
jps

"poy-poy" a écrit dans le message de
news:
Bonjour JL,

Tu mets cette macro dans un module de ton classeur.

sub insereligne()

ActiveCell.EntireRow.Insert shift:=xlDown

end sub

Estce bien cela que tu voulais ?

Cordialement
Benjamin


Bonjour,

Je suis à la recherche d'une macro qui me permettrai d'insérer une ligne
complette sous un tableau Excel à partir de la case sélectinnée;
Exemple:
b3 sélectionnée
insérer la ligne b

Merci d'avance
JL