Discussion :

[Traputaca]

Bonjour à tous,

J'ai un petit soucis que je n'arrive pas à résoudre dans un tout petit bout de code :

avant j'avais :

Code :

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

1
2
Dim strAddress1, strAddress2, strAddress3, strAddress4, strAddressRef As String
strAddress1 = Worksheets("S1").Range("a:a").Find(what:=NouvelleEntree.DTPicker1.Value).Address

et j'ai changer la valeur de DTPicker en une Textbox :

Code :

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

1
2
Dim strAddress1, strAddress2, strAddress3, strAddress4, strAddressRef As String
strAddress1 = Worksheets("S1").Range("a:a").Find(what:=NouvelleEntree.textbox241.Value).Address

et là, j'ai une erreur comme quoi mon objet n'est pas défini ..

Je ne comprend pas, quelqu'un pourrait m'aider ?

Merci d'avance,

Cordialement,

charles

[Quentin77170]

Je vais regarder ça mais je pense que c'est vraiment tout con :p
Par contre, première remarque : Sais-tu que :

Code :

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

Dim strAddress1, strAddress2, strAddress3, strAddress4, strAddressRef As String

Correspond à :

Code :

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

1
2
3
4
5
Dim strAddress1 'donc As Variant
Dim strAddress2 'donc As Variant
Dim strAddress3 'donc As Variant
Dim strAddress4 'donc As Variant
Dim strAddressRef As String 'Le seul à être déclaré en String

à tout de suite

Attends, première question concernant ton erreur :
Si tu fais en pas à pas, tu trouves une erreur à quel niveau ? Parce que l'erreur provient, j'imagine, du .value qui fait qu'il ne trouve pas de cellule à l'aide du FIND et donc il ne peut pas affecter l'adresse d'aucune cellule à ta variable strAddress1...

Essaie de faire Textbox241.Text ou encore de convertir le texte de la textbox en date avec :
DateRecherchée = CDate(Textbox241.Text)

Tu pourrais également faire que si aucune cellule ne correspond, alors erreur. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Dim RngAddress1 As Range
 
Set RngAddress1 = Worksheets("S1").Range("a:a").Find(what:=CDate(NouvelleEntree.TextBox241.Text)).Address
 
If RngAddress1 Is Nothing Then 
    MsgBox "Erreur"
Else
    strAddress1 = RngAddress1.Address
End If

Qu'en penses-tu ? (J'espère que le CDate fonctionne dans le cas d'une recherche par FIND (j'ai pas essayé encore...)

[Quentin77170]

Je reviens de nouveau vers toi pour te dire qu'en cherchant avec comme .value une chaîne de caractères, tout roulait pour la macro (j'obtenais l'adresse), mais pour la date c'est pareil, ça ne fonctionnait plus.
Il faut comprendre que la date te paraît logique mais pour l'ordi, dans ta TextBox, il y a de grandes chances pour qu'il voit ça comme du texte et pas comme une date (en traduisant donc le JJ/MM/AAAA) par un nombre, ce que faisait automatiquement ton DTPicker quand tu demandais sa .value.

Donc CDate fait le job, et peu importe le format de la date dans ta TextBox et celui dans ta feuille, il convertira leur valeur en nombre et pas en chaîne de caractères, donc 1 janvier 14 ou 01/01/14, recherches 01/01/2014 dans ta feuille, cela fonctionnera.

Je ne sais pas si je suis super clair, par contre

En espérant que ça t'aide !

[Traputaca]

Merci beaucoup, je m'en suis sorti !!


juste pour le détail, avec le code que tu m'a donné, j'avais une erreur sur la ligne

Code :

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

Set RngAddress1 = Worksheets("S1").Range("a:a").Find(what:=CDate(NouvelleEntree.TextBox241.Text)).Address

il me mettait "objet requis". Comme on récupere l'adresse quand même avec

Code :

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

strAddress1 = RngAddress1.Address

j'ai enlevé le ".address de la 1ère ligne de code.

Sa fonctionne, MERCI !

Charles