Discussion :

[Sarune]

Bonjour à tous,

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 :

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

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 !

M.A.S

[Fouinard]

Salut,

essaie avec .Text au lieu de .Value

[ucfoutu]

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

[Sarune]

Alors,

J'ai essayé ca:

a Fouinard

Code :

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

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...)

[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...)

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

[Sarune]

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 :

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

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?

[Sarune]

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

Merci!!!