Flux rss
Collection CommentCaMarche.net
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Excel case a cocher code Vba svp

jeffsublime, le dimanche 6 juillet 2008 à 21:52:21
Salut à tous

Voila ce que je cherche,

Je veux un exemple de code vba pour les case a coché

Exemple: SI CASE ( QUI EST EN A2 ) EST COCHÉ C1 EST = A1

Voila ou je block dans ma formule

If Userform1.CheckBox1 . Value = True ??????

Merci de m'aider
Répondre à jeffsublime  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
titus17, le dimanche 6 juillet 2008 à 23:02:22
Voici un exemple de code

tu lances un code VBA par le module principal (macro ppalle).
Celui ci doit lancer ton userform

Sub ppalle()
'affichage du userform1
UserForm1.Show

End Sub



cette boite de dialogue (userform1) doit contenir
- les cases a cocher
- un bouton du type OK dans lequel tu places le code suivant :


Private Sub CommandButton1_Click()
'nom de la macro

'insertion d'une condition : si la cas ea cocher checkbox1 est activée => se termine par then
If CheckBox1.Value = True Then
'execution quand la condition est reconnue : la celllue C1 se charge de la valeur de la cellule A1
Range("C1") = Range("A1")
'fin du test de condition
End If
'fermeture de la userform
Me.Hide
'fermeture de la macro
End sub


Lorsque l'on clique sur le bouton, le code suivant s'exécute : si la case a cocher est activée la cellule C1 est complétée par la valeur de la cellule A1
Répondre à titus17

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeffsublime, le lundi 7 juillet 2008 à 03:17:00
Si je comprend bien je met ma case a cocher sur ma feuille excel ensuite jentre dans vba je creer un module et insert

Private Sub CommandButton1_Click()_
If CheckBox1.Value = True Then_
Range("C1") = Range("A1")_
End sub

est ce que jai bien compris ou si jai zappé quelque chose
Répondre à jeffsublime

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeffsublime, le lundi 7 juillet 2008 à 04:16:42
ok jai fais comme ta dit ca marche quand je suis dans VBA et que je fais F5 une boite de dialogue ouvre avec la case si je clique dessus la cellule c1 se rempli mais le hic est que je narrive pas a mettre la case a cocher et de maniere permanante dans une cellule ex b1

merci de maider encore
Répondre à jeffsublime

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
titus17, le lundi 7 juillet 2008 à 09:37:01
Re bonjour

Je pensais que tu voulais travailler à partir d'une boite de dialogue, mais si je te comprends bien tu souhaites utiliser une case a cocher depuis une feuille excel directement sans passer par une boite de dialogue.

Si c'est la cas, tu n'a pas necessairement besoin d'utiliser un code VBA :

tu te places sur une feuille excel

A partir de la barre d'outil formulaire, tu sélectionnes une case à cocher
tu la poses sur ta feuille excel (en B3 par exemple)
ensuite tu effectues un clic droit sur la case à cocher
tu choisis 'Format de controle'
dans la boite qui apparait tu selectionnes l'onglet 'Controle'
il y a une zone de saisie nommée 'Cellule liée'
dans cette zone de saisie tu indiques l'adresse de la cellule qui receptionnera le resultat du test de la coche (soit vrai , soit Faux)
pour notre exemple tu peux saisir D2

tu valides

effectues alors un clic sur la case à cocher pour activer la coche.
tu dois alors avoir en D2 le resultat du test de ta selection de la case à cocher :
si la case à cocher est activée D2 = VRAI
si la case à cocher n'est pas activée D2 = FAUX

Pour terminer tu effectues un test dans la cellule qui doit présenter ton résultat

exemple :
en A1 tu as la valeur "TOTO"

quand tu coches ta case à cocher tu veux que B1 soit égal à A1 (toto pour notre exemple)

en B1 tu places la formule =SI(D2=VRAI;A1;"")
qui signifie : si la case à cocher est activée (valeur de C2 = VRAI) alors C1 = A1 sinon C1 est vide

maintenant quand tu coches en B1 tu obtient la valeur de la cellule A1, quand tu désactives la coche tu n'as plus rien.

j'espére que c'est assez clair

CRDLT
Répondre à titus17

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeffsublime, le lundi 7 juillet 2008 à 16:32:26
ok c en plein ce que je voulais mais jai une autre question je voudrais exemple

en A1 jai toto B1 case a cocher en C1 8x10 en C2 8x12 en C3 8x14 en C4 8x16 D1,D2,D3,D4 case a cocher

maintenant si je coche la case B1 qui correspond a A1 et que je coche la case D1 qui correspond a c1 le resultats = 2000 $ mais si je coche D2 qui corespond a C2 resutat est 2500$ ainsi de suite

un exemple de formule car jai toujours faux et aussi combien de exemple met case c1 je pourrais mettre je cest que la fonction SI est limité

merci dans tout les cas car jetais rendu dans le vba et je ne comprenais plus trop bien ou jen etais

jeff ps jespere que mon exemple est pas mal
Répondre à jeffsublime

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeffsublime, le lundi 7 juillet 2008 à 16:34:14
Titus autre question est qune liste deroulante est le meme principe et comment je fais pour ajouter du texte dans la liste deroulante
Répondre à jeffsublime

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeffsublime, le lundi 7 juillet 2008 à 16:44:18
comme ta lair a connaitre bien excel je tenvoi un autre question que javais demandé sur ce site et sans avoir de réponse jespere de ne pas trop abusé de ton temps merci

J'aimerais savoir si c'est possible d'importer des images dans excel ou j'écrirais sur les images des prix et meme que c'est prix serais relié à une formule. Le but est de faire un catalogue de prix que ou je pourrais changer facilement les prix relié au hausse des fournisseur.

Merci de bien vouloir méclairer sur ce sujet et si ce n'est pas possible avec excel avec quel autre logiciel je pourrais faire ca.

Jeff
Répondre à jeffsublime

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 jeffsublime, le lundi 7 juillet 2008 à 22:14:44
AUTRE QUESTION LA JEXAGERE PEUT ETRE UN PEU MAIS BON JE TENTE LE COUP

EST CE POSSIBLE DE FAIRE EXEMPLE

EN A1 JAI TOTO EN A2 JAI TATA EN B1 ET B2 CASE A COCHER EN COCHANT B1 EN C1 APPARAIT 8X10 EN C2 APPARAIT 8X12 AVEC DES CASE A COCHÉ LA JE COCHE 8X10 DONC MON RESULT SERAIT EN E1 TOTO 8X10 2000$

CA SERAIT TOP SI TU PEUX MAIDER AVEC CE PROBLEME
Répondre à jeffsublime
Nommer un classeur avec la date courante (Résolu) Bonjour, j'aimerai savoir comment creer un nouveau classeur Excel (dans le code VBA) en le nommant avec la date courante. Autrement dit je voudrais savoir comment nommer un classeur avecune variable. Merci... www.commentcamarche.net/forum/affich-1386754-nommer-un-classeur-avec-la-date-courante
Modèle Excel - Code VBA (Résolu) Bonjour, J'ai un petit problème avec du code VBA dans un modèle Excel. Ce que ça doit faire: -Lorsque j'ouvre un fichier en partant du modèle (fichier.xlt) (Double-clique dessus) le fichier doit incrémenter de 1 le nombre d'une cellule... www.commentcamarche.net/forum/affich-6149950-modele-excel-code-vba
Code VBA pour effacer controles après click (Résolu) Bonjour, Je suis à la recherche d'un code VBA pour effacer différents controles (TextBox et OptionButton) après un clique dans un CommandButton. Je suis débutant et je ne connais pas grand chose. J'ai découvert il n'y pas longtemps les... www.commentcamarche.net/forum/affich-5620062-code-vba-pour-effacer-controles-apres-click
Code Vba Pour masquer les Feuilles (Résolu)Bonjour, Je voudrais un code vba pour masquer les feuilles d'un classeur qu'on ne peut pas les afficher à partir du Format/Feuille/Afficher. Avec tous mes respects. www.commentcamarche.net/forum/affich-4676579-code-vba-pour-masquer-les-feuilles
Erreur code vba (Résolu)Bonjour, j ai ecrit un code vba mais il me donne une erreur lors de l execution est ce que vous pouvvez maider a la corriger??? merci d avance www.commentcamarche.net/forum/affich-7525929-erreur-code-vba
Explication code vba (Résolu)Bonjour, derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row Je souhaiterai avoir une explication détaillé de ce code vba (comme pour un enfant de 6an,lol). Je sais que cela veut dire "récupération de la dernière ligne non vide de la colonne A"... www.commentcamarche.net/forum/affich-5866016-explication-code-vba