Ouverture d'un nouvel Usf pour modification de données

Bonjour à tous

Voici mon probleme du jour:

j'ai 1 premier Usf (Client) qui interroge une Base de donnée mais quand je Double Click sur un nom (code client), je voudrais que ça me lance un autre USF (ClientModification)

'************************
'USF Client
'************************

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim codeclient As String

codeclient = Me.ListBox1.List(Me.ListBox1.ListIndex)

'   Besoin:        appeler UserForm_Initialize de l'USF ClientModification

Call Quitter_Click

End Sub

ça c'est la première partie

Ensuite, dans mon nouvel Usf, il faut que cela me remplisse mes textbox comme indiqué afin que je puisse les contrôler et les modifier si besoin.

le tableau d'information est dans la même fichier excel et se nomme : Tab_FichClients

TextBox1 donne la ligne et le Col indiqué donne la colonne

tous les textBox doivent être modifiable SAUF TextBox1 qui doit être verrouillé

'****************************
' USF ClientModification
'****************************

Private Sub UserForm_Initialize()

'   Besoin:        intergrer le "codeclient" en textbox1 selectionner dans la recherche Client de l'usf Client

TextBox1 = codeclient   ' (col 1) recuperer de l'usf Client

' Besoin :        de ce codeclient, recupérer les infos dans Tab_FichClients et les integrer a l'USF
textbox2=date de naissance '(col 10)
textbox10=mail '(col 9)
textbox9=telephone '(col 8)
textbox8=Ville '(col 7)
textbox7=CP '(col 6)
textbox6=adresse '(col 5)
textbox13=Prenom '(col 4)
textbox11=Nom '(col 3)
textbox12=Civilite '(Col 2)

End Sub

vient enfin l'objectif réel de ce projet: le bouton Modifier

cela doit remplacer les informations en place par les informations saisie (remplacer ou non) dans l'usf

Private Sub Modification_Click()
With Feuil2 ' feuille clients

    If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        .Unprotect 'la Feuil2 est proteger

        With .ListObjects("Tab_FichClients")

'   Besoin:            selectionner la ligne du code client pour y integrer les modifications

            With .DataBodyRange
                .Item(L, 1) = TextBox1.Value 'code Client
                .Item(L, 2) = TextBox12.Value 'civilite
                .Item(L, 3) = Application.Proper(TextBox11.Value) 'nom
                .Item(L, 4) = Application.Proper(TextBox13.Value) 'prenom
                .Item(L, 5) = TextBox6.Value 'adresse
                .Item(L, 6) = Format(TextBox7.Value, "0# ###") 'cp
                .Item(L, 7) = Application.Proper(TextBox8.Value) 'ville
                .Item(L, 8) = Format(TextBox9.Value, "0# ## ## ## ##") 'tel
                .Item(L, 9).Hyperlinks.Add Anchor:=.Item(L, 9), Address:="mailto:" & TextBox10.Value
                .Item(L, 10) = Format(CDate(TextBox2.Value), "dd/mm/yyyy") 'date naissance

            End With
        End With

        .Protect

    End If
End With
End Sub

Voili Voilou mon nouveau petit projet... juste modifier des lignes d'une base client!

merci à ceux qui pourront m'aider

Bonjour,

Un modèle de UserForm Saisie, Recherche, Modification, Suppression adaptable :

A+

je te remercie Galopin

j'ai regardé un peu le code... heu comment dire... trop complexe pour mon niveau

Il va peut-être falloir penser à t'y mettre sérieusement ? Parce que ce n'est pas plus compliqué que de pondre 2 UserForm.

Multiplier les UserForm ne simplifie rien du tout. Ça ne fait que multiplier les problèmes...

Ajouter, Modifier, Rechercher et Supprimer c'est le même Userform c'est Ecrire ou rechercher la bonne ligne une fois qu'on a la bonne ligne Lier/Ecrire/Modifier c'est exactement le même UserForm que tu as...

Après si tu as besoin d'explication je ne suis pas avare... Voir en MP (Message privé)

On n'est jamais débutant que les premières fois. Travaillez, Donnez vous de la peine et les progrès viendront rapidement !

A+

Bonjour a tous

je clos ce sujet NON resolu

en effet, mon projet a changé suite à la proposition de Galopin (mise en forme, methode),

Bien a vous