macro condition case à cocher

[matt31]

Bonjour,

j'ai mis en place sur un fichier une case à cocher à laquelle j'ai relié une macro pour appliquer une condition.
Cela fonctionne.
A savoir si la case est cochée, la valeur en O est recopiée en M.
Je ne l'ai fait que pour la 1ère case en 2° ligne.

Mon problème est que j'aurais 500 lignes minimum et 12 feuilles dans mon classeur. J'aimerais éviter de faire la macro pour les 500 cases.

Existe-t-il une solution?

Merci par avance pour votre aide.

 

[kjin]

Re : macro condition case à cocher

Bonsoir,

j'ai mis en place sur un fichier une case à cocher à laquelle j'ai relié une macro pour appliquer une condition.

Pourquoi ne pas le faire par double-click sur une cellule de ton choix
500 lignes et 12 feuilles chez moi ça fait 6000 cases à cocher (et j'ai pas utilisé excel...)
A+
kjin

 

[matt31]

Re : macro condition case à cocher

Parce qu'une seule à cocher c'est un simple clic donc 2 fois moins qu'un double clic

En cellule M, j'ai le montant des cotations. Chaque fois que ce montant sera payé, je cocherai la case et le montant sera répercuté en O, la colonne paiement.
Les paiements n'interviennent pas au même moment. Je rajouterai ensuite une formule pour addtionner les paiements et vérifier ainsi les cas non payés.

 

[sourcier08]

Re : macro condition case à cocher

Bonsoir,

Pourquoi ne pas le faire par double-click sur une cellule de ton choix

kjin

Salut à tous !

J'avais pensé à ça aussi. Enfin, en simple clic.

On ne fait pas plus de clics et c'est 1 500 000 000 de fois plus simple à coder et plus sûr. En prime, t'as même la possibilité d'ôter une croix en re-cliquant sur la cellule, en cas d'erreur de clic.



[edit] J'ai du recopier la feuille 1 car le fichier que t'as fournis contenait beaucoup trop de cases à cocher en dernière ligne.
Je n'ai pas refait les largeurs de colonnes.

 

[Si...]

Re : macro condition case à cocher

salut

"réponse bascule" en fonction d'un clic en colonne "MONTANT" (15)

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If Intersect(R, Columns(15)) Is Nothing Or R.Row = 1 Then Exit Sub
  If R.Count > 1 Then Exit Sub
  R = IIf(R = "", R(1, -1), "")
  R(1, 2).Select
End Sub

 

[matt31]

Re : macro condition case à cocher

merci c'est effectivement plus simple mais comment fais-tu pour qu'un "x" s'affiche lorsqu'on clique sur la cellule?

 

[sourcier08]

Re : macro condition case à cocher

Je demande à ce qu'un contrôle soit fait dans la "cellule active" de la colonne "O", possible de la ligne 2 à 20000, et si c'est vide, de mettre une croix.

If ActiveCell.Value = "" Then 'contrôle si la cellule est vide
        ActiveCell.Value = "x" 'mettre une croix si c'est le cas (un ix)

J'étais resté sur le fait d'avoir un visuel "coché" alors j'ai fait cette macro mais celle que propose Si... fait plus propre.




(précisions ajoutées)

 

[Si...]

Re : macro condition case à cocher

re

merci c'est effectivement plus simple mais comment fais-tu pour qu'un "x" s'affiche lorsqu'on clique sur la cellule?

le contenu de la cellule 15 permet de savoir Si... sans avoir besoin d'une colonne supplémentaire avec un pointage.

 

[matt31]

Re : macro condition case à cocher

je vous remercie à tous les 2.
Je vais mettre tout ça en place