Adri3n
XLDnaute Nouveau
Bonjour à tous,
Ce n'est pas mon premier message sur le forum mais il me semble que mon compte ait été supprimé pour non utilisation depuis un moment...
Anyway, je rencontre un petit souci... J'ai cherché des solutions au préalable sur le forum, j'ai appliqué les modifications proposées sans succès...
Je cherche à créer un outil de planification et pour cela je dois rechercher une date dans un calendrier. Les dates sont toutes sur une ligne (ici la ligne 3).
Exemple:
valeur = "05/01/2015"
Dans mon tableau j'ai toutes les dates de l'année 2015 sur la même ligne au format JJ/MM/AAAA
Le souci, c'est que PositionCelluleDateSalle est toujours égale à Nothing...
bref...
Merci d'avance pour votre aide.
Adrien
Ce n'est pas mon premier message sur le forum mais il me semble que mon compte ait été supprimé pour non utilisation depuis un moment...
Anyway, je rencontre un petit souci... J'ai cherché des solutions au préalable sur le forum, j'ai appliqué les modifications proposées sans succès...
Je cherche à créer un outil de planification et pour cela je dois rechercher une date dans un calendrier. Les dates sont toutes sur une ligne (ici la ligne 3).
Exemple:
valeur = "05/01/2015"
Dans mon tableau j'ai toutes les dates de l'année 2015 sur la même ligne au format JJ/MM/AAAA
Code:
datetmp = "05/01/2015"
'MsgBox CDate(datetmp)
Set PositionCelluleDateSalle = Sheets("Contraintes-Salle").Range("3:3").Find(CDate(datetmp), lookAt:=xlWhole)
If PositionCelluleDateSalle Is Nothing Then 'si on ne trouve rien, ce qui est impossible
MsgBox "Date Introuvable"
Else
MsgBox ("Les coordonnees de la date trouvee sont " & PositionCelluleDateSalle)
End If
Le souci, c'est que PositionCelluleDateSalle est toujours égale à Nothing...
bref...
Merci d'avance pour votre aide.
Adrien