Discussion :

[Loanito31]

Bonjour à tous et merci à ceux qui prendrons la peine de me lire,

J'ai créer un fichier assez simple avec des combobox en cascade. Jusque la tout va bien. Le problème est que quand je veux ajouter une donnée d'une datepicker dans la feuil2, je n'arrive pas à creer le code qui va bien avec la fonction Find.

Je vous joints le code : en fait en cliquant sur le bouton "valider" je voudrais ajouter la date du datepicker dans la cellule qui correspond à ma combobox1 sur la même ligne. et non à la fin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
On Error Resume Next
Dim nom As String, ligne As Long
nom = ComboBox1
With Sheets("Feuil2").Range(Range("K2").End(xlDown).Address)
Set c = .Find(nom, LookIn:=xlValues)
    ligne = c.Row
 
Sheets("Feuil2").Range("K" & ligne) = DTPicker1
 
DTPicker1.Value = Date
 
Unload Me
End Sub

Merci d'avance pour votre aide.

[SfJ5Rpw8]

Bonjour,

nul besoin de Find, utilise la propriété : ComboBox1.ListIndex pour connaitre la ligne sélectionnée..

[Loanito31]

Bonjour bbil,

Merci d'avoir pris la peine de répondre. es ce que tu peux m'expliquer comment utiliser la fonction

Code :

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

ComboBox1.ListIndex

s'il te plait ?

En effet je cherche depuis 2 jours en parcourant tous les forums et je bloque ...

Merci encore de ton aide.

[SfJ5Rpw8]

Ce n'est pas une fonction mais une propriété qui renvoi le numéro de l'élément sélectionné dans ton comboBox... utilise ce résultat pour trouver ton numéro de ligne dans ta page de calcul...

[Loanito31]

Soit c'est parce que c'est bientot noël ou soit je suis fatigué mais je m'en sort pas.

j'ai fait ce code. Peux tu me dire ce qu'il ne va pas s'il te plait ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
i = Sheets("Feuil2").Range("K65536").ComboBox1.ListIndex
 
Sheets("Feuil2").Range("K" & i).Value = DTPicker1
 
DTPicker1.Value = Date
 
Unload Me
 
End Sub

Merci encore

[SfJ5Rpw8]

elle est ou ta combobox ?

que ce passe-t-il lorsque tu exécute ton code ?