Discussion :

[Sarune]

Bonjour bonjour,

On m'a aidé pour ce code dans un autre post et j'ai un petit soucis.
Tout fonctionne correctement seulement j'ai un problème de définition de variable.

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
 
Option Explicit
Private Type coordo
  ligne As Integer
  colonne As Integer
End Type
 
Private Sub test()
 
Dim cible As String
 
cible = "01/01/2009"
 
  MsgBox "ligne " & coordonnees(cible).ligne & vbCrLf & "colonne " _
  & coordonnees(cible).colonne
End Sub
 
Private Function coordonnees(achercher As String) As coordo
 
 Dim temp As Range
 
 With ActiveSheet.Cells
   Set temp = Cells.Find(achercher, LookAt:=xlValue)
   If Not temp Is Nothing Then
     coordonnees.ligne = temp.Row
     coordonnees.colonne = temp.Column
   End If
 End With
End Function

La variable "temp" ne récupère pas la valeur correctement, en fait elle reste vide...
Le nouveau type "coordo" déclarer dans ma structure doit faire bugger car si je l'enlève cela fonctionne du moment que "cible" et "achercher" sont de même type...

En quoi le fait de déclarer ma structure fait tout bugger???
Des idées?

Merci par avance pour vos réponses!!!

[ucfoutu]

Bonjour,

l'utilisation de la structure ne fait rien "bouger" !

teste en modifiant comme moi et lance

Code :

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

1
2
3
4
5
6
7
8
9
10
With ActiveSheet.Cells
   Set temp = Cells.Find(achercher, LookAt:=xlValue)
   If Not temp Is Nothing Then
     coordonnees.ligne = temp.Row
     coordonnees.colonne = temp.Column*
     msgbox "trouvé " & temp.row & "  " temp.Column '<<<<< ajoute ceci
   Else '<<<<<< ceci
     msgbox "pas trouvé ! " ' <<<<<< et ceci
   End If
 End With

et dis-nous ce que cela affiche ...

Maintenant : ce que tu cherches est de type date et pas de type string ... donc ....???
Ou tu passes une date, ou tu compares avec du texte et pas une valeur de cellule

[Sarune]

salut Ucfoutu,

J'ai essayé, mais le problème persiste, temp reste vide, lorsque je fais une exécution pas à pas et que je regarde la valeur des variables au fur et à mesure tout se passe bien jusqu'à:

Code :

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

Set temp = Cells.Find(achercher, LookAt:=xlValue)

"achercher" prend bien sa valeur mais temps reste vide...

[Sarune]

Argh quel gros je fais...
J'avais essayé un peu tout les types de variable, j'avais juste oublié "date"...
En dimensionnant "achercher" et "cible" en date ça fonctionne...
Honte sur moi...

En tout cas merci ucfoutu pour ta réactivité !!!