Bonjour,
J'ai réalisé un programme qui me permet par l'intermédiaire d'un Userform de mettre les données dans 2 colonnes D et H.
Mon problème est que lorsque je saisie des nouvelles données dans le Userform celles-ci viennent se mettre dans les cellules de ma précédente saisie.
Je voudrais qu'elles se mettent dans la prochaine ligne vide suivante D3 et H3, et ainsi de suite.
Code
Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Private Sub UserForm_Activate() Dim DerniereAGENT As String DerniereAGENT = Range("A1").End(xlDown).Address ' Plage de données pour afficher dans liste déroulante AGENT.RowSource = "A1:" & DerniereAGENT ' Afficher le première nom de la liste (0) AGENT.ListIndex = 0 Dim DerniereTHEME As String DerniereTHEME = Range("A18").End(xlDown).Address ' Plage de données pour afficher dans liste déroulante THEME.RowSource = "A18:" & DerniereTHEME ' Afficher le première thème de la liste (0) THEME.ListIndex = 0 End Sub Private Sub Valider_Click() ListeDeroulante.Hide Index = AGENT.ListIndex ChoixAGENT = AGENT.List(Index) ' Stockage du résultat dans la cellule D2 Range("D2").Value = ChoixAGENT ListeDeroulante.Hide Index = THEME.ListIndex ChoixTHEME = THEME.List(Index) ' Stockage du résultat dans la cellule D2 Range("H2").Value = ChoixTHEME End Sub
Partager