Recherche le nom et la date et remplace les données USERFORM
Bonjour a toute et a tous,
Je viens de nouveau vous demander de l'aide pour un de mes fichiers.
J'ai un fichier Excel qui se nomme niveau-1.xlsm avec deux onglets un onglet choix et un onglet bd (powerquery qui est lié a un second fichier nommé BDD).
Dans mon fichier niveau-1.xlsm il y a un Userform, quand je sélectionne le nom et la date celui-ci m'affiche les résultats obtenus pour la personne à la date sélectionnée ( traitement, transféré, non transféré et traitement impossible) cette partie fonctionne très bien.
J'arrive à mon problème. Je voudrais que quand les résultats d'une personne et afficher et qu'on modifie une des valeurs dans les textbox (traitement, transféré, non transféré et traitement impossible) et qu'on clic sur MODIFICATIONS, il remplace l'enregistrement existant dans la BDD.
exemple : si Dupont test en date du 17/06/2021 ( les données dans la BDD)
traitement : 90 - je le remplace par 65
transféré : 5
non transféré : 10 je le remplace par 30
traitement impossible : 5
une fois que je clique sur modification il remplace les données dans la BDD
je retourne sur Dupont test en date du 17/06/2021 ( les données dans la BDD)
traitement : 65
transféré : 5
non transféré : 30
traitement impossible : 5
il y a déjà une macro modification dans l'userform1que je vous joint avec mes fichiers ci-dessous
Un grand merci a tous pour votre aide
cdt
Jérôme
Private Sub CommandButton1_Click()
Dim Ligne As Long
Dim Cel As Range
Dim wbk As Workbook
Dim sh As Worksheet
Dim fichierAutre As String
Dim CTRL As Control
For Each CTRL In Me.Controls
'If TypeOf CTRL Is MSForms.ComboBox Then
If Trim(Me.ComboBox1) = "" Then
If CTRL.Value = "" Then
CTRL.SetFocus
MsgBox "Vous devez séléctionner une personne pour une modification!"
Exit Sub
End If
End If
Next CTRL
If MsgBox("Voulez-vous modifier le traitement de " & Me.ComboBox1 & " " & Me.ComboBox2 & "?", _
vbQuestion + vbYesNo, "Modification") <> vbYes Then Exit Sub
'on ouvre la BDD
fichierAutre = "C:\Users\Users\Desktop\Nouveau dossier\BDD.xlsx"
Application.ScreenUpdating = False
Set wbk = Workbooks.Open(fichierAutre)
Set sh = wbk.Sheets("Feuil1")
With Sheets("Feuil1")
Set Cel = .Columns("H").Find(what:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Ligne = Cel.Row
.Range("M" & Ligne) = TextBox1
.Range("N" & Ligne) = TextBox2
.Range("O" & Ligne) = TextBox3
.Range("P" & Ligne) = TextBox3
End If
'on ferme la bdd
Set sh = Nothing
wbk.Close True
Set wbk = Nothing
End With
MsgBox "le traitement a ete realisé"
Exit Sub
End Sub