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

Double clic recopie la ligne sélectionnée

Créer une discussion

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

pascal21

XLDnaute Barbatruc
bonjour le forum
Grace à ce code de Dull
je recopie une ligne avec un double clic
j'aimerais faire évoluer ce code
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim DerLig As Integer
If Not Intersect([A4:a500], Target) Is Nothing Then
DerLig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
   Range(Target.Offset(0, 6).Address & ":" & Target.Address).Copy _
    Destination:=Sheets("Feuil2").Range("A" & DerLig)
     End If
End Sub
comment faire si je double clic sur une cellule de la colonne F, d'avoir en copie les colonnes A ; B ;F et G
et si je D/clic sur une cellule de la colonne C d'avoir en copie les colonnes A ;B ; c et D uniquement
je vois bien qu'il faut modifier ici mais je ne sais pas quoi y mettre
Code: 
Range(Target.Offset(0, 6).Address & ":" & Target.Address).Copy _
    Destination:=Sheets("Feuil2").Range("A" & DerLig)
merci
 
Dernière édition:
Trier par date Trier par votes
Re : Double clic recopie la ligne sélectionnée

Bonjour

Ci dessous le code avec un début de réponse

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim DerLig As Integer
With Sheets("Feuil2")
If Not Intersect([f4:f500], Target) Is Nothing Then
   DerLig = .Cells(Rows.Count, 1).End(xlUp).Row +1 
   .Range("a" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("a" & Target.Row).Value
   .Range("b" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("b" & Target.Row).Value
   .Range("f" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("f" & Target.Row).Value
   .Range("g" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("g" & Target.Row).Value
End If
If Not Intersect([c4:c500], Target) Is Nothing Then
   DerLig = .Cells(Rows.Count, 1).End(xlUp).Row +1 
   .Range("a" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("a" & Target.Row).Value
   .Range("b" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("b" & Target.Row).Value
   .Range("c" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("c" & Target.Row).Value
   .Range("d" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("d" & Target.Row).Value
End If

End Sub

A compléter pour la copie.

A tester

JP
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Double clic recopie la ligne sélectionnée

Bonjour,

Si j'ai bien compris :

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect([C4:C65536,F4:F65536], Target) Is Nothing Then Exit Sub
Dim DerLig As Long
Cancel = True
DerLig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Cells(Target.Row, 1).Resize(, 2).Copy Sheets("Feuil2").Cells(DerLig, 1)
[COLOR="red"]Target.Resize(, 2).Copy Sheets("Feuil2").Cells(DerLig, Target.Column)[/COLOR]
End Sub

Edit : si l'on veut qu'en Feuil2 les cellules soient toujours contiguës, remplacer la ligne en rouge par :

Code: 
Target.Resize(, 2).Copy Sheets("Feuil2").Cells(DerLig, [COLOR="Red"]3[/COLOR])

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Double clic recopie la ligne sélectionnée

bonjour Job75 jp14
jp14 j'ai une erreur sur ton code à la ligne coloriée en rouge
Code: 
Cancel = True
Dim DerLig As Integer
With Sheets("Feuil2")
If Not Intersect([f4:f500], Target) Is Nothing Then
  [COLOR="red"] DerLig = .Range(Rows.Count).End(xlUp).Row + 1[/COLOR]
   .Range("a" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("a" & Target.Row).Value
   .Range("b" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("b" & Target.Row).Value
   .Range("f" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("f" & Target.Row).Value
   .Range("g" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("g" & Target.Row).Value
End If
If Not Intersect([c4:c500], Target) Is Nothing Then
   [COLOR="Red"]DerLig = .Range(Rows.Count).End(xlUp).Row + 1[/COLOR]
   .Range("a" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("a" & Target.Row).Value
   .Range("b" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("b" & Target.Row).Value
   .Range("c" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("c" & Target.Row).Value
   .Range("d" & DerLig).Value = Sheets(Target.Worksheet.Name).Range("d" & Target.Row).Value
End If

End With
et job75 ton code ne recopie que les colonnes A et B quelque soit la colonne choisie pour le d/clic C ou F
 
Vote positif 0 Vote négatif
Re : Double clic recopie la ligne sélectionnée

Bonjour

Je pensais l'avoir corrigé, le code permet l'utilisation avec la version 2007

Ci dessous le code corrigé
DerLig = .Cells(.Rows.Count, 1).End(xlUp).Row +1

a tester

JP
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Double clic recopie la ligne sélectionnée

re
même rectifié les 2 codes ne recopient que A et B il doit y avoir un problème sur le classeur
je teste sur un brouillon
edit
sur le brouillon, c'est pire ça ne recopie que A
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Double clic recopie la ligne sélectionnée

par contre sur excel 2007 ça fonctionne
je viens de faire un essai
edit:
bon bin!! ça fonctionne maintenant j'ai juste fermé et ouvert excel 2003
comprenne qui pourra
merci à tout les deux pour votre aide
job j'ai retenue ta solution qui regroupe les données
 
Dernière édition:
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 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
151
anthoYS
  • 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
277
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
254
anthoYS
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
745
un internaute
U
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
264
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
488
sylvanu
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
273
KTM
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
568
TooFatBoy
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
768
SAMUAL_2023
S
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
  • 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
836
Nicolas JACQUIN
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
335
PRy
P
  • 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
724
anthoYS
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…