-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
un
certain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
dates
sous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-dee,
Tu dois obligatoirement l'exécuter à partir de la
feuille
de calcul soit par la fenêtre où est affiché la liste desmacros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentesà excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'estsûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du mot"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." a écrit dans le
message de news:0d1701c38cb6$17070b60$Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
un
poste EXCEL 95 W98j'ai été quelque peu surpris que la solution proposée ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=TrueSendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
un
certain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
dates
sous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc
-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-dee,
Tu dois obligatoirement l'exécuter à partir de la
feuille
de calcul soit par la fenêtre où est affiché la liste des
macros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"
Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentes
à excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'est
sûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." <marc.barruel@alcatel.fr> a écrit dans le
message de news:0d1701c38cb6$17070b60$a301280a@phx.gbl...
Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc
-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
un
poste EXCEL 95 W98
j'ai été quelque peu surpris que la solution proposée ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"
(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
SendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
un
certain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
dates
sous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-dee,
Tu dois obligatoirement l'exécuter à partir de la
feuille
de calcul soit par la fenêtre où est affiché la liste desmacros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentesà excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'estsûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du mot"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." a écrit dans le
message de news:0d1701c38cb6$17070b60$Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
un
poste EXCEL 95 W98j'ai été quelque peu surpris que la solution proposée ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=TrueSendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
-----Message d'origine-----
Bonjour Marc,
A ) pour faire afficher la grille :
- La feuille où sont situées les données doit
être active.
- Une des cellules du tableau des données doit
être la cellule active.
- La macro doit obligatoirement être appelé à
partir de la feuille de calcul et non de la fenêtre VBE
basic editor)
- Pour afficher la grille avec le bon
format "date", la feuille doit être sans protection au
de la grille, mais, rien n'empêche que tu protèges ta
feuille après que la grille soit affichée par une ligne de
commande. Voici le code testé sous Excel 2002. Et cela
fonctionne correctement. La feuille est protégée et il est
impossible de modifier les données dans la grille. De
plus, les dates sont affichées au format de la cellule
'----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "toto"
.Range("A1").Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "toto", True, True, True
End With
'----------------------------
Si cela ne fonctionne en Excel 97 ... désolé, mais je
n'ai pas d'autres alternatives à proposer !
Salutations!
"Marc de N." a écrit dans le
message de news:045e01c38f31$48aca7b0$
Denis
OK avec une plage nommée « Base_de _données » SendKeys « %
DG » fonctionne.
Contrairement à la Cde en VBA les champs peuvent être
modifier.
Pour moi, il est impératif que les données ne puissent pas
être modifier.
L'affichage des grilles sont pour des consultations.
Salutations à +
Marc
Je te présente mais excuse pour l'erreur du prénom-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
uncertain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
datessous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-
dee,
Tu dois obligatoirement l'exécuter à partir de la
feuillede calcul soit par la fenêtre où est affiché la liste desmacros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentesà excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'estsûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du
mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." a écrit dans le
message de news:0d1701c38cb6$17070b60$Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
unposte EXCEL 95 W98j'ai été quelque peu surpris que la solution proposée
ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=TrueSendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
.
-----Message d'origine-----
Bonjour Marc,
A ) pour faire afficher la grille :
- La feuille où sont situées les données doit
être active.
- Une des cellules du tableau des données doit
être la cellule active.
- La macro doit obligatoirement être appelé à
partir de la feuille de calcul et non de la fenêtre VBE
basic editor)
- Pour afficher la grille avec le bon
format "date", la feuille doit être sans protection au
de la grille, mais, rien n'empêche que tu protèges ta
feuille après que la grille soit affichée par une ligne de
commande. Voici le code testé sous Excel 2002. Et cela
fonctionne correctement. La feuille est protégée et il est
impossible de modifier les données dans la grille. De
plus, les dates sont affichées au format de la cellule
'----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "toto"
.Range("A1").Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "toto", True, True, True
End With
'----------------------------
Si cela ne fonctionne en Excel 97 ... désolé, mais je
n'ai pas d'autres alternatives à proposer !
Salutations!
"Marc de N." <marc.barruel@alcatel.fr> a écrit dans le
message de news:045e01c38f31$48aca7b0$a001280a@phx.gbl...
Denis
OK avec une plage nommée « Base_de _données » SendKeys « %
DG » fonctionne.
Contrairement à la Cde en VBA les champs peuvent être
modifier.
Pour moi, il est impératif que les données ne puissent pas
être modifier.
L'affichage des grilles sont pour des consultations.
Salutations à +
Marc
Je te présente mais excuse pour l'erreur du prénom
-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
un
certain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
dates
sous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc
-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-
dee,
Tu dois obligatoirement l'exécuter à partir de la
feuille
de calcul soit par la fenêtre où est affiché la liste des
macros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"
Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentes
à excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'est
sûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du
mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." <marc.barruel@alcatel.fr> a écrit dans le
message de news:0d1701c38cb6$17070b60$a301280a@phx.gbl...
Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc
-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
un
poste EXCEL 95 W98
j'ai été quelque peu surpris que la solution proposée
ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"
(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
SendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
.
-----Message d'origine-----
Bonjour Marc,
A ) pour faire afficher la grille :
- La feuille où sont situées les données doit
être active.
- Une des cellules du tableau des données doit
être la cellule active.
- La macro doit obligatoirement être appelé à
partir de la feuille de calcul et non de la fenêtre VBE
basic editor)
- Pour afficher la grille avec le bon
format "date", la feuille doit être sans protection au
de la grille, mais, rien n'empêche que tu protèges ta
feuille après que la grille soit affichée par une ligne de
commande. Voici le code testé sous Excel 2002. Et cela
fonctionne correctement. La feuille est protégée et il est
impossible de modifier les données dans la grille. De
plus, les dates sont affichées au format de la cellule
'----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "toto"
.Range("A1").Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "toto", True, True, True
End With
'----------------------------
Si cela ne fonctionne en Excel 97 ... désolé, mais je
n'ai pas d'autres alternatives à proposer !
Salutations!
"Marc de N." a écrit dans le
message de news:045e01c38f31$48aca7b0$
Denis
OK avec une plage nommée « Base_de _données » SendKeys « %
DG » fonctionne.
Contrairement à la Cde en VBA les champs peuvent être
modifier.
Pour moi, il est impératif que les données ne puissent pas
être modifier.
L'affichage des grilles sont pour des consultations.
Salutations à +
Marc
Je te présente mais excuse pour l'erreur du prénom-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
uncertain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
datessous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-
dee,
Tu dois obligatoirement l'exécuter à partir de la
feuillede calcul soit par la fenêtre où est affiché la liste desmacros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentesà excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'estsûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du
mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." a écrit dans le
message de news:0d1701c38cb6$17070b60$Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
unposte EXCEL 95 W98j'ai été quelque peu surpris que la solution proposée
ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=TrueSendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
.
-----Message d'origine-----
Bonjour Marc,
A ) pour faire afficher la grille :
- La feuille où sont situées les données doit
être active.
- Une des cellules du tableau des données doit
être la cellule active.
- La macro doit obligatoirement être appelé à
partir de la feuille de calcul et non de la fenêtre VBE
basic editor)
- Pour afficher la grille avec le bon
format "date", la feuille doit être sans protection au
de la grille, mais, rien n'empêche que tu protèges ta
feuille après que la grille soit affichée par une ligne de
commande. Voici le code testé sous Excel 2002. Et cela
fonctionne correctement. La feuille est protégée et il est
impossible de modifier les données dans la grille. De
plus, les dates sont affichées au format de la cellule
'----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "toto"
.Range("A1").Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "toto", True, True, True
End With
'----------------------------
Si cela ne fonctionne en Excel 97 ... désolé, mais je
n'ai pas d'autres alternatives à proposer !
Salutations!
"Marc de N." a écrit dans le
message de news:045e01c38f31$48aca7b0$
Denis
OK avec une plage nommée « Base_de _données » SendKeys « %
DG » fonctionne.
Contrairement à la Cde en VBA les champs peuvent être
modifier.
Pour moi, il est impératif que les données ne puissent pas
être modifier.
L'affichage des grilles sont pour des consultations.
Salutations à +
Marc
Je te présente mais excuse pour l'erreur du prénom-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
uncertain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
datessous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-
dee,
Tu dois obligatoirement l'exécuter à partir de la
feuillede calcul soit par la fenêtre où est affiché la liste desmacros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentesà excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'estsûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du
mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." a écrit dans le
message de news:0d1701c38cb6$17070b60$Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
unposte EXCEL 95 W98j'ai été quelque peu surpris que la solution proposée
ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=TrueSendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
.
-----Message d'origine-----
Bonjour Marc,
A ) pour faire afficher la grille :
- La feuille où sont situées les données doit
être active.
- Une des cellules du tableau des données doit
être la cellule active.
- La macro doit obligatoirement être appelé à
partir de la feuille de calcul et non de la fenêtre VBE
basic editor)
- Pour afficher la grille avec le bon
format "date", la feuille doit être sans protection au
de la grille, mais, rien n'empêche que tu protèges ta
feuille après que la grille soit affichée par une ligne de
commande. Voici le code testé sous Excel 2002. Et cela
fonctionne correctement. La feuille est protégée et il est
impossible de modifier les données dans la grille. De
plus, les dates sont affichées au format de la cellule
'----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "toto"
.Range("A1").Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "toto", True, True, True
End With
'----------------------------
Si cela ne fonctionne en Excel 97 ... désolé, mais je
n'ai pas d'autres alternatives à proposer !
Salutations!
"Marc de N." <marc.barruel@alcatel.fr> a écrit dans le
message de news:045e01c38f31$48aca7b0$a001280a@phx.gbl...
Denis
OK avec une plage nommée « Base_de _données » SendKeys « %
DG » fonctionne.
Contrairement à la Cde en VBA les champs peuvent être
modifier.
Pour moi, il est impératif que les données ne puissent pas
être modifier.
L'affichage des grilles sont pour des consultations.
Salutations à +
Marc
Je te présente mais excuse pour l'erreur du prénom
-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
un
certain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
dates
sous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc
-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-
dee,
Tu dois obligatoirement l'exécuter à partir de la
feuille
de calcul soit par la fenêtre où est affiché la liste des
macros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"
Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentes
à excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'est
sûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du
mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." <marc.barruel@alcatel.fr> a écrit dans le
message de news:0d1701c38cb6$17070b60$a301280a@phx.gbl...
Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc
-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
un
poste EXCEL 95 W98
j'ai été quelque peu surpris que la solution proposée
ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"
(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
SendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
.
-----Message d'origine-----
Bonjour Marc,
A ) pour faire afficher la grille :
- La feuille où sont situées les données doit
être active.
- Une des cellules du tableau des données doit
être la cellule active.
- La macro doit obligatoirement être appelé à
partir de la feuille de calcul et non de la fenêtre VBE
basic editor)
- Pour afficher la grille avec le bon
format "date", la feuille doit être sans protection au
de la grille, mais, rien n'empêche que tu protèges ta
feuille après que la grille soit affichée par une ligne de
commande. Voici le code testé sous Excel 2002. Et cela
fonctionne correctement. La feuille est protégée et il est
impossible de modifier les données dans la grille. De
plus, les dates sont affichées au format de la cellule
'----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "toto"
.Range("A1").Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "toto", True, True, True
End With
'----------------------------
Si cela ne fonctionne en Excel 97 ... désolé, mais je
n'ai pas d'autres alternatives à proposer !
Salutations!
"Marc de N." a écrit dans le
message de news:045e01c38f31$48aca7b0$
Denis
OK avec une plage nommée « Base_de _données » SendKeys « %
DG » fonctionne.
Contrairement à la Cde en VBA les champs peuvent être
modifier.
Pour moi, il est impératif que les données ne puissent pas
être modifier.
L'affichage des grilles sont pour des consultations.
Salutations à +
Marc
Je te présente mais excuse pour l'erreur du prénom-----Message d'origine-----
Merci Michel de ton aide
Je suis en Excel 97
Dans la succession des questions / réponses, il y a eut
uncertain glissement dans l'énoncé de ma question.
J'ouvre une grille avec des champs date JJ/MM/AA par une
Commande VBA exemple
----------------------------------------
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub
-------------------------
Les dates dans la grille apparaissent MM/JJ/AA
Avec les explications de Gee-dee
j'ai compris qu'une grille ouverte avec VBA donnait des
dates sous la forme MM/JJ/AA
En Excel 97 il y a t-il une commande pour mettre les
datessous la forme JJ/MM/AA
La Cde SendKeys « %DG » n'ouvre pas la grille !
Merci de votre aide bon W.E.
Marc-----Message d'origine-----
Bonjour Marc,
Lorsque tu utilises une procédure comme celle de Gee-
dee,
Tu dois obligatoirement l'exécuter à partir de la
feuillede calcul soit par la fenêtre où est affiché la liste desmacros disponibles ou par un bouton de commande appelant
la macro. Tout ceci à cause de la commande SendKeys() .
Dans la commande suivante de la procédure : sendkeys "%
Do"
Le "D" représente la lettre souligné de la
commande "Données"Le "o" représente la lettre souligne de la
commande "Formulaire" du sous-menu "Données" . Dans les
versions précédentesà excel 2002, cette commande ne s'appelle
pas "formulaire" mais grille. En conséquence la lettre
soulignée n'estsûrement pas le "o" mais une autre lettre du mot Grille.
Regarde la commande sous le menu "Données", et remplace
la ligne de commande le "o" par la lettre soulignée du
mot
"Grille".
Probablement que ta ligne de code : sendkeys "%Do"
deviendra : sendkeys "%DG" à toi de faire la
vérification !
Salutations!
"Marc de N." a écrit dans le
message de news:0d1701c38cb6$17070b60$Bonjour gee-dee- Denis
Merci de votre aide et de votre patience car je ne
comprends pas toujours tous.
Je suis Excel 97
J'ai fais un copier coller de la proposition de gee-dee-
Lorsque je clique sur le bouton
Il ne se passe rien ! ! !
Je commence à désespérer
Que faut-il faire ?
Salutations
Marc-----Message d'origine-----
Bonsoir,
ayant posté ma réponse précédente (aprés essai) depuis
unposte EXCEL 95 W98j'ai été quelque peu surpris que la solution proposée
ne
fonctionne pas !!!!
ce soir avec XP et EXCEL 2002, je suis encore plus
surpris que même ton code ne fonctionne pas !!!!
mais aprés analyse :
1 - en Excel 2002 la commande sendkeys pour afficher la
grille est : sendkeys "%Do"(Données, Formulaire)
2 - dans la macro il est inutile d'appeler deux fois la
grille
donc apres correction :
Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
[A1].Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=TrueSendKeys "%Do"
ActiveSheet.Unprotect
End Sub
@+
.
.
.
