Effectuer modification sur 2 Bdd en même temps

[AreYouBush]

Bonsoir le forum,

Dans mon formulaire quand j'ajoute un personnel j'arrive a l'enregistrer sur 2 feuilles simultanément "Bdd" et "Bdd FIA". Mais quand je veux modifier un personnel déjà créer, je n'arrive pas à effectuer ce changement sur les 2 feuilles.

Le code du bouton (qui n'est pas de moi) pour valider la modification est comme ci-dessous:

Private Sub CommandButton3_Click()
Dim i As Byte

With ComboBox1
For i = 1 To 85
     Sheets("Bdd").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
     Controls("TextBox" & i) = ""
Next i
    .ListIndex = -1
End With

End Sub

Que faudrait-il rajouter pour que la modification s'effectue aussi sur "Bdd FIA"

J'ai beau bidouiller je trouve pas 🙂

Merci d'avance.

 

[Compte Supprimé 979]

Re : Effectuer modification sur 2 Bdd en même temps

Salut AreYouBush,

Doit on te surnomer AreYouBlind ... 🙂
Quand tu regardes ton code, ça ne te parait pas évident !?

Ou alors tu ne nous as pas tout dis 😉

Private Sub CommandButton3_Click()
Dim i As Byte
 
With ComboBox1
For i = 1 To 85
     Sheets("Bdd").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
     Sheets("Bdd FIA").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
     Controls("TextBox" & i) = ""
Next i
    .ListIndex = -1
End With
End Sub

A+

 

[AreYouBush]

Re : Effectuer modification sur 2 Bdd en même temps

🙂 J'étais pas loin. Ça fonctionne!

Merci beaucoup.

Bisous

 

[AreYouBush]

Re : Effectuer modification sur 2 Bdd en même temps

Bonsoir le forum,

Je fais remonter le fil pour une question qui découle de la première.

Est il possible de faire des modifications sur 2 bases différentes mais qui ont des entrées identiques.

Voir fichier joint.

Merci d'avance