Re : Souci création base de données Userform VBA
Merci beaucoup pour votre réponse,
Cependant je n'arrive pas à appliquer la boucle car mes zones de textes ne s'appellent pas "Zonetext1", "Zonetext2"... mais bien des noms définis.
J'ai essayé tout de même d'appliquer la boucle pour le numéro de la ligne et cela ne fonctionne pas, j'ai un débogage :
Private Sub Enregistrer_Click()
Dim lig
lig = 1
With Sheets("BDD")
Do While .Cells(lig, 1) <> ""
lig = lig + 1
Loop
Sheets("BDD").Range("Base!B" & lig) = Zonenom.Value <=== Cette ligne est surlignée
If Zonenom.Text = "" Then 'Cancel = True
MsgBox "Veuillez saisir le nom"
Zonenom.SetFocus
Else
Beep
End If
Sheets("BDD").Range("Base!C" & lig) = Zoneprenom.Value
Sheets("BDD").Range("Base!D" & lig) = Adressemail.Value
Sheets("BDD").Range("Base!E" & lig) = Adressemailperso.Value
Sheets("BDD").Range("Base!F" & lig) = Numeroetudiant.Value
If Professeur1 = True Then
Sheets("BDD").Range("G" & lig).End(xlUp).Offset(1, 0) = Professeur1.Caption
ElseIf Professeur2 = True Then
Sheets("BDD").Range("G" & lig).End(xlUp).Offset(1, 0) = Professeur2.Caption
ElseIf Professeur3 = True Then
Sheets("BDD").Range("G" & lig).End(xlUp).Offset(1, 0) = Professeur3.Caption
ElseIf Professeur4 = True Then
Sheets("BDD").Range("G" & lig).End(xlUp).Offset(1, 0) = Professeur4.Caption
End If
End With
Unload UserForm
'Unload ferme l'UserForm
End Sub
Du coup j'ai essayé une autre méthode "LigneMax" que j'ai trouvé sur un tutoriel, mais ne fonctionne pas non plus... Voici mon fichier, si cela peut vous aider à voir où je bloque.
Merci beaucoup en tout cas pour votre réactivité