Incrémenter une case à cocher

[EL ABED Mohamed]

bonjour;

j'ai une case à cocher dans F4 et liée aussi à F4.

je veux incrémenter cette case vers la droite et vers le bas ( j'ai besoin par exemple G11 lié aussi à G11 par une simple incrémentation)

pouvez-vous m’aider ?
par avance, merci

 

[dieu08]

Bonjour,

Aurais-tu un exemple concret de ce que tu souhaites ?

 

[EL ABED Mohamed]

Bonjour,

Aurais-tu un exemple concret de ce que tu souhaites ?

en PJ le modèle de fichier l'objet de ma demande

par avance, merci

 

[dieu08]

Merci.

Dans le fichier transmis, si nous partons sur la cellule G11, que devrait-il se produire lors de l'activation de la case en G11 ?

 

[EL ABED Mohamed]

Merci.

Dans le fichier transmis, si nous partons sur la cellule G11, que devrait-il se produire lors de l'activation de la case en G11 ?

en fait, le fichier est conçu pour dispatché les quantités planifiés sur les jours de la semaine en cochant devant l'ordre . donc chaque case correspond à un ordre planifié avec un jours de la semaine

le besoin de décocher tous, est de réinitialiser les fichier à chaque nouvelle planification ( les données à gauche sont liées un tableau dynamique

j’espère que j'ai bien expliqué

 

[dieu08]

J'espère avoir bien compris ta demande.

Je te propose dans le fichier joint :

- un script de suppression des cases existantes : suppression()
- un script de création de cases en lien avec la cellule comportant la case : crea()

Je te remercie de m'indiquer si cela convient.

 

[EL ABED Mohamed]

J'espère avoir bien compris ta demande.

Je te propose dans le fichier joint :

- un script de suppression des cases existantes : suppression()
- un script de création de cases en lien avec la cellule comportant la case : crea()

Je te remercie de m'indiquer si cela convient.

oui ca marche très bien

merci beaucoup pour votre collaboration

 

[dieu08]

C'est parfait. A bientôt !

Un petit "j'aime" fait toujours plaisir...

 

[job75]

Bonjour,

Je ne comprends pas qu'on trouve normal de travailler sur une feuille de calcul avec 2058 Shapes.

A l'origine il y en avait d'ailleurs 3826.

C'est de la folie furieuse, il y a bien d'autres manières de faire !

A+

 

[EL ABED Mohamed]

Bonjour,

Je ne comprends pas qu'on trouve normal de travailler sur une feuille de calcul avec 2058 Shapes.

A l'origine il y en avait d'ailleurs 3826.

C'est de la folie furieuse, il y a bien d'autres manières de faire !

A+

j'arrive pas à te comprendre lol
mais j'essai à chaque fois d'améliorer les choses

c'est pour ça que je m'inscris là

a+

 

[phlaurent55]

Bonjour à tous,

une autre manière de faire sans cases à cocher
en retenant l'option de mettre des cases à cocher, il en aurait fallu 800 (25 colonnes fois 32 lignes)

à+
Philippe

 

[EL ABED Mohamed]

Bonjour à tous,

une autre manière de faire sans cases à cocher
en retenant l'option de mettre des cases à cocher, il en aurait fallu 800 (25 colonnes fois 32 lignes)

à+
Philippe

Très intéressant !

merci

 

[job75]

Re, salut Philippe,

On peut aussi utiliser les "fausses" cases à cocher de la police Wingdings.

Votre fichier en retour avec cette macro pour les gérer :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [G7:M300]) Is Nothing Or Target.CountLarge > 1 Then Exit Sub
Target = IIf(Target = "þ", "o", "þ") 'police Wingdings
Cells(Target.Row, 1).Select
End Sub

A+

 

[dieu08]

Bonjour,

Je ne comprends pas qu'on trouve normal de travailler sur une feuille de calcul avec 2058 Shapes.

A l'origine il y en avait d'ailleurs 3826.

C'est de la folie furieuse, il y a bien d'autres manières de faire !

A+

Bonjour Job75,

J'ai tenté de répondre à la demande avec les conditions exprimées dans la limite de mes connaissances évidemment

Ce n'était peut-être pas la bonne approche !

 

[job75]

Bonjour le fil, le forum,

Le clic droit avec mise en couleur par MFC est une excellente solution :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [F7:L300]) Is Nothing Or Target.CountLarge > 1 Then Exit Sub
Cancel = True
Target = IIf(Target = "", " ", "")
End Sub

Fichier (2), les formules ont été revues.

Bonne journée.