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 Case à cocher

Case à cocher

21 réponses
Avatar
David 02
Bonsoir à tous

Etant débutant en VB. Quelqu'un peut il m'expliquer comment faire ceci.

Une feuille "Annexe". Dans celui ci, j'ai fais un tableau de B6 à N30
Un UserForm. Dans celui ci, j'ai mis 12 cases à cocher.
Chaque case à cocher correspond à une colonne de ma feuille. (C, D, E,
etc..)
Dans cet UserForm, il y a aussi un TextBox dans lequel je rentre une date.
Ce TextBox correspond à la colonne B.
J'aimerais après clic sur le bonton "Valider" de mon UserForm cela rempli la
date dans B6 et le résultat
des cases à cocher à droite de cette date. Cocher = "oui" sinon vide. Puis
ferme l'UserForm
Quand je reviens sur celui ci pour le remplir à nouveau, je clic sur
valider, qu'une procédure recherche si la date n'existe pas et recherche la
première ligne vide pour copier les nouvelles données en dessous.

Merci de votre aide
Salutations
David
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
Denis Michon
Bonsoir David,


Un exemple dans ta bal.


Salutations!



"David 02" a écrit dans le message de news:boeefk$5s3$
bonsoir denis

Un grand merci d'avoir consacrer de ton temps à mon projet (je n'oubli pas
les autres)
mais également à l'explication sur la version française et anglaise un peu
plus haut que j'ai encore du mal à saisir ! ! ! je récupère le fil et on
reviens dessus !!!!

Concernant ce projet

En remplacant "OptionButton" par "CheckBox" cela fonctionne très bien.

Y a t'il un moyen pour : quand une case est cochée cela procure un "x" et si
décochée cela procure un "Abs"
Par défaut cela procure un "VRAI" ou "FAUX"

Egalement si la date rentrée dans TxtDate existe déjà dans la colonne B cela
m'en informe et me demande ou pas de modifier cette ligne. C'est à dire
impossibilite que la colonne B reçoive deux valeurs identiques soit :
TxtDate = à une valeur de la colonne B alors UserForm "Cette date existe
déjà. Voulez vous modifier les données de cette date" Si OUI alors
modification de cette ligne, si NON retour à l'UserForm.

J'en demande peut être beaucoup, non ?
Mon projet est disponible si tu veux y jeter un oeil ! ! !

Encore merci
Salutations
Avatar
David 02
Bonjour et merci denis

c'est vraiment sympa.

Après essais : erreur 1004
"Impossible de lire la propriété Match de la classe WorksheetFunction"
sur cette ligne
If Not IsError(Application.WorksheetFunction.Match(CLng(LaDate), Tblo, 0))
Then

encore merci

david

"Denis Michon" a écrit dans le message de
news:_UBqb.16765$
Bonsoir David,


Un exemple dans ta bal.


Salutations!



"David 02" a écrit dans le message de
news:boeefk$5s3$

bonsoir denis

Un grand merci d'avoir consacrer de ton temps à mon projet (je n'oubli
pas

les autres)
mais également à l'explication sur la version française et anglaise un peu
plus haut que j'ai encore du mal à saisir ! ! ! je récupère le fil et on
reviens dessus !!!!

Concernant ce projet

En remplacant "OptionButton" par "CheckBox" cela fonctionne très bien.

Y a t'il un moyen pour : quand une case est cochée cela procure un "x" et
si

décochée cela procure un "Abs"
Par défaut cela procure un "VRAI" ou "FAUX"

Egalement si la date rentrée dans TxtDate existe déjà dans la colonne B
cela

m'en informe et me demande ou pas de modifier cette ligne. C'est à dire
impossibilite que la colonne B reçoive deux valeurs identiques soit :
TxtDate = à une valeur de la colonne B alors UserForm "Cette date existe
déjà. Voulez vous modifier les données de cette date" Si OUI alors
modification de cette ligne, si NON retour à l'UserForm.

J'en demande peut être beaucoup, non ?
Mon projet est disponible si tu veux y jeter un oeil ! ! !

Encore merci
Salutations






Avatar
Denis Michon
Bonjour David,

J'avais omis que lors de ta première entrée, la plage de cellules ne comporte pas de date. C'est ce qui générait une
erreur.

Version corrigée dans ta bal.


Salutations!



"David 02" a écrit dans le message de news:bofll0$pi8$
Bonjour et merci denis

c'est vraiment sympa.

Après essais : erreur 1004
"Impossible de lire la propriété Match de la classe WorksheetFunction"
sur cette ligne
If Not IsError(Application.WorksheetFunction.Match(CLng(LaDate), Tblo, 0))
Then

encore merci

david

"Denis Michon" a écrit dans le message de
news:_UBqb.16765$
Bonsoir David,


Un exemple dans ta bal.


Salutations!



"David 02" a écrit dans le message de
news:boeefk$5s3$

bonsoir denis

Un grand merci d'avoir consacrer de ton temps à mon projet (je n'oubli
pas

les autres)
mais également à l'explication sur la version française et anglaise un peu
plus haut que j'ai encore du mal à saisir ! ! ! je récupère le fil et on
reviens dessus !!!!

Concernant ce projet

En remplacant "OptionButton" par "CheckBox" cela fonctionne très bien.

Y a t'il un moyen pour : quand une case est cochée cela procure un "x" et
si

décochée cela procure un "Abs"
Par défaut cela procure un "VRAI" ou "FAUX"

Egalement si la date rentrée dans TxtDate existe déjà dans la colonne B
cela

m'en informe et me demande ou pas de modifier cette ligne. C'est à dire
impossibilite que la colonne B reçoive deux valeurs identiques soit :
TxtDate = à une valeur de la colonne B alors UserForm "Cette date existe
déjà. Voulez vous modifier les données de cette date" Si OUI alors
modification de cette ligne, si NON retour à l'UserForm.

J'en demande peut être beaucoup, non ?
Mon projet est disponible si tu veux y jeter un oeil ! ! !

Encore merci
Salutations






Avatar
David 02
bonjour denis

toujours la meme erreur

j'ai également rajouter
Dim c As MSForms.Control (de papou, un peu plus haut)
sinon également une erreur

salutations

"Denis Michon" a écrit dans le message de
news:SVMqb.17034$
Bonjour David,

J'avais omis que lors de ta première entrée, la plage de cellules ne
comporte pas de date. C'est ce qui générait une

erreur.

Version corrigée dans ta bal.


Salutations!



"David 02" a écrit dans le message de
news:bofll0$pi8$

Bonjour et merci denis

c'est vraiment sympa.

Après essais : erreur 1004
"Impossible de lire la propriété Match de la classe WorksheetFunction"
sur cette ligne
If Not IsError(Application.WorksheetFunction.Match(CLng(LaDate), Tblo, 0))
Then

encore merci

david

"Denis Michon" a écrit dans le message de
news:_UBqb.16765$
Bonsoir David,


Un exemple dans ta bal.


Salutations!



"David 02" a écrit dans le message de
news:boeefk$5s3$

bonsoir denis

Un grand merci d'avoir consacrer de ton temps à mon projet (je n'oubli
pas

les autres)
mais également à l'explication sur la version française et anglaise un
peu


plus haut que j'ai encore du mal à saisir ! ! ! je récupère le fil et on
reviens dessus !!!!

Concernant ce projet

En remplacant "OptionButton" par "CheckBox" cela fonctionne très bien.

Y a t'il un moyen pour : quand une case est cochée cela procure un "x"
et


si
décochée cela procure un "Abs"
Par défaut cela procure un "VRAI" ou "FAUX"

Egalement si la date rentrée dans TxtDate existe déjà dans la colonne B
cela

m'en informe et me demande ou pas de modifier cette ligne. C'est à dire
impossibilite que la colonne B reçoive deux valeurs identiques soit :
TxtDate = à une valeur de la colonne B alors UserForm "Cette date existe
déjà. Voulez vous modifier les données de cette date" Si OUI alors
modification de cette ligne, si NON retour à l'UserForm.

J'en demande peut être beaucoup, non ?
Mon projet est disponible si tu veux y jeter un oeil ! ! !

Encore merci
Salutations











Avatar
Denis Michon
Bonjour David,

A ) Tu as modifié le nom de la feuille selon ton application

B ) Dans la colonne B6:B65536 , As-tu des données ? Si oui, elles sont de quelle nature ? Est-ce réellement des dates
dans un format qu'excel comprend ?

C )Attention, si tu tentes de "mixer" le contenu de procédure de différentiels intervenants, cela peut donner des
résultats inattendus Si tu veux définir ta variable C dans la procédure que je t'ai soumise , utilise ceci : Dim C As
Object


Salutations!



"David 02" a écrit dans le message de news:bog6cj$vp4$
bonjour denis

toujours la meme erreur

j'ai également rajouter
Dim c As MSForms.Control (de papou, un peu plus haut)
sinon également une erreur

salutations

"Denis Michon" a écrit dans le message de
news:SVMqb.17034$
Bonjour David,

J'avais omis que lors de ta première entrée, la plage de cellules ne
comporte pas de date. C'est ce qui générait une

erreur.

Version corrigée dans ta bal.


Salutations!



"David 02" a écrit dans le message de
news:bofll0$pi8$

Bonjour et merci denis

c'est vraiment sympa.

Après essais : erreur 1004
"Impossible de lire la propriété Match de la classe WorksheetFunction"
sur cette ligne
If Not IsError(Application.WorksheetFunction.Match(CLng(LaDate), Tblo, 0))
Then

encore merci

david

"Denis Michon" a écrit dans le message de
news:_UBqb.16765$
Bonsoir David,


Un exemple dans ta bal.


Salutations!



"David 02" a écrit dans le message de
news:boeefk$5s3$

bonsoir denis

Un grand merci d'avoir consacrer de ton temps à mon projet (je n'oubli
pas

les autres)
mais également à l'explication sur la version française et anglaise un
peu


plus haut que j'ai encore du mal à saisir ! ! ! je récupère le fil et on
reviens dessus !!!!

Concernant ce projet

En remplacant "OptionButton" par "CheckBox" cela fonctionne très bien.

Y a t'il un moyen pour : quand une case est cochée cela procure un "x"
et


si
décochée cela procure un "Abs"
Par défaut cela procure un "VRAI" ou "FAUX"

Egalement si la date rentrée dans TxtDate existe déjà dans la colonne B
cela

m'en informe et me demande ou pas de modifier cette ligne. C'est à dire
impossibilite que la colonne B reçoive deux valeurs identiques soit :
TxtDate = à une valeur de la colonne B alors UserForm "Cette date existe
déjà. Voulez vous modifier les données de cette date" Si OUI alors
modification de cette ligne, si NON retour à l'UserForm.

J'en demande peut être beaucoup, non ?
Mon projet est disponible si tu veux y jeter un oeil ! ! !

Encore merci
Salutations











Avatar
David 02
Denis

Je me suis permis de t'envoyer en BAL perso mon fichier
sinon

A ) Tu as modifié le nom de la feuille selon ton application


oui nom de la feuille "Annexe"

B ) Dans la colonne B6:B65536 , As-tu des données ? Si oui, elles sont de
quelle nature ? Est-ce réellement des dates dans un format qu'excel comprend

?

hé, je pense que la est l'erreur ! ! ! Format date de B6 à B30. En dessous
pas besoin. es ici l'erreur ?

C )Attention, si tu tentes de "mixer" le contenu de procédure de
différentiels intervenants, cela peut donner des

résultats inattendus Si tu veux définir ta variable C dans la procédure
que je t'ai soumise , utilise ceci : Dim C As

Object
pas tout compris mais je modifi


Avatar
David 02
Denis

Après nouvelle essais je m'aperçoi que si il n'y a pas de date dans B6 cela
fonctionne
sinon après entrée de la première ligne cela bloque.
Avatar
Denis Michon
Bonjour David,


"Je me suis permis de t'envoyer en BAL perso mon fichier"

Je n'ai rien reçu puisque j'ai un logiciel anti-spam qui gobe tout ce qui n'est pas pré-autorisé ! Ton adresse doit être
inscrit d'abord dans mon carnet d'adresse pour y avoir accès.

Est-ce une adresse valide :

Si oui, envoie le fichier, sinon affiche ici ton adresse internet, tu peux modifier ton adresse pour éviter d'être
"Spammer" en autant que tu me dise comment la reconstituer.


Salutations!





"David 02" a écrit dans le message de news:bogj5j$veg$
Denis

Je me suis permis de t'envoyer en BAL perso mon fichier
sinon

A ) Tu as modifié le nom de la feuille selon ton application


oui nom de la feuille "Annexe"

B ) Dans la colonne B6:B65536 , As-tu des données ? Si oui, elles sont de
quelle nature ? Est-ce réellement des dates dans un format qu'excel comprend

?

hé, je pense que la est l'erreur ! ! ! Format date de B6 à B30. En dessous
pas besoin. es ici l'erreur ?

C )Attention, si tu tentes de "mixer" le contenu de procédure de
différentiels intervenants, cela peut donner des

résultats inattendus Si tu veux définir ta variable C dans la procédure
que je t'ai soumise , utilise ceci : Dim C As

Object
pas tout compris mais je modifi


Avatar
David 02
c'est partis

merci



"Denis Michon" a écrit dans le message de
news:0wRqb.17060$

Bonjour David,


"Je me suis permis de t'envoyer en BAL perso mon fichier"

Je n'ai rien reçu puisque j'ai un logiciel anti-spam qui gobe tout ce qui
n'est pas pré-autorisé ! Ton adresse doit être

inscrit d'abord dans mon carnet d'adresse pour y avoir accès.

Est-ce une adresse valide :

Si oui, envoie le fichier, sinon affiche ici ton adresse internet, tu peux
modifier ton adresse pour éviter d'être

"Spammer" en autant que tu me dise comment la reconstituer.


Salutations!





"David 02" a écrit dans le message de
news:bogj5j$veg$

Denis

Je me suis permis de t'envoyer en BAL perso mon fichier
sinon

A ) Tu as modifié le nom de la feuille selon ton application


oui nom de la feuille "Annexe"

B ) Dans la colonne B6:B65536 , As-tu des données ? Si oui, elles sont
de


quelle nature ? Est-ce réellement des dates dans un format qu'excel
comprend

?

hé, je pense que la est l'erreur ! ! ! Format date de B6 à B30. En dessous
pas besoin. es ici l'erreur ?

C )Attention, si tu tentes de "mixer" le contenu de procédure de
différentiels intervenants, cela peut donner des

résultats inattendus Si tu veux définir ta variable C dans la procédure
que je t'ai soumise , utilise ceci : Dim C As

Object
pas tout compris mais je modifi









Avatar
Denis Michon
Bonjour David,


Fichier retourné après correction.


Salutations!


"David 02" a écrit dans le message de news:bogp40$pe4$
c'est partis

merci



"Denis Michon" a écrit dans le message de
news:0wRqb.17060$

Bonjour David,


"Je me suis permis de t'envoyer en BAL perso mon fichier"

Je n'ai rien reçu puisque j'ai un logiciel anti-spam qui gobe tout ce qui
n'est pas pré-autorisé ! Ton adresse doit être

inscrit d'abord dans mon carnet d'adresse pour y avoir accès.

Est-ce une adresse valide :

Si oui, envoie le fichier, sinon affiche ici ton adresse internet, tu peux
modifier ton adresse pour éviter d'être

"Spammer" en autant que tu me dise comment la reconstituer.


Salutations!





"David 02" a écrit dans le message de
news:bogj5j$veg$

Denis

Je me suis permis de t'envoyer en BAL perso mon fichier
sinon

A ) Tu as modifié le nom de la feuille selon ton application


oui nom de la feuille "Annexe"

B ) Dans la colonne B6:B65536 , As-tu des données ? Si oui, elles sont
de


quelle nature ? Est-ce réellement des dates dans un format qu'excel
comprend

?

hé, je pense que la est l'erreur ! ! ! Format date de B6 à B30. En dessous
pas besoin. es ici l'erreur ?

C )Attention, si tu tentes de "mixer" le contenu de procédure de
différentiels intervenants, cela peut donner des

résultats inattendus Si tu veux définir ta variable C dans la procédure
que je t'ai soumise , utilise ceci : Dim C As

Object
pas tout compris mais je modifi









1 2 3