XL 2019 Alimenter des tableaux

[François14850]

Bonjour,

J'aimerais que mes tableaux dans mes feuilles " Entrées " & " Sorties " soit alimentés quand l'utilisateur clic sur le bouton " Ajouter " ou " Retirer " de l'onglet " Opérations ".

Pour l'instant, je suis juste arrivé à faire un copier coller des infos sans que les infos s'ajoutent.

Comme j'ai fait une protection par user et mdp... L'user est Admin et le mdp est admin

Merci d'avance à ceux qui pourront me venir en aide.

 

[patty58]

Bonjour François
Voici tes codes modifiés :

 

[patty58]

Sub ajout()

Dim wk_fichier As Workbook
Dim ws_operations As Worksheet
Dim ws_entrees As Worksheet
Dim ws_acces As Worksheet

'définier variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_operations = wk_fichier.Worksheets("Opérations")
Set ws_entrees = wk_fichier.Worksheets("Entrées")
Set ws_acces = wk_fichier.Worksheets("ACCES")

'copier coller cellules
DLigEnt = ws_entrees.Range("B65536").End(xlUp).Row + 1
ws_entrees.Cells(DLigEnt, 2) = ws_operations.Cells(6, 5)
ws_entrees.Cells(DLigEnt, 3) = ws_operations.Cells(6, 6)
ws_entrees.Cells(DLigEnt, 4) = ws_operations.Cells(6, 7)
ws_entrees.Cells(DLigEnt, 5) = ws_operations.Cells(11, 5)
ws_entrees.Cells(DLigEnt, 6) = ws_operations.Cells(15, 5)
ws_entrees.Cells(DLigEnt, 7) = ws_acces.Cells(9, 2)


End Sub

Sub retrait()

Dim wk_fichier As Workbook
Dim ws_operations As Worksheet
Dim ws_sorties As Worksheet
Dim ws_acces As Worksheet

'définier variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_operations = wk_fichier.Worksheets("Opérations")
Set ws_sorties = wk_fichier.Worksheets("Sorties")
Set ws_acces = wk_fichier.Worksheets("ACCES")

'copier coller cellules
DLigSor = ws_sorties.Range("B65536").End(xlUp).Row + 1
ws_sorties.Cells(DLigSor, 2) = ws_operations.Cells(6, 5)
ws_sorties.Cells(DLigSor, 3) = ws_operations.Cells(6, 6)
ws_sorties.Cells(DLigSor, 4) = ws_operations.Cells(6, 7)
ws_sorties.Cells(DLigSor, 5) = ws_operations.Cells(11, 5)
ws_sorties.Cells(DLigSor, 6) = ws_operations.Cells(15, 5)
ws_sorties.Cells(DLigSor, 7) = ws_acces.Cells(9, 2)


End Sub

 

[François14850]

Merci beaucoup Patty58, cela correspond totalement à mes attentes!

Bonne soirée.

 

[François14850]

Ah, un petit bug à l'ouverture, cela ne doit pas être méchant!!!

 

[patty58]

Bonsoir
Si autre problème, tu me renvoies ton nouveau fichier..
Bonne soirée

 

[François14850]

Je " vois " d'où le problème viens, mais c'est comment le régler!!!!
Comme par défaut le fichier se charge en mode invité, il y a un truc qui ne plait pas au chargement des 2 macros... mais quoi?!!!!!!!!!!!!!!!!!!!!! 🤔🤔🤔

 

[patty58]

Bonsoir
Je cale et n'ai pas beaucoup de temps. Reposte avec ton nouveau problème.
Avais-tu le même problème avant cette modif qui pourtant est minime ???
Bonne soirée

 

[François14850]

Pas de problèmes Patty58, je revois ça au calme demain et je te redis. Encore merci pour ton aide.
Bonne soirée