Problème de type de variable avec la fonction find

Bonjour à tous, :D

Mon code est en deux temps (je l'ai simplifié pour la question).
Il attribue à la variable "temp" une valeur de textbox (une date) puis la valeur d'une comobobox (un nom).
Le problème est que "temp" prend bien la valeur de la textbox mais pas celle de la combobox.
Le voici:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub corpstest()   Dim temp As Range Dim cible As Date 'valeur de la text box Dim n_tech As String 'valeur de la combobox   'premier appel de find cible = Saisis.TextBox8.Value 'la valeur est de type date. Set temp = Cells.Find(cible, After:=ActiveCell, LookAt:=xlValue)   'second appel de find n_tech = Saisis.ComboBox1.Value 'la valeur est un nom, une chaine de caratère Set temp = Cells.Find(n_tech, After:=ActiveCell, LookAt:=xlValue)   End Sub

---

Savez vous pourquoi "temp" lors du deuxième appel a find reste en nothing?

Merci par avance de vos réponses ! :merci:

M.A.S

Salut,

essaie avec .Text au lieu de .Value

Bonjour,

Si (comme je le pense) les cellules de recherches sont formatées en date, je préfèrerais
- transformer en type date les valeurs de la textbox et de la combo
- faire mes recherches de ces valeurs transformées et en utilisant XlDate

Alors,

J'ai essayé ca:

a Fouinard

Code:

---

1 2	n_tech = Saisis.ComboBox1.Text 'la valeur est un nom, une chaine de caratère Set temp = Cells.Find(n_tech, After:=ActiveCell, LookAt:=xlText)

---

en remplaçant les "value" par "text" mais ca ne change rien.


a Ucfoutu
Tu veux que je convertisse mon nom en date? et que je fasse la rechercher en utilisant xlDate... ça me parait étrange non? et pour convertir tu utilise cdate()? (parceque ça marche pas...)

Citation:

---

Envoyé par Sarune

Tu veux que je convertisse mon nom en date? et que je fasse la rechercher en utilisant xlDate... ça me parait étrange non? et pour convertir tu utilise cdate()? (parceque ça marche pas...)

---

Qu'est-ce qui ne "marche pas" ? et :
- avec quel code ?
- avec quel format de cellules ?

Alors j'ai fait ça mais sans trop comprendre si c'est bon. Enfin c'est ce que j'ai comprit de ta solution ... :?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub corpstest()   Dim temp As Range Dim n_tech As String Dim n_date As Date   'seconde appel de find n_tech = Saisis.ComboBox1.Value 'la valeur est un nom, une chaine de caratère n_date = CDate(n_tech) Set temp = Cells.Find(n_date, LookAt:=xlDate)   End Sub

---

Et bien entendu j'ai une erreur d'incompatibilité de type...
Des idées?

Bon... cela fait une journée que j'étais là dessus et l'erreur n'en était pas une... un vicieux espace en trop...
donc le code était bon. R.A.S comme qui dirait.
Merci pour tes réponses Ucfoutu c'est en essayant ta solution que j'ai trouvé le bug :king:

Merci!!!