Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Grille de base de donnée

Grille de base de donnée

6 réponses
Avatar
Marc de N.
Bonjour =E0 toutes et tous=20

J'ai =E9cris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=3DTrue,=20
Contents:=3DTrue, Scenarios:=3DTrue
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la forme=20
JJ/MM/AAAA.
Dans l'affichage la date dans la grille appara=EEt MM/JJ/AA
Merci de m'indiquer la commande =E0 ajouter pour avoir un=20
affichage JJ/MM/AA dans la grille de base de donn=E9es.
Salutations=20
Marc
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Michon
Bonjour Marc de N.


Ton problème provient du fait que ta feuille est protégé lorsque tu affiches la grille:

Voici un exemple qui fonctionne : Adapte le nom de la feuille.


Sheets("Feuil1").Select
ActiveSheet.Unprotect
'Une cellule de la plage doit être active sinon pas d'affichage de grille !
Range("A2").Select
Application.DisplayAlerts = False
Application.CommandBars.FindControl(ID:†0).Execute
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True



Salutations!

"Marc de N." a écrit dans le message de news:05b001c3873d$ce058950$
Bonjour à toutes et tous

J'ai écris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la forme
JJ/MM/AAAA.
Dans l'affichage la date dans la grille apparaît MM/JJ/AA
Merci de m'indiquer la commande à ajouter pour avoir un
affichage JJ/MM/AA dans la grille de base de données.
Salutations
Marc
Avatar
Marc de N.
Bonjour Denis

D'abord merci d'avoir pris du temps pour me répondre.
Il y deux choses que je ne comprends pas.
1) Lorsque je fais un copier coller de ce que tu m'as
écrit, j'ai une erreur de compilation, attendu :
compression apres ID et avant 860
2) La grille, je veux juste qu'elle s'affiche pour
consultation et que la colonne C ou sont stocké des dates
sous la forme JJ/MM/AAAA apparaissent JJ/MM/AAAA
Actuellement ils apparaissent sous la forme MM/JJ/AA
Merci de votre aide @ +
Slts
Marc

-----Message d'origine-----
Bonjour Marc de N.


Ton problème provient du fait que ta feuille est protégé
lorsque tu affiches la grille:


Voici un exemple qui fonctionne : Adapte le nom de la
feuille.



Sheets("Feuil1").Select
ActiveSheet.Unprotect
'Une cellule de la plage doit être active sinon pas
d'affichage de grille !

Range("A2").Select
Application.DisplayAlerts = False
Application.CommandBars.FindControl(ID:†0).Execute
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True




Salutations!

"Marc de N." a écrit dans le
message de news:05b001c3873d$ce058950$

Bonjour à toutes et tous

J'ai écris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la forme
JJ/MM/AAAA.
Dans l'affichage la date dans la grille apparaît MM/JJ/AA
Merci de m'indiquer la commande à ajouter pour avoir un
affichage JJ/MM/AA dans la grille de base de données.
Salutations
Marc


.



Avatar
Denis Michon
Bonjour Marc,

Pour ce qui concerne le ID, Il se peut qu'il soit différent entre les versions d'excel.

Tu peux cependant utiliser ceci sans ID ,

'-------------------------
With Sheets("Feuil1")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
'-------------------------


Salutations!

"Marc de N." a écrit dans le message de news:1af2901c387f5$8d11b0f0$
Bonjour Denis

D'abord merci d'avoir pris du temps pour me répondre.
Il y deux choses que je ne comprends pas.
1) Lorsque je fais un copier coller de ce que tu m'as
écrit, j'ai une erreur de compilation, attendu :
compression apres ID et avant 860
2) La grille, je veux juste qu'elle s'affiche pour
consultation et que la colonne C ou sont stocké des dates
sous la forme JJ/MM/AAAA apparaissent JJ/MM/AAAA
Actuellement ils apparaissent sous la forme MM/JJ/AA
Merci de votre aide @ +
Slts
Marc

-----Message d'origine-----
Bonjour Marc de N.


Ton problème provient du fait que ta feuille est protégé
lorsque tu affiches la grille:


Voici un exemple qui fonctionne : Adapte le nom de la
feuille.



Sheets("Feuil1").Select
ActiveSheet.Unprotect
'Une cellule de la plage doit être active sinon pas
d'affichage de grille !

Range("A2").Select
Application.DisplayAlerts = False
Application.CommandBars.FindControl(ID:†0).Execute
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True




Salutations!

"Marc de N." a écrit dans le
message de news:05b001c3873d$ce058950$

Bonjour à toutes et tous

J'ai écris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la forme
JJ/MM/AAAA.
Dans l'affichage la date dans la grille apparaît MM/JJ/AA
Merci de m'indiquer la commande à ajouter pour avoir un
affichage JJ/MM/AA dans la grille de base de données.
Salutations
Marc


.



Avatar
Marc de N.
Denis

J'ai bien reçu ton message, j'ai amené quelques
aménagements voir si dessous
------------------------------
With Worksheets("Devis")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End With
------------------------------
Cela affiche le grille non protégé avec les dates
affichées MM/JJ/AA
Moi ce que je veux faire c'est afficher la grille
pour "consultation" sans de l'on puisse modifier les
données. Cela veut dire que les données doivent être
protégées.
Avec les dates affichées JJ/MM/AA comme cela est dans ma
feuille de calcul
Suis-je assez claire ?
Merci à plus
Salutations

Marc

-----Message d'origine-----
Bonjour Marc,

Pour ce qui concerne le ID, Il se peut qu'il soit
différent entre les versions d'excel.


Tu peux cependant utiliser ceci sans ID ,

'-------------------------
With Sheets("Feuil1")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

End With
'-------------------------


Salutations!

"Marc de N." a écrit dans le
message de news:1af2901c387f5$8d11b0f0$

Bonjour Denis

D'abord merci d'avoir pris du temps pour me répondre.
Il y deux choses que je ne comprends pas.
1) Lorsque je fais un copier coller de ce que tu m'as
écrit, j'ai une erreur de compilation, attendu :
compression apres ID et avant 860
2) La grille, je veux juste qu'elle s'affiche pour
consultation et que la colonne C ou sont stocké des dates
sous la forme JJ/MM/AAAA apparaissent JJ/MM/AAAA
Actuellement ils apparaissent sous la forme MM/JJ/AA
Merci de votre aide @ +
Slts
Marc

-----Message d'origine-----
Bonjour Marc de N.


Ton problème provient du fait que ta feuille est protégé
lorsque tu affiches la grille:


Voici un exemple qui fonctionne : Adapte le nom de la
feuille.



Sheets("Feuil1").Select
ActiveSheet.Unprotect
'Une cellule de la plage doit être active sinon pas
d'affichage de grille !

Range("A2").Select
Application.DisplayAlerts = False
Application.CommandBars.FindControl(ID:†0).Execute
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True




Salutations!

"Marc de N." a écrit dans le
message de news:05b001c3873d$ce058950$

Bonjour à toutes et tous

J'ai écris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la forme
JJ/MM/AAAA.
Dans l'affichage la date dans la grille apparaît MM/JJ/AA
Merci de m'indiquer la commande à ajouter pour avoir un
affichage JJ/MM/AA dans la grille de base de données.
Salutations
Marc


.




.




Avatar
Denis Michon
Bonjour Marc,


Je n'ai pas ce problème avec Excel 2002 ! Les dates conservent leur format d'origine des cellules de la feuille de
calcul.


Salutations!



"Marc de N." a écrit dans le message de news:1e3701c38823$9734d200$
Denis

J'ai bien reçu ton message, j'ai amené quelques
aménagements voir si dessous
------------------------------
With Worksheets("Devis")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End With
------------------------------
Cela affiche le grille non protégé avec les dates
affichées MM/JJ/AA
Moi ce que je veux faire c'est afficher la grille
pour "consultation" sans de l'on puisse modifier les
données. Cela veut dire que les données doivent être
protégées.
Avec les dates affichées JJ/MM/AA comme cela est dans ma
feuille de calcul
Suis-je assez claire ?
Merci à plus
Salutations

Marc

-----Message d'origine-----
Bonjour Marc,

Pour ce qui concerne le ID, Il se peut qu'il soit
différent entre les versions d'excel.


Tu peux cependant utiliser ceci sans ID ,

'-------------------------
With Sheets("Feuil1")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

End With
'-------------------------


Salutations!

"Marc de N." a écrit dans le
message de news:1af2901c387f5$8d11b0f0$

Bonjour Denis

D'abord merci d'avoir pris du temps pour me répondre.
Il y deux choses que je ne comprends pas.
1) Lorsque je fais un copier coller de ce que tu m'as
écrit, j'ai une erreur de compilation, attendu :
compression apres ID et avant 860
2) La grille, je veux juste qu'elle s'affiche pour
consultation et que la colonne C ou sont stocké des dates
sous la forme JJ/MM/AAAA apparaissent JJ/MM/AAAA
Actuellement ils apparaissent sous la forme MM/JJ/AA
Merci de votre aide @ +
Slts
Marc

-----Message d'origine-----
Bonjour Marc de N.


Ton problème provient du fait que ta feuille est protégé
lorsque tu affiches la grille:


Voici un exemple qui fonctionne : Adapte le nom de la
feuille.



Sheets("Feuil1").Select
ActiveSheet.Unprotect
'Une cellule de la plage doit être active sinon pas
d'affichage de grille !

Range("A2").Select
Application.DisplayAlerts = False
Application.CommandBars.FindControl(ID:†0).Execute
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True




Salutations!

"Marc de N." a écrit dans le
message de news:05b001c3873d$ce058950$

Bonjour à toutes et tous

J'ai écris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la forme
JJ/MM/AAAA.
Dans l'affichage la date dans la grille apparaît MM/JJ/AA
Merci de m'indiquer la commande à ajouter pour avoir un
affichage JJ/MM/AA dans la grille de base de données.
Salutations
Marc


.




.




Avatar
Marc de N.
Bonjour Denis

Je suis sous Excel 97
Merci de votre participation
A plus, Salutations
Marc

-----Message d'origine-----
Bonjour Marc,


Je n'ai pas ce problème avec Excel 2002 ! Les dates
conservent leur format d'origine des cellules de la

feuille de
calcul.


Salutations!



"Marc de N." a écrit dans le
message de news:1e3701c38823$9734d200$

Denis

J'ai bien reçu ton message, j'ai amené quelques
aménagements voir si dessous
------------------------------
With Worksheets("Devis")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End With
------------------------------
Cela affiche le grille non protégé avec les dates
affichées MM/JJ/AA
Moi ce que je veux faire c'est afficher la grille
pour "consultation" sans de l'on puisse modifier les
données. Cela veut dire que les données doivent être
protégées.
Avec les dates affichées JJ/MM/AA comme cela est dans ma
feuille de calcul
Suis-je assez claire ?
Merci à plus
Salutations

Marc

-----Message d'origine-----
Bonjour Marc,

Pour ce qui concerne le ID, Il se peut qu'il soit
différent entre les versions d'excel.


Tu peux cependant utiliser ceci sans ID ,

'-------------------------
With Sheets("Feuil1")
.Select
.Unprotect
.Range("A2").Select
Application.DisplayAlerts = False
.ShowDataForm
.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

End With
'-------------------------


Salutations!

"Marc de N." a écrit dans le
message de news:1af2901c387f5$8d11b0f0$

Bonjour Denis

D'abord merci d'avoir pris du temps pour me répondre.
Il y deux choses que je ne comprends pas.
1) Lorsque je fais un copier coller de ce que tu m'as
écrit, j'ai une erreur de compilation, attendu :
compression apres ID et avant 860
2) La grille, je veux juste qu'elle s'affiche pour
consultation et que la colonne C ou sont stocké des dates
sous la forme JJ/MM/AAAA apparaissent JJ/MM/AAAA
Actuellement ils apparaissent sous la forme MM/JJ/AA
Merci de votre aide @ +
Slts
Marc

-----Message d'origine-----
Bonjour Marc de N.


Ton problème provient du fait que ta feuille est protégé
lorsque tu affiches la grille:


Voici un exemple qui fonctionne : Adapte le nom de la
feuille.



Sheets("Feuil1").Select
ActiveSheet.Unprotect
'Une cellule de la plage doit être active sinon pas
d'affichage de grille !

Range("A2").Select
Application.DisplayAlerts = False
Application.CommandBars.FindControl(ID:†0).Execute
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True




Salutations!

"Marc de N." a écrit dans le
message de news:05b001c3873d$ce058950$

Bonjour à toutes et tous

J'ai écris
-----------------------------------
Private Sub CommandButton1_Click()
'Voir feuille devis
Windows(NCDevisLigne & ".xls").Activate
Sheets("devis").Select
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveSheet.ShowDataForm
ActiveSheet.Unprotect
End Sub
-------------------------------
Dans la feuille "devis"
Dans la colonne C, j'ai des champs date, ils ont la
forme



JJ/MM/AAAA.
Dans l'affichage la date dans la grille apparaît
MM/JJ/AA



Merci de m'indiquer la commande à ajouter pour avoir un
affichage JJ/MM/AA dans la grille de base de données.
Salutations
Marc


.




.




.