Finaliser mon formulaire

Bonsoir à tous .

Je suis bloquer dans mon formulaire d ajout d heure . J avance bien mais la je bloque .

j' ai coder quelque champs mais il me manque le chemin .

UN petit coup de main serait le bienvenu .

Merci d'avance

Private Sub CBBchoix_Feuille_Change()
''''''''''''procedure me permettant de choisir une des onglets "feuille1;feuille1(2)..."et quelle s active
End Sub

Private Sub boutonH_ajouter_Click()
'procedure permettant d ajouter un nouvelle
'enregitrement
'''''''''''''''''''''''ici manque un truc
Sheets choose x.Activate
'''''''''''''''''''''''''''''''''''''''''
Range("D7").Select
Selection.End(xlDown).Select ' on ce positionne sur la derniere ligne non vide
Selection.Offset(1, 0).Select 'on se decale d'1 ligne vers le bas
' ICI JE NE SAIS PAS QUOI FAIRE "activecell = la feuille selectionner plus haut(dans le formulaire "CBBchoix_feuille"
ActiveCell = Sheets x.Activate
ActiveCell.Offset(0, 1) = txtA
ActiveCell.Offset(0, 2) = TextBoxAA
ActiveCell.Offset(0, 3) = TextBoxDD
ActiveCell.Offset(0, 4) = TextBoxNR

End Sub

Private Sub boutonH_voir_Click()
'' ici
'procedure permettant d acceder à la feuille choisi dans le formulaire "CCBchoix_feuille"
Sheets("la feuille du formulaire").Activate
Range("d7").Select

End Sub

Bonsoir,

Si tu veux faire quelques progrès en VBA, il faut commencer par éliminer tout Select et Activate de ton code, et cibler directement les objets sur lesquels tu interviens.

Tu n'auras sinon qu'un code insuffisamment fiable et lent...

Cordialement.

Bonjour,

Comme l'a dit MFerrand, il faut cibler directement les objets sur lesquels tu interviens.

En l'occurrence, comme tu as créé un objet tableau sur chaque feuille concernée, il faut donc utiliser cet objet avec le code ci-dessous

 Private Sub boutonH_ajouter_Click()
'procedure permettant d ajouter un nouvel
'enregistrement
'''''''''''''''''''''''''''''''''''''''''
    Dim cell As Range

    With Sheets(CBBchoix_Feuille.Value)
        .Activate
        'recherche première cellule vide dans la colonne A de l'objet tableau
        Set cell = .ListObjects(1).ListColumns("A").Range.Find("")
        'remplissage ligne vide de l'objet tableau
        If Not cell Is Nothing Then
            cell.Offset(, 0) = txtA
            cell.Offset(, 1) = TextBoxAA
            cell.Offset(, 2) = TextBoxDD
            cell.Offset(, 3) = TextBoxNR
        End If
    End With

End Sub

Par ailleurs, exemple de code pour charger ta Combobox CBBchoix_Feuille :

Private Sub UserForm_Initialize()
    Dim sh As Worksheet, feuilles(), i As Integer

    i = 0
    For Each sh In Worksheets
        If sh.CodeName Like "TABLE*" Then ReDim Preserve feuilles(i): feuilles(i) = sh.Name: i = i + 1
    Next sh
    Me.CBBchoix_Feuille.List = feuilles

End Sub

bonjour, et :

Ho merci je rentre du travail ,

J'essaierais cette écriture .

J apprend en m amusant avec exel et par vos conseil .

Merci encore pour votre temps , et je donnerais des nouvelles pour montrer l évolution.

Tauru .

MERCI thev voilas tout marche comme voulu impeccable .

Vous trouverez cela basic mais pour moi c'est juste énorme. lol

enfin bref voilas bonne soirée a tous .