Bonjour à touS ooooooooooooo Grand forum qui m'aide si bien à chaque fois.
J'ai un grand soucis sur lequel je bloque depuis deux heures environ...
je m'explique rapidement :
voici un morceau du code : Clic sur Calendar
Je clique sur Calendar1 , prenons 04/01/2008
Pour info : msgbox Calendar1 sera égal à 04/01/2008
Mais pas de résultat. Foundcell = nothing !!..
Je vais sur ma feuille. CTRL + F pour voir ce qu'il a recherché
"1/4/08"
Si quelqu'un a déjà rencontré le problème ?
A noter qu'en 2007 ( decembre ).. je n'ai rencontré aucun problème.
Grand merci pour vos idées
J'ai un grand soucis sur lequel je bloque depuis deux heures environ...
je m'explique rapidement :
voici un morceau du code : Clic sur Calendar
Code:
' recherche la premiere ligne de la valeur du calendrier
Set foundCell = .Cells.Find(Calendar1, LookIn:=xlValues, LookAt:=xlWhole)
' pour info visuelle
msgbox calendar1.value
If Not foundCell Is Nothing Then
'''' loopaddr = valeur de la cellule exemple T16
loopAddr = foundCell.Address
'''' on selectionne cette case
foundCell.Activate
Je clique sur Calendar1 , prenons 04/01/2008
Pour info : msgbox Calendar1 sera égal à 04/01/2008
Mais pas de résultat. Foundcell = nothing !!..
Je vais sur ma feuille. CTRL + F pour voir ce qu'il a recherché
"1/4/08"
Si quelqu'un a déjà rencontré le problème ?
A noter qu'en 2007 ( decembre ).. je n'ai rencontré aucun problème.
Grand merci pour vos idées