Formulaire Récupération/Modification/suppression

Bonjour le team;

Après avoir tourné le problème dans tous les sens, mon niveau limité en programmation VBA a atteint ses limites : Lol: : Lol:

problème :

- Quand j'ouvre mon formulaire le frame 1 " contrat" ne récupèrent pas les valeurs déjà présentes dans mon tableau.

PS : Les valeurs des différents contrats son récupérer à partir de la feuille commande.

Objectif :

- A l'ouverture du formulaire : afficher le contrat actuel présent dans la feuille tableau générale.- en cliquant sur le Combobox " Contrat" pouvoir choisir un autre type de contrat

.-Programmer la touche de navigations.je joins un fichier à ce sujet : mrgreen: Merci d'avance pour votre aide et votre temps : oops: : oops:

Salut,

Regardes ce que j'ai fait au niveau de la navigation si cela te convient,

thierry84 a écrit :

Regardes ce que j'ai fait au niveau de la navigation si cela te convient,

Bonjour thierry84

Merci beaucoup pour ta proposition, je viens de tester la navigation etça fonction très bien .

il reste la partie qui gère les contrats

Bonjour la team,

toujours pas de solution ou d'alternative à mon problème ?

finalement avec un peu de persévérance et beaucoup d'heure de documentation j'ai réussi a trouvé la solution en modifiant mon formulaire, juste avec un bouton modifier et créer un autre bouton supprimer séparément.

Je partage ma solution si ça peut aider quelqu'un :

Private Sub ComboBox1_Change()
'actualise toutes mes texbox
Dim cell As Range
Dim cherch As String, derlign As Long
derlign = Sheets("Tableau général").Range("B100").End(xlUp).Row

cherch = ComboBox1

Set cell = Sheets("Tableau général").Range("B5:I" & derlign).Find(cherch, lookat:=xlWhole)
  If Not cell Is Nothing Then
    Ligne = cell.Row
    Txt_Prenom.Value = cell.Offset(0, 1)
    End If
End Sub

Private Sub CommandButton1_Click()
'ici la variable de la modification
Dim no_ligne As Integer
Sheets("Tableau général").Select
no_ligne = ComboBox1.ListIndex + 5

Cells(no_ligne, 3) = Txt_Prenom.Value
Cells(no_ligne, 4) = CboContrat.Value
Cells(no_ligne, 5) = CreditsF.Value
Cells(no_ligne, 6) = TxtHeuresAnnuel.Value

End Sub

Private Sub UserForm_Initialize()
  Dim L&

    With Feuil2 ' = CodeName ou Sheets("Commandes")

   ' récupérer la liste déroulante dans la feuille Commandes
        CboContrat.List = .Range("G2:I" & .Range("G" & Rows.Count).End(xlUp).Row).Value
        For L = 2 To .Range("E" & Rows.Count).End(xlUp).Row

          Next L
    End With