VBA formulaire d'alimentation d'une base de donné

Le 19/02/2023 à 04:34

Bonjour,

J'ai créé un formulaire qui me permet de construire une base de donné. Lorsque le bouton "ajouter" de mon formulaire est activé, les donnés du formulaire doivent s'inscrire dans un tableau les uns à la suite des autres...le problème c'est que je dois mal utiliser la fonction "offset" car ca ne fonctionne pas! quelqu'un peu corriger mon code VBA plus bas ???

Merci

Sarah

**********************************************

Private Sub ButtonAJOUTERid_Click()

Sheets("equipejour").Activate

Range("A10").Select

Selection.End(xlDown).Select

Selection.Offset(1, 0).Select

ActiveCell = ComboBoxGRADE.Value

ActiveCell.Offset(0, 1).Value = TextBoxnumEMPLOYE

ActiveCell.Offset(0, 2).Value = TextBoxNOM

ActiveCell.Offset(0, 3).Value = TextBoxPRENOM

End Sub

Le 19/02/2023 à 04:54

26tableau-bord-35.xlsm (60.70 Ko)

j'ai oublié,

voici le fichier .xlsm du document en question...

merci

Le 19/02/2023 à 06:54

Bonjour,

Le code pour "AJOUTER"

Private Sub ButtonAJOUTERid_Click()
    Dim DerLig As Long
    With Sheets("GROUPE3")
        If .ListObjects("TableauG3").DataBodyRange Is Nothing Then
            DerLig = 1
        Else
            DerLig = .ListObjects("TableauG3").DataBodyRange.Rows.Count
        End If
        Range("TableauG3[Titre]").Value = ComboBoxGRADE.Value
        Range("TableauG3['# employé]").Value = TextBoxMATRICULE
        Range("TableauG3[PRÉNOM]").Value = TextBoxPRENOM
        Range("TableauG3[NOM]").Value = TextBoxNOM
    End With
End Sub

Cdlt

Le 19/02/2023 à 06:57

Bonjour,

Voici un essai

37tableau-bord-35.xlsm (50.03 Ko)

Le 19/02/2023 à 18:43

Merci à vous deux,

ca fonctionne très bien les deux méthodes :-)

Salutations