Discussion :

[Fredo10]

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

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

Merci d'avance.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 cells(rows.count,"D").end(xlup).offset(1,0).Value = ChoixAGENT

[Fredo10]

Merci Mercatog

Par contre je voudrai que si une donnée est déjà présente dans la cellule D1 et aucune dans H1, lorsque je refais une saisie via le Userform les données se mettent dans la prochaine ligne entièrement vide cet à dire en D2 et H2 même si la cellule H1 est vide.

[mercatog]

La colonne D sera la référence pour trouver la dernière cellule remplie (je suppose que, pour la ligne x, si Dx est vide alors Hx l'est aussi)
tu peux faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim NewLig as long
'....
NewLig=cells(rows.count,"D").end(xlup).row+1
Range("D" & NewLig).value=ChoixAGENT
Range("H" & NewLig).value=ChoixTHEME
'...

[Fredo10]

Encore merci Mercator,

Tu es un pro