Bonjour à tous...
N'étant pas très calé en vba, j'en viens à vous demander de l'aide...
Pour faciliter la visibilité dans une base de données clients, j'ai créé une feuille récapitulative qui reprend toutes les valeurs de ces clients (avec une fonction rechercheV : donc je dois noter soit le numero du client, soit son nom et toutes les données modifiables se retrouvent dans cette feuille)...
Cela fonctionne très bien,
Mais j'aimerai pouvoir modifier directement ces données en créant, par exemple, un userform qui modifierait ces valeurs...
j'ai créé l'useform et copié tout les titres (en utilisant les "label", par contre je n'arrive pas à copier les valeurs (dans des "textbox") car le numero de ligne dépend du numero de dossier.
Malgré pas mal d’essai de codes, je dois dire que je suis bloqué...
Merci de votre aide, si vous avez besoin d'info supplémentaire, n'hésitez pas...
pour info : ce que j'ai déjà :
au lancement de l'userform => affichage des titres :
j'ai testé ce code sur la derniere ligne à modifiée... je pense etre +/- sur la bonne voie
Il faut que je crée une variable qui détecte la bonne ligne en fonction du numero de client...
Merci d'avance à tous les courageux
N'étant pas très calé en vba, j'en viens à vous demander de l'aide...
Pour faciliter la visibilité dans une base de données clients, j'ai créé une feuille récapitulative qui reprend toutes les valeurs de ces clients (avec une fonction rechercheV : donc je dois noter soit le numero du client, soit son nom et toutes les données modifiables se retrouvent dans cette feuille)...
Cela fonctionne très bien,
Mais j'aimerai pouvoir modifier directement ces données en créant, par exemple, un userform qui modifierait ces valeurs...
j'ai créé l'useform et copié tout les titres (en utilisant les "label", par contre je n'arrive pas à copier les valeurs (dans des "textbox") car le numero de ligne dépend du numero de dossier.
Malgré pas mal d’essai de codes, je dois dire que je suis bloqué...
Merci de votre aide, si vous avez besoin d'info supplémentaire, n'hésitez pas...
pour info : ce que j'ai déjà :
au lancement de l'userform => affichage des titres :
Sub UserForm_activate()
Label1 = Sheets("SUIVI FACTURE").Range("C1").Value
Label2 = Sheets("SUIVI FACTURE").Range("D1").Value
Label3 = Sheets("SUIVI FACTURE").Range("E1").Value
Label4 = Sheets("SUIVI FACTURE").Range("F1").Value
Label5 = Sheets("SUIVI FACTURE").Range("G1").Value
Label6 = Sheets("SUIVI FACTURE").Range("H1").Value
Label7 = Sheets("SUIVI FACTURE").Range("I1").Value
Label8 = Sheets("SUIVI FACTURE").Range("J1").Value
Label9 = Sheets("SUIVI FACTURE").Range("K1").Value
Label10 = Sheets("SUIVI FACTURE").Range("L1").Value
Label11 = Sheets("SUIVI FACTURE").Range("M1").Value
Label12 = Sheets("SUIVI FACTURE").Range("N1").Value
Label13 = Sheets("SUIVI FACTURE").Range("O1").Value
Label14 = Sheets("SUIVI FACTURE").Range("P1").Value
Label15 = Sheets("SUIVI FACTURE").Range("Q1").Value
Label16 = Sheets("DATES").Range("C1").Value
Label17 = Sheets("DATES").Range("d1").Value
Label18 = Sheets("DATES").Range("e1").Value
Label19 = Sheets("DATES").Range("f1").Value
Label20 = Sheets("DATES").Range("g1").Value
Label21 = Sheets("Achats").Range("c1").Value
Label22 = Sheets("Achats").Range("d1").Value
Label23 = Sheets("Achats").Range("e1").Value
Label24 = Sheets("Achats").Range("f1").Value
Label25 = Sheets("Achats").Range("g1").Value
Label36 = Sheets("Achats").Range("h1").Value
Label26 = Sheets("Achats").Range("i1").Value
Label27 = Sheets("Achats").Range("j1").Value
Label28 = Sheets("Achats").Range("k1").Value
Label29 = Sheets("Achats").Range("l1").Value
Label30 = Sheets("Achats").Range("m1").Value
Label31 = Sheets("Achats").Range("n1").Value
Label32 = Sheets("Achats").Range("o1").Value
Label33 = Sheets("Achats").Range("p1").Value
Label34 = Sheets("Achats").Range("q1").Value
Label35 = Sheets("Achats").Range("r1").Value
End Sub
j'ai testé ce code sur la derniere ligne à modifiée... je pense etre +/- sur la bonne voie
Private Sub modif_Click()
Lg = Sheets("Recherche").Range(c1).Value - 999
Dim Lg As String
Lg = Sheets("Achats").Cells(65536, 1)
Sheets("Achats").Cells(Lg, "R").Value = UserForm2.TextBox35.Value
End Sub
Il faut que je crée une variable qui détecte la bonne ligne en fonction du numero de client...
Merci d'avance à tous les courageux
Dernière édition: