[VBA-Excel] récupération d'une cellule vers un autre tableau

Bonjour,

J'ai commencer par créer un formulaire qui enregistre les données sur un tableur, j'aurai aimé savoir s'il était possible de récupérer via le code VBA une cellule d'un tableur pour l'appliquer sur un autre.

Je m'explique, Je saisie mes données sur le formulaire, je les valide ce qui a pour effet de les enregistrer sur un tableur, avec ces données ci ajoute un ID qui est le résultat de ce code "Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1" je veux recuperer l'ID sur une table et l'utiliser sur une autre feuille de calcule.
Merci beaucoup
Tres respectueusement

Jfin

Saut

oui c’est possible mais sans fichier exemple il sera difficile de te répondre

oui évidement

Alors c'est brouillon mais voila ce que ça donne :

Private Sub Ajouter_Click()
Sheets("monster_spawn_dungeons").Activate ' salle de dj
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(0, 1).Select
        ActiveCell = S1
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = S2
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = 7
        Selection.Offset(0, 1).Select
        ActiveCell = NomDJ
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(0, 1).Select
        ActiveCell = S2
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = S3
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = 7
        Selection.Offset(0, 1).Select
        ActiveCell = NomDJ
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(0, 1).Select
        ActiveCell = S3
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = S4
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = 7
        Selection.Offset(0, 1).Select
        ActiveCell = NomDJ
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(0, 1).Select
        ActiveCell = S4
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = S5
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = 7
        Selection.Offset(0, 1).Select
        ActiveCell = NomDJ
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(0, 1).Select
        ActiveCell = S5
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = S0
        Selection.Offset(0, 1).Select
        ActiveCell = 400
        Selection.Offset(0, 1).Select
        ActiveCell = 7
        Selection.Offset(0, 1).Select
        ActiveCell = NomDJ
        '*******************************************************
        ' *********************monstre dj***********************
        '*******************************************************
        Sheets("monster_spawn_dungeons_groups").Activate
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = WorksheetFunction.Max(Range("A:A")) + 1
        Range("A1").Select
        Selection.End(xlDown).Select
        Selection.Offset(0, 1).Select
        'ActiveCell = 'ID pris sur la feuille monster_spawn_dungeons
        Selection.Offset(0, 1).Select
        ActiveCell = M1
        Selection.Offset(0, 1).Select
        ActiveCell = 1
        Selection.Offset(0, 1).Select
        ActiveCell = NomDJ

End Sub

Ainsi en appuyant sur le bouton ça devrait ajouter sur un tableur la première partie, et sur un autre tableur la deuxième partie.
le code est à parfaire mais c'est mon ébauche .
Je vous remercie de votre aide

pour etre plus simple a imaginer les données doivent se stockés dedans

Salut

je comprend pas encore ce que tu veux vraiment ! si tu veux , un fichier excel avec un peu de détails pour m aider a comprendre.

oui avec plaisir, pour faire simple je veux intégré des ID de monstres pour un jeu, dans des donjons, ainsi avec le premier tableau j'integre le donjon et sa salle, et dans le deuxieme j'y intègres les monstres. ce qui lie le 1er et le 2eme tableau c'est l'ID du donjon, qui devient le dungeons_spawnID sur le 2eme tableau.

Ducoup de mon formulaire je marque les coordonnées des salles du donjon, les monstres qui le compose et ainsi il viendrait compléter le tableur complet, j'ai fais une bonne partie mais il me manque la méthode pour récupérer les cellules ID du premier tableau pour les faire s'inscrire dans la cellule dungeon_spawnID