Bonjour,
Je suis toute nouvelle sur ce forum et je fais mes débuts en VBA.
J'essaie de créer une base de données sous Excel grâce à un Userform relié directement à la feuille Excel.
Mais toutes mes données "s'écrasent entres elles", elles s'enregistrent toutes à la première ligne...
Quelqu'un pourrait m'aider svp?
D'avance merci !
Voici le code de mon userform :
Private Sub Enregistrer_Click()
num = Sheets("BDD").Range("A65536").End(xlUp).Row + 1
Sheets("BDD").Range("B" & num) = Zonenom.Value
If Zonenom.Text = "" Then 'Cancel = True
MsgBox "Veuillez saisir le nom"
Zonenom.SetFocus
Else
Beep
End If
Sheets("BDD").Range("C" & num) = Zoneprenom.Value
Sheets("BDD").Range("D" & num) = Adressemail.Value
Sheets("BDD").Range("E" & num) = Adressemailperso.Value
Sheets("BDD").Range("F" & num) = Numeroetudiant.Value
If Professeur1 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur1.Caption
ElseIf Professeur2 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur2.Caption
ElseIf Professeur3 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur3.Caption
ElseIf Professeur4 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur4.Caption
End If
Unload UserForm
'Unload ferme l'UserForm
End Sub
Je suis toute nouvelle sur ce forum et je fais mes débuts en VBA.
J'essaie de créer une base de données sous Excel grâce à un Userform relié directement à la feuille Excel.
Mais toutes mes données "s'écrasent entres elles", elles s'enregistrent toutes à la première ligne...
Quelqu'un pourrait m'aider svp?
D'avance merci !
Voici le code de mon userform :
Private Sub Enregistrer_Click()
num = Sheets("BDD").Range("A65536").End(xlUp).Row + 1
Sheets("BDD").Range("B" & num) = Zonenom.Value
If Zonenom.Text = "" Then 'Cancel = True
MsgBox "Veuillez saisir le nom"
Zonenom.SetFocus
Else
Beep
End If
Sheets("BDD").Range("C" & num) = Zoneprenom.Value
Sheets("BDD").Range("D" & num) = Adressemail.Value
Sheets("BDD").Range("E" & num) = Adressemailperso.Value
Sheets("BDD").Range("F" & num) = Numeroetudiant.Value
If Professeur1 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur1.Caption
ElseIf Professeur2 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur2.Caption
ElseIf Professeur3 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur3.Caption
ElseIf Professeur4 = True Then
Sheets("BDD").Range("G" & num).End(xlUp).Offset(1, 0) = Professeur4.Caption
End If
Unload UserForm
'Unload ferme l'UserForm
End Sub