Macro incrémentation

[Franck013]

Bonjour,

Débutant en macro, je souhaite en créer une, merci d'avance pour votre aide.


Je m'explique, je veux créer 50 boutons permettant de changer la valeur de chaque cellule en 1 clic.

1 bouton par cellule, la valeur de chaque cellule est soit égale à 0 ou 1 (1, 0, 1 , 0,....) à l'infini enfin presque !!

Chaque bouton sera en fond noir écriture texte en blanc si égal à 1 ou fond blanc écriture noir pour 0.


Les boutons seront placés de "manières aléatoires" dans la feuille de calcul
Si vous avez des idées merci encore..




Cordialement

 

[Dranreb]

Re : Macro incrémentation

Bonsoir.
Un essai sans boutons réels

 

[Franck013]

Re : Macro incrémentation

Super la macro !! merci

au plaisir

 

[Franck013]

Re : Macro incrémentation

Bonsoir,

En faite cette macro me pose un petit soucis car elle s'étend sur la feuille entière en cas de valeur numérique si je clique dessus.

Je voudrais que cette macro s'active que sur des cellules spécifiques (50 cellules).

Merci par avance de vos réponses

 

[Dranreb]

Re : Macro incrémentation

Bonsoir.
Eh bien vous ajoutez ce 3ième test à la fin avant de procéder :

If Intersect(Me.[A1:J5], Target) Is Nothing Then Exit Sub

 

[Franck013]

Re : Macro incrémentation

Merci de m'avoir répondu,

mais le problème persiste toujours car la macro s'applique dans cette plage "A1; J5" alors que je voudrais que la macro s'applique que dans des cellules spécifiques préablement choisies (J4, G8, D12, etc)...

 

[Dranreb]

Re : Macro incrémentation

Mais dans la plage où il peut y en avoir, le reste des cellules est bien vide, non ? C'est ce que laissait supposer votre demande et surtout le classeur joint. La macro ne modifie pas les cellules vides.

 

[Franck013]

Re : Macro incrémentation

Effectivement le fichier joint n'est qu'un échantillon, il s'avère que la plupart des cellules vides contiennent des formules suivant le résultat des cellules "1" ou "0".

C' est pour cela que je cherche à modifier cette macro qui me permettra d'agir que sur les cellules désignées "1" ou "0" (Qté =50).

Cordialement

 

[Dranreb]

Re : Macro incrémentation

Alors ajoutez peut-être :

If Target.HasFormula Then Exit Sub

 

[Franck013]

Re : Macro incrémentation

Un grand merci Dranreb pour ton aide, cette modification est parfaite pour l'utilisation de la macro.
Bonne journée