1 réponse
salut,
pour ce qui est de rajouter une ligne, c'est simple :
'tu te mets en A1
Sheets(1).Range("A1").Select
'tu cherches la prochaine case vide
Do While Not (IsEmpty(ActiveCell))
Selection.Offset(1, 0).Select
Loop
'tu stockes le n° de la ligne dans une variable
ligne = ActiveCell.Row
et après tu peux écrire dans la ligne voulue par exemple :
Sheets(1).Range("A" & ligne) = UserForm1.TextBox1.Value
pour empêcher la modification des listes déroulantes, ça se trouve dans les propriétés de la liste en question. il faut afficher les propriétés et choisir de ne pas pouvoir les modifier (j'ai oublié quelle action doit être "Enabled=False" mais tu trouveras sûrement)
pour les mails je ne sais pas faire !
pour ce qui est de rajouter une ligne, c'est simple :
'tu te mets en A1
Sheets(1).Range("A1").Select
'tu cherches la prochaine case vide
Do While Not (IsEmpty(ActiveCell))
Selection.Offset(1, 0).Select
Loop
'tu stockes le n° de la ligne dans une variable
ligne = ActiveCell.Row
et après tu peux écrire dans la ligne voulue par exemple :
Sheets(1).Range("A" & ligne) = UserForm1.TextBox1.Value
pour empêcher la modification des listes déroulantes, ça se trouve dans les propriétés de la liste en question. il faut afficher les propriétés et choisir de ne pas pouvoir les modifier (j'ai oublié quelle action doit être "Enabled=False" mais tu trouveras sûrement)
pour les mails je ne sais pas faire !