Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insertion d'une ligne avec double clic sur une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nonobat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nonobat

XLDnaute Nouveau
bonjour
quand je clic dans une cellule (en colonne 1) je voudrais inserer une ligne
en dessous de celle ci

pour cela dans mon onglet j'ai mis :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End Sub

ce qui m'insere une cellule et non ma ligne entiere d'ou un decalage
pourriez vous m'aider svp
merci

ci joint l'exemple
 

Pièces jointes

Trier par date Trier par votes
Re : insertion d'une ligne avec double clic sur une cellule

Bonjour

tester ceci !!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Rows(Target.Row + 1 & ":" & Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : insertion d'une ligne avec double clic sur une cellule

Bonjour,

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Cancel = true évite le mode édition de la cellule clicquée
    Cancel = Target.Column = 1 And Target.Count = 1
    If Cancel Then Target(2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : insertion d'une ligne avec double clic sur une cellule


de cette façon ça insert une ligne au dessus et c'est en dessous la demande
 
Vote positif 0 Vote négatif
Re : insertion d'une ligne avec double clic sur une cellule

Salut Gilbert,

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Cancel = true évite le mode édition de la cellule clicquée
    Cancel = Target.Column = 1 And Target.Count = 1
    If Cancel Then Target(2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

A+
 
Vote positif 0 Vote négatif
Re : insertion d'une ligne avec double clic sur une cellule

bonjour gilbert_RGI ; bonjour Hasco

merci pour vos 2 solutions
dessous et dessus
excellent comme ça j'ai 2 choix

et c'est bien aussi d’être en dessous lol

merci encore
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
90
anthoYS
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
65
anthoYS
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
201
TooFatBoy
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
606
Nicolas JACQUIN
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
476
anthoYS
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
343
AlCapone
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
450
sylvanu
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
456
spike29
S
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
681
sylvanu
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
500
jeff1494
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
439
ManuEven
M
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
650
thunder23
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
312
danielco
D
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
703
TooFatBoy
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
610
Lu76Fer
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
378
sebastien176
S
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
554
sylvanu
A
  • Résolu(e)
XL 2016 Suivant un double-clic sur une cellule, mettre une couleur sur autres cellules.
Réponses
2
Affichages
446
Al1_44
A
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
480
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…