Formulaire VBA.
Fermé
VBA discovery
-
21 mai 2011 à 11:47
ed555 Messages postés 61 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 26 octobre 2018 - 21 mai 2011 à 16:30
ed555 Messages postés 61 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 26 octobre 2018 - 21 mai 2011 à 16:30
1 réponse
ed555
Messages postés
61
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
26 octobre 2018
21 mai 2011 à 16:30
21 mai 2011 à 16:30
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 !