Recopier qu'une seule ligne

Bonjour a tous, forum bonjour,

J'ai récupérer un fichier sur le site qui va m'être très utile moyennant svp deux petites modifications.

Je peux avec ce fichier en double-cliquant dans l'onglet BDD recopier la ligne sélectionner dans l'onglet DEVIS.

Mais je souhaiterai ne recopier qu'une seule ligne a la fois sur un double-clic.

Je n'ai pas utilité d'afficher plus de lignes comme le fait actuellement fichier.

Merci pour votre aide, bonne journée a tous.

Cordialement Ray

4classeur-v2.xlsm (27.08 Ko)

Bonjour,

A tester

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Wks As Worksheet
Dim LastRow As Long, i As Long

    Set Wks = Worksheets("Devis")
    LastRow = Wks.Range("A" & Rows.Count).End(xlUp).Row + 1
    i = Target.Row
    Wks.Range("A" & LastRow & ":D" & LastRow).Value = Range("A" & i & ":D" & i).Value
    Cancel = True
End Sub

Salut James007

Merci bien pour ta réponse rapide, c'est gentil a toi.

Bon, j'ai essayer ton code qui fonctionne très bien, merci.

Je vais compléter le fichier comme j'ai besoin et voir ce que ca donne.

Une agréable et bonne journée.

Cdlt Ray

Bonjour,

De rien ...

Si tu as besoin du fichier test ...

Re salut james007,

Merci pour le fichier test.

Serait t'il possible svp de faire un code pour effacer une sélection par erreur.

A savoir que l'onglet "BDD" décaler commencera en A18:A60, (lignes A1:A18) réserve pour logo et infos divers.

Et l'onglet "Devis" commencera en A2:A60

Car une erreur peut apparaitre plus tard en relisant et avant validation et donc effacer la bonne ligne en tenant compte du décalage des deux onglets.

Je ne sais pas si cela serai possible avec un double / double-clic.

Ex un premier double-clic sélectionne une ligne et un autre double-clic (dé-sélectionne) la ligne.

Merci pour ton aide, une bonne après midi a toi.

PS: Svp, tu peux faire la modif si possible sur le fichier "test" envoyer, pas modifier encore, mais en cours.

Cdlt Ray

Bonjour,

Ci-joint ta Version 3 ...

avec des commentaires explicatifs ajoutés dans tes deux macros ...

Salut james007,

Merci pour le retour du fichier,

J'ai opter et essayer pour un Clic-droit qui fonctionne.

J'ai donc transférer le code ci dessous dans l'onglet BDD.

Mais pour que le clic droit soit fonctionnel dans l'onglet DEVIS il me faut lui dire d'aller

dans l'onglet DEVIS pour effacer et je n'arrive a le faire.

Si tu peux svp, me faire une correction dans le code ci dessous.

Merci a toi et bonne journée.

Cdlt Ray

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column > 4 Then Exit Sub

Rows(Target.Row).Delete

Cancel = True

End Sub

Bonjour,

Ta nouvelle est assez différente de la précédente ...

Si je comprends bien ... tu cherches à Ajouter / Supprimer tes Articles depuis la BDD vers ton Devis ...

Ci-joint ton fichier test en Version 4

En espèrant que cela corresponde à ton attente ...

Re james007,

Merci pour le fichier,

Si je comprends bien ... tu cherches à Ajouter / Supprimer tes Articles depuis la BDD vers ton Devis ...

Réponse: Oui c'est exactement ça.

Sinon, j'ai une (erreur exécution 13) incompatibilité de type, voir le code ci- dessous, la ligne se mets en jaune.

Juste quand je veux effacer une ligne sur un clic droit.

Merci a toi, a plus tard.

Cdlt Ray

x = Application.Match(Target.Value, Wks.Range("B:B"), 0)

Content que tu aies pu résoudre ton problème

Merci pour tes remerciements

Rechercher des sujets similaires à "recopier seule ligne"