Discussion :

[xababaTT]

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

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...