Discussion :

[lekev262]

bonjour,

je me gratte la tête depuis quelques heures sur cette question comment faire une condition dans ma macro.

j'utilise dans ma macro un :ActiveCell = ActiveCell + 500 (simple)
je veux pourvoir faire un ActiveCell = ActiveCell - 500 sur la quantité du même élément

exemple : mon élément est du bois je veux dans mon premier tableau augmenter de 500 et que dans le deuxième soit déduit les 500.

(si je ne suis pas asse claire je peux l'expliqué avec des tableaux ...)
tableau 1

materiaux	dispo
bois	1000
clous	1000
brique	1000
verre	1000

tableau 2

demande	recu	quantiter demandé	reste a envoiller
brique	0	6000	6000
bois	1500	5000	3500

que quand j'augmente de 500 le bois dans les demandes ça me donne:

tableau 1

materiaux	dispo
bois	500
clous	1000
brique	1000
verre	1000

tableau 2

demande	recu	quantiter demandé	reste a envoiller
brique	0	6000	6000
bois	2000	5000	3000

je ne sais pas si je suis asse claire avec mon explication, mais je me tourne vers vous pour trouver ne serait ce qu'une commande. merci pour les réponses.

[Quentin77170]

Bah ce n'est pas super clair car qui augmente de 500 ? Par quel moyen ? Le montant est fixé (500) ? Où sont tes tableaux (A1:C5 ??)? etc.

Tu dis que tu utilises "dans ta macro" ActiveCell (qui, d'ailleurs n'est pas le meilleur moyen de procéder, mais ce n'est pas la question ) mais où est ta macro peux-tu nous la montrer ?

Tu pourrais utiliser la fonction Range(...).Find pour chercher "Bois" qui est ton "ActiveCell.Offset(0,-1).Text" à condition d'être sûr que Bois existe dans l'autre tableau ou prévoir le cas où Bois n'existerait pas (créer une nouvelle ligne de tableau, par ex.)...
Sinon, tu pourrais boucler dans ton deuxième tableau jusqu'à ce que tu trouves "Bois"... Il y a plusieurs façons de procéder.

En fait, tu es beaucoup trop large dans ta description du problème

Propose-nous un code ou donne-nous au moins les infos que je t'ai demandées en première ligne et tu verras, les réponses viendront très vite !

[lekev262]

Ok... Je m'excuse de ne pas être le plus clair

ActiveCell.Offset(0,-1).Text me permet de me déplacer une colonne avent de la ou j'ai cliquer? Si oui c'est justement se que je cherchais et le. Text est pour récupérer le nom de l'élément de la cellule.

Ma macro est attaché a un bouton poussoir

Si tu a besoins de la position des tableaux le tableau 2 est bien de A1 à C10 (j'ai plus d'éléments) et le premier de H1 à L20 en fonction de la demande.

Mais je ne veut pas chercher un truk trop compliqué.

j’attente un code de se type la. ne connaissent pas les commande macro je ne sais pas comment faire ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveCell = ActiveCell + 500
si ActiveCell.Offset(0,-1).Text = mon element de A1 à A10
     aler dans la colone dispo = dispo - 500