OVH Cloud OVH Cloud

Obligation d'emplir toutes les cellules

6 réponses
Avatar
Denys
Bonjour =E0 tous,

J'ai un petit formulaire =E0 cr=E9=E9r sur Excel. Ce formulaire=20
comportera une quinzaine de cellules =E0 emplir, plus un=20
textbox pour des commentaires.

Le contenu de chacune des cellules sera aussi rapport=E9=20
(copi=E9 en fait)au bas du formulaire (sur une ligne=20
cach=E9e), et ensuite transf=E9r=E9 dans une base de donn=E9es=20
(autre feuille Excel). L'usager entrera ses donn=E9es sur le=20
formulaire, cliquera sur un bouton qui imprimera le=20
formulaire et transf=E9rera les donn=E9es.

Cependant, j'aimerais m'assurer que toutes les cellules=20
soient remplies avant d'imprimer le document et de=20
transf=E9rer les donn=E9es. S'il y a omission, l'usager doit=20
inscrire les infos manquantes.

Lors de l'ouverture du fichier, la cellule active est=20
disons D4 dans laquelle le no de compte doit =EAtre inscrit.=20
est-il possible que le curseur reste bloqu=E9 sur cette=20
cellule tant que le no de compte ne sera pas inscrit?

Avec un Userform et setfocus, =E7a va, mais avec une feuille=20
Excel????

Merci pour vos id=E9es...

Denys

6 réponses

Avatar
Pierre CFI
bonjour
dans la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [d4] = "" Or [d4] = 0 Then
[d4].Select
End If
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Denys" a écrit dans le message de news: 0ee401c398ad$22143660$
Bonjour à tous,

J'ai un petit formulaire à créér sur Excel. Ce formulaire
comportera une quinzaine de cellules à emplir, plus un
textbox pour des commentaires.

Le contenu de chacune des cellules sera aussi rapporté
(copié en fait)au bas du formulaire (sur une ligne
cachée), et ensuite transféré dans une base de données
(autre feuille Excel). L'usager entrera ses données sur le
formulaire, cliquera sur un bouton qui imprimera le
formulaire et transférera les données.

Cependant, j'aimerais m'assurer que toutes les cellules
soient remplies avant d'imprimer le document et de
transférer les données. S'il y a omission, l'usager doit
inscrire les infos manquantes.

Lors de l'ouverture du fichier, la cellule active est
disons D4 dans laquelle le no de compte doit être inscrit.
est-il possible que le curseur reste bloqué sur cette
cellule tant que le no de compte ne sera pas inscrit?

Avec un Userform et setfocus, ça va, mais avec une feuille
Excel????

Merci pour vos idées...

Denys
Avatar
Denys
Salut Pierre,

Eh! bien dis-donc!!! T'en as mis du temps à répondre!!!!!
:-)))

Merci beaucoup, cela m'aidera beaucoup...

Bonne journée

Denys


-----Original Message-----
bonjour
dans la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If [d4] = "" Or [d4] = 0 Then
[d4].Select
End If
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Denys" a écrit
dans le message de news: 0ee401c398ad$22143660

$
Bonjour à tous,

J'ai un petit formulaire à créér sur Excel. Ce formulaire
comportera une quinzaine de cellules à emplir, plus un
textbox pour des commentaires.

Le contenu de chacune des cellules sera aussi rapporté
(copié en fait)au bas du formulaire (sur une ligne
cachée), et ensuite transféré dans une base de données
(autre feuille Excel). L'usager entrera ses données sur le
formulaire, cliquera sur un bouton qui imprimera le
formulaire et transférera les données.

Cependant, j'aimerais m'assurer que toutes les cellules
soient remplies avant d'imprimer le document et de
transférer les données. S'il y a omission, l'usager doit
inscrire les infos manquantes.

Lors de l'ouverture du fichier, la cellule active est
disons D4 dans laquelle le no de compte doit être inscrit.
est-il possible que le curseur reste bloqué sur cette
cellule tant que le no de compte ne sera pas inscrit?

Avec un Userform et setfocus, ça va, mais avec une feuille
Excel????

Merci pour vos idées...

Denys


.



Avatar
Pierre CFI
.../..
ah mais, j'en connais un (jps) qui répond méme aux questions qui auraient due étre posées ou qui de toutes façons le seront un jour
:o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Denys" a écrit dans le message de news: 0df701c398af$b7e93a80$
Salut Pierre,

Eh! bien dis-donc!!! T'en as mis du temps à répondre!!!!!
:-)))

Merci beaucoup, cela m'aidera beaucoup...

Bonne journée

Denys


-----Original Message-----
bonjour
dans la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If [d4] = "" Or [d4] = 0 Then
[d4].Select
End If
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Denys" a écrit
dans le message de news: 0ee401c398ad$22143660

$
Bonjour à tous,

J'ai un petit formulaire à créér sur Excel. Ce formulaire
comportera une quinzaine de cellules à emplir, plus un
textbox pour des commentaires.

Le contenu de chacune des cellules sera aussi rapporté
(copié en fait)au bas du formulaire (sur une ligne
cachée), et ensuite transféré dans une base de données
(autre feuille Excel). L'usager entrera ses données sur le
formulaire, cliquera sur un bouton qui imprimera le
formulaire et transférera les données.

Cependant, j'aimerais m'assurer que toutes les cellules
soient remplies avant d'imprimer le document et de
transférer les données. S'il y a omission, l'usager doit
inscrire les infos manquantes.

Lors de l'ouverture du fichier, la cellule active est
disons D4 dans laquelle le no de compte doit être inscrit.
est-il possible que le curseur reste bloqué sur cette
cellule tant que le no de compte ne sera pas inscrit?

Avec un Userform et setfocus, ça va, mais avec une feuille
Excel????

Merci pour vos idées...

Denys


.



Avatar
AV
Pour vérifier en fin de saisie si tous les cellule ont été renseignées :
Nommer la plage de saisie (sélection des cellules non contigues par ctrl)
"PlageSaisies"
Ex : 6 cellules à renseigner, puis :

If [countA(PlageSaisies)] < 6 Then [PlageSaisies].Find("").Activate

AV
Avatar
Denys
Salut Alain,

Merci!!! Quelle bonne idée.... Mais ou(u accent grave) vas-
tu chercher tout ça????? Dis-moi que c'est un p'tit verre
de rouge (ou deux) qui te donne toutes ces idées!!!!!

Merci encore une fois!!!

Denys



-----Original Message-----
Pour vérifier en fin de saisie si tous les cellule ont
été renseignées :

Nommer la plage de saisie (sélection des cellules non
contigues par ctrl)

"PlageSaisies"
Ex : 6 cellules à renseigner, puis :

If [countA(PlageSaisies)] < 6 Then [PlageSaisies].Find
("").Activate


AV


.



Avatar
AV
Merci!!!
Pas de quoi...


Quelle bonne idée....
J'en suis convaincu ! ;-)


Dis-moi que c'est un p'tit verre
de rouge (ou deux) .....
Non, non,...une simple perfusion à partir d'une barrique !


AV