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!!!