Copier/Coller des cellules par double click

Bonjour Forum,

Dans un fichier, j'ai 3 feuilles de calcul soit :
- 1 base de données contenant des joueurs d'un département - BDD59 -
- 1 base de données contenant des joueurs d'un AUTRE département - BDD62
- 1 feuille de calcul nommé "Inscription"

Je cherche de faire basculer des renseignements de BDD59 et ou BDD62 dans la feuille "Inscription" par la méthode du double click.

Ces enregistrements s'enregistrant les uns en dessous des autres,

La structure de BDD59 et BDD62 sont identiques, mais je veux basculer uniquement les renseignements des colonnes A,B,G,H,I et J

Et ne pas autoriser l'enregistrement si dans la colonne K, il y a quelques choses

Merci d'avance

Bonjour xababa, bonjour le forum,

Ne manquerait-il pas la Série dans tes bases de données ?
Si soui, tu adapteras le code ci-dessous à mettre dans les deux bases de données :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim PL As Range Dim DEST As Range   If Application.Intersect(Target, Me.UsedRange) Is Nothing Or Target.Row = 1 Then Exit Sub Set PL = Application.Union(Cells(Target.Row, "A"), Cells(Target.Row, "B"), Cells(Target.Row, "G"), Cells(Target.Row, "H")) Set DEST = Worksheets("Inscription").Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) PL.Copy DEST Cells(Target.Row, "A").Value = Cells(Target.Row, "A").Value & "*" End Sub

---

La derniere ligne de code rajoute une astérisque au club pour que tu saches que cette ligne a déjà été envoyée. Supprime la si elle ne te convient pas...