Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans les
forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai pas pu
répondre à Daniel qui me demandait des précisions j'espére que d'autres
attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur sous
la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans les
forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai pas pu
répondre à Daniel qui me demandait des précisions j'espére que d'autres
attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur sous
la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans les
forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai pas pu
répondre à Daniel qui me demandait des précisions j'espére que d'autres
attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur sous
la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com en
effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" a écrit dans le message de news:
4629d6fd$0$13862$Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans les
forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai pas pu
répondre à Daniel qui me demandait des précisions j'espére que d'autres
attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur sous
la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com en
effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" <didierd9201t@skynet.be> a écrit dans le message de news:
4629d6fd$0$13862$ba620e4c@news.skynet.be...
Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans les
forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai pas pu
répondre à Daniel qui me demandait des précisions j'espére que d'autres
attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur sous
la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com en
effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" a écrit dans le message de news:
4629d6fd$0$13862$Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans les
forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai pas pu
répondre à Daniel qui me demandait des précisions j'espére que d'autres
attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur sous
la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour Daniel,
merci pour le conseil, je me suis empréssé de le suivre, mais cela ne
fonctionne toujours pas.
En réalité, j'ai créé cette variable lorsque j'ai vu que cela ne
fonctionnait pas, pour me permettre le contrôle lors du débogage pas à
pas.
voici l'adresse cjoint: http://cjoint.com/?evtBvKxJ5L
même si mon problème n'est pas résolu, j'aurai au moins appris cela ;o))
didier
"Daniel" a écrit dans le message de news:Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com
en effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" a écrit dans le message de news:
4629d6fd$0$13862$Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans
les forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai
pas pu répondre à Daniel qui me demandait des précisions j'espére que
d'autres attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur
sous la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour Daniel,
merci pour le conseil, je me suis empréssé de le suivre, mais cela ne
fonctionne toujours pas.
En réalité, j'ai créé cette variable lorsque j'ai vu que cela ne
fonctionnait pas, pour me permettre le contrôle lors du débogage pas à
pas.
voici l'adresse cjoint: http://cjoint.com/?evtBvKxJ5L
même si mon problème n'est pas résolu, j'aurai au moins appris cela ;o))
didier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u0oUADBhHHA.4844@TK2MSFTNGP02.phx.gbl...
Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com
en effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" <didierd9201t@skynet.be> a écrit dans le message de news:
4629d6fd$0$13862$ba620e4c@news.skynet.be...
Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans
les forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai
pas pu répondre à Daniel qui me demandait des précisions j'espére que
d'autres attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur
sous la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
Bonjour Daniel,
merci pour le conseil, je me suis empréssé de le suivre, mais cela ne
fonctionne toujours pas.
En réalité, j'ai créé cette variable lorsque j'ai vu que cela ne
fonctionnait pas, pour me permettre le contrôle lors du débogage pas à
pas.
voici l'adresse cjoint: http://cjoint.com/?evtBvKxJ5L
même si mon problème n'est pas résolu, j'aurai au moins appris cela ;o))
didier
"Daniel" a écrit dans le message de news:Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com
en effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" a écrit dans le message de news:
4629d6fd$0$13862$Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans
les forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai
pas pu répondre à Daniel qui me demandait des précisions j'espére que
d'autres attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"), dans
une
feuille Excell, j'ai des cellules qui contiennent des dates dans le même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#" et
la
variable destinée à la date de la feuille de calcul atend une valeur
sous la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester celle-ci
pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
En fait, c'est plus simple que je ne le pensais.
La cellule C3, la première à poser problème contient du texte, bien que
son format soit date. Tu te positionnes dessus, tu cliques sur Insertion /
Lien hypertexte et tu vois que le texte à afficher est "Vendredi 14
décembre 2007". Tu peux le constater en exécution lligne à ligne en
ajoutant var¬tivecell.value.
Tu lis dans la fenêtre des variables que "var" est de type Variant /
String.
Bonne soirée.
Daniel
"Didierd9201" a écrit dans le message de news:
462a4aca$0$13852$Bonjour Daniel,
merci pour le conseil, je me suis empréssé de le suivre, mais cela ne
fonctionne toujours pas.
En réalité, j'ai créé cette variable lorsque j'ai vu que cela ne
fonctionnait pas, pour me permettre le contrôle lors du débogage pas à
pas.
voici l'adresse cjoint: http://cjoint.com/?evtBvKxJ5L
même si mon problème n'est pas résolu, j'aurai au moins appris cela ;o))
didier
"Daniel" a écrit dans le message de news:Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com
en effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" a écrit dans le message de news:
4629d6fd$0$13862$Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans
les forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai
pas pu répondre à Daniel qui me demandait des précisions j'espére que
d'autres attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"),
dans une
feuille Excell, j'ai des cellules qui contiennent des dates dans le
même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#"
et la
variable destinée à la date de la feuille de calcul atend une valeur
sous la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable
date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester
celle-ci pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
En fait, c'est plus simple que je ne le pensais.
La cellule C3, la première à poser problème contient du texte, bien que
son format soit date. Tu te positionnes dessus, tu cliques sur Insertion /
Lien hypertexte et tu vois que le texte à afficher est "Vendredi 14
décembre 2007". Tu peux le constater en exécution lligne à ligne en
ajoutant var¬tivecell.value.
Tu lis dans la fenêtre des variables que "var" est de type Variant /
String.
Bonne soirée.
Daniel
"Didierd9201" <didierd9201@skynet.be> a écrit dans le message de news:
462a4aca$0$13852$ba620e4c@news.skynet.be...
Bonjour Daniel,
merci pour le conseil, je me suis empréssé de le suivre, mais cela ne
fonctionne toujours pas.
En réalité, j'ai créé cette variable lorsque j'ai vu que cela ne
fonctionnait pas, pour me permettre le contrôle lors du débogage pas à
pas.
voici l'adresse cjoint: http://cjoint.com/?evtBvKxJ5L
même si mon problème n'est pas résolu, j'aurai au moins appris cela ;o))
didier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u0oUADBhHHA.4844@TK2MSFTNGP02.phx.gbl...
Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com
en effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" <didierd9201t@skynet.be> a écrit dans le message de news:
4629d6fd$0$13862$ba620e4c@news.skynet.be...
Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans
les forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai
pas pu répondre à Daniel qui me demandait des précisions j'espére que
d'autres attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"),
dans une
feuille Excell, j'ai des cellules qui contiennent des dates dans le
même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#"
et la
variable destinée à la date de la feuille de calcul atend une valeur
sous la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable
date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester
celle-ci pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier
En fait, c'est plus simple que je ne le pensais.
La cellule C3, la première à poser problème contient du texte, bien que
son format soit date. Tu te positionnes dessus, tu cliques sur Insertion /
Lien hypertexte et tu vois que le texte à afficher est "Vendredi 14
décembre 2007". Tu peux le constater en exécution lligne à ligne en
ajoutant var¬tivecell.value.
Tu lis dans la fenêtre des variables que "var" est de type Variant /
String.
Bonne soirée.
Daniel
"Didierd9201" a écrit dans le message de news:
462a4aca$0$13852$Bonjour Daniel,
merci pour le conseil, je me suis empréssé de le suivre, mais cela ne
fonctionne toujours pas.
En réalité, j'ai créé cette variable lorsque j'ai vu que cela ne
fonctionnait pas, pour me permettre le contrôle lors du débogage pas à
pas.
voici l'adresse cjoint: http://cjoint.com/?evtBvKxJ5L
même si mon problème n'est pas résolu, j'aurai au moins appris cela ;o))
didier
"Daniel" a écrit dans le message de news:Bonjour.
A priori, je ne vois rien d'anormal. Essaie sans passer par une variable
intermédiaire :
If Activecell.Value = jour Then t = 1: Exit For
Si le problème persiste, peux-tu mettre ton classeur sur www.cjoint.com
en effaçant les données confidentielles.
Poste en retour l'adresse générée.
Daniel
"Didierd9201" a écrit dans le message de news:
4629d6fd$0$13862$Bonjour à tous,
J'ai déja posté ma question hier, mais étant plus habitué à lire dans
les forum qu'à y poster, j'ai comis une erreur de manipulation et n'ai
pas pu répondre à Daniel qui me demandait des précisions j'espére que
d'autres attendaient également ces précisions.
Toutes mes excuses à Daniel pour avoir squatté sa BAL
Voici ma question à laquelle j'ai ajouté mon code:
Dans un appli Excell2003, j'ai un userform dans lequel on peut choisir
une
date via un controle calendrier, (format "Vendredi 20 Avril 2007"),
dans une
feuille Excell, j'ai des cellules qui contiennent des dates dans le
même
format.
Lorsque je veux comparer via VBA la date choisie dans le userform avec
celles de la feuille de calcul, j'ai une incompatibilité de types: la
date
du userform est stockée dans sa variable sous la forme "#20/04/2007#"
et la
variable destinée à la date de la feuille de calcul atend une valeur
sous la
forme heure ("#0:00:00#" )alors qu'elle est déclarée come variable
date.
j'ai essayé de changer ces dates en nombre,mais je n'arrive à rien.
La date de la feuille de calcul ne veut être stockée que dans une
variable
string.
Private Sub OKBtn_Click()
Dim jour, Dte As Date
' recherche du jour dans la feuille réservations.
jour = DateJour.Value 'contrôle calendrier du formulaire,format:
0-DTPLongdate
Worksheets("Réservations").Activate
l = 3 'une des ligne des dates
For c = 8 To 78 Step 7 'Colonnes des dates
Cells(l, c).Select 'celulle contenant une date format *mercredi 14
mars 2001
Dte = Selection.Value
If Dte = jour Then t = 1: Exit For
' action réélle: mise en mémoire pour insertion dans un document.
'je n'ai pas encore créé cette partie du code, préférant tester
celle-ci pour
'être sûr de la localisation de mes celulles.
Next
End Sub
Quelqu'un(e) pourrait-il (elle) me dépanner SVP ?
merci d'avance
Didier