VBA Excel Copier valeur cellule variable dans autre feuille sous condition

Le 17/04/2020 à 21:01

Bonjour

Etant novice en VBA, je recherche une solution en VBA pour le fichier joint à ce message Essai_V1.xlsm. Via une autre discussion, un module en VBA que vous trouverez sous le module 1 de Visual Basic a déjà été fait !

Chaque feuille a été programmée avec des mises en forme conditionnelle pour que les cellules de chaque ligne (De la conne B jusqu'à la colonne P) changent de couleur en fonction de certaines conditions (Voir exemple dans l'onglet "Phoenix_Mécano" et vous appuyant sur la légende des couleurs disponibles sur chaque onglet).

On peut créer autant de feuilles que nécessaire ; dans l'exemple, on a en tout 10 feuilles dont une est pré-remplie (onglet "Phoenix_Mécano") mais on peut en avoir plus ou moins ... selon les besoins de l'utilisateur.

Rem. : Je pense qu'il faudra faire un compteur et donc compter les feuilles une fois que tous les distributeurs seront créés par l'utilisateur.

Rem. : Les cellules des colonnes B, D, F, M, N sont au format texte ; les cellules des colonnes C, E, sont soit au format texte soit au format numérique (je les ai mises en standard ne sachant pas comment faire) ; les cellules de la colonne G sont au format nombre (sans virgule ... nombre entier) ; les cellules des colonnes H et I sont au format monétaire ; les cellules des colonnes J, K et P sont au format date ; les cellules des colonnes L et O sont au format texte en cliquant sur le menu déroulant (type liste) disponible dans chaque cellule de ces 2 colonnes.]

Ce que je voudrais, c'est qu'en cliquant sur le bouton (associé au module 1) "Créer liste des Distributeurs" disponible dans l'onglet "RECAPITULATIF" :

1 - Tous les onglets se rangent automatiquement par orbre alphabétique ; ce qui se fait quand on clique 1 fois sur le bouton "Créer liste des Distributeurs". Mais il faut appuyer une seconde fois sur ce bouton pour que le classement se fasse correctement dans le tableau de l'onglet "RECAPITULATIF". Peut-on le faire en une seule fois ? Il faut qu'on garde en 1ère position l'onglet "RECAPITULATIF".

2 - De plus, je voudrais recopier automatiquement le nom de chaque ONGLET créé par l'utilisateur du fichier et existant au moment de la création du RECAPITULATIF à partir de la cellule A5 dans l'onglet "RECAPITULATIF" et recopier en A6, A7, ... etc etc les noms des autres onglets rangés alphabétiquement. [Rem. : on peut créer 15, 20 ou 25 distributeurs avec des noms différents ... voire plus ou moins!] ; le tout sans enlever la dernière qui doit bouger en fonction du nombre d'onglet utilisé. Donc il fait que le tableau déjà formé dans l'onglet "RECAPITULATIF", s'adapte automatiquement au nombre d'onglet utilisé en partant de la ligne 5 et en gardant la dernière ligne qui elle va forcément bouger.

3 - Toujours dans l'onglet "RECAPITULATIF", je voudrais recopier automatiquement la valeur du total cumulé (H.T.) de chaque onglet dans la colonne B (valeur de la cellule dont la somme totale hors taxe de chaque ligne) en partant de B5. Le problème est que sur chaque onglet le total cumulé H.T (€) peut changer de position dans la colonne I en fonction du nombre de lignes utilisé.

Voilà pour le moment, si vous pouvez me donner la solution ça me gagnerait un temps précieux.

Par avance, merci beaucoup pour votre aide.

Cordialement

Cyril

26essai-v1.xlsm (69.68 Ko)

Le 17/04/2020 à 23:40

Bonjour et bienvenue sur le forum,

Pas facile mais je te propose une solution.

Je ne sais pas si j'ai traité l'intégralité des points mais tu me diras.

Cordialement

33clavier58-essai-v1.xlsm (75.46 Ko)

Le 18/04/2020 à 12:12

Bonjour,

merci pour ta réponse .....

Par contre, ça ne fonctionne pas comme je le souhaite.

Si j'ai le total cumulé qui reste sur chaque feuille en I 17 c'est bon ça fonctionne mais si je rajoute des lignes au dessus (ou que j'en supprime) mon total cumulé ne se retrouve plus en I17 et là cela ne fonctionne pas .

Peux-tu y remédier ca serait super sympa ?

Encore merci pour ton aide.

Bien à toi,

Cyril

Le 18/04/2020 à 12:20

Re-bonjour,

Je veux aussi garder le fait que si j'ai un onglet qui est entièrement vides qu'il soit supprimé automatiquement de sorte qu'il n'apparaisse pas dans le récapitulatif.

Merci.

Cordialement,

Le 18/04/2020 à 16:38

Re,

J'ai fait les modifications. La procédure qui existait été incomplète mais elle faisait correctement une partie du travail demandé.

Teste et dis moi!

Cordialement

27clavier58-essai-v2.xlsm (74.17 Ko)

Le 18/04/2020 à 16:50

Bonjour,

merci pour ta réponse .....

Ca semble fonctionner COOOOOL pour le total cumulé qu'il soit en I17 ou pas, !

Je voudrais aussi garder le fait que si j'ai un onglet qui est entièrement vides qu'il soit supprimé automatiquement de sorte qu'il n'apparaisse pas dans le récapitulatif.

Peut-on programmer en VBA à l’ouverture du fichier Essai_V1.xlsm, et seulement pour ce fichier, activer les macros sans être obligé à chaque ouverture de cliquer sur "Options …", puis sur "Activer ce contenu" ?

Sur l’onglet "RECAPITULATIF" :

Peut-on programmer en VBA la hauteur de la ligne associée à chaque distributeur (donc à partir de la ligne 5) sur une hauteur 20 par exemple pour chaque onglet distributeur créé?
Peut-on aussi programmer en VBA la hauteur de la ligne associée à la dernière ligne (donc la ligne Total de l’onglet "RECAPITULATIF") sur une hauteur de 30 par exemple ? c’est-à-dire que si la ligne Total tombe sur une ligne qui était à 24 par exemple, elle s’adapte automatiquement à 30 !
Les lignes 1, 2, 3, et 4 ne bougent pas en hauteur.
Sur chaque feuille déjà créée (ou pour chaque feuille qui serait rajoutée par l’utilisateur du fichier), si rien n’est écrit dans les cellules allant de $B$3 à $H$16 et de $J$3 à $P$16, il faudrait supprimer cette feuille car elle serait inutilisée. Rem. : Si la dernière ligne est la ligne 10 et non plus la ligne 16, alors si rien n’est écrit dans les cellules allant de $B$3 à $H$10 et de $J$3 à $P$10, il faudrait supprimer cette feuille.

________________________________________

Encore merci pour ton aide.

Bien à toi,

Cyril

Le 18/04/2020 à 16:53

je coupe je reviens vers 19h ..... je teste celà tth ....

Encore un gros merci....... pour ton aide .

A tth.

Cordialement,

Le 18/04/2020 à 18:41

Re,

Voilà, j'ai fait les modification.

Attention à l'utilisation de la macro suppression des feuilles. Avec les adresses de cellules que tu m'as données, les feuilles distributeur xx vont toutes disparaitre. C'est bien ce que tu veux ?

Sinon, je crois avoir répondu à toutes des demandes.

Bons tests et bonne soirée.

8clavier58-essai-v4.xlsm (71.45 Ko)

Le 18/04/2020 à 21:09

Bonsoir,

je viens de me connecter à l'instant et je viens de tester ton dernier envoi ... merci.

Je t'ai mis un exemple en PJ (cf fichier Claivier58 Essai_V5.xlsm) dans lequel j'ai rempli un truc bidon dans distributeur 02, Distributeur 04, Distributeur 07 (Renommé en MDBES), Distributeur 01 renommé en Phoenix_Mécano et j'ai inséré une feuille vierge Feuil1.

Si jamais il n'y a rien de rempli dans distributeur 02, distributeur 03, ... , jusqu'à distributeur NN ce que tu as fait, fonctionne impeccable.

Par contre si je mets quelque chose comme (c'est le cas dans le fichier joint) dans l'onglet distributeur 02 qui est le 1er onglet traité la fonction suppression ne sert plus à rien. .... etc etc

Ce que je veux , c'est par exemple de façon aléatoire je remplis Distributeur 04, Distributeur 07 (Renommé en MDBES) et j'ai l'onglet Phoenix_Mécano qui est toujours rempli ....... ça me supprime tous les autres onglets(quelque soit le nom de la feuille) qui sont vides dans toutes les cases situées au dessus de la ligne total cumulé qu'on retrouve dans chaque feuille (excepté pour les cellules de la colonne I).

On doit vérifier s'il y a quelque chose de contenu dans les cellules situées au dessus de la ligne contenant le total cumulé pour chaque feuille excepté pour la colonne I (toutes le colonnes de B à P excepté la colonne I) :

Ex 1 : Dans l'onglet "Distributeur 02", j'ai laissé de la ligne 3 à la ligne 12 (cellule D9 complétée) et le total cumulé se trouve donc sur la ligne 13 ; donc cet onglet ne sera pas à supprimer.

Ex 2 : Dans l'onglet "Distributeur 04", j'ai laissé de la ligne 3 à la ligne 12 (cellule B8 complétée) et le total cumulé se trouve sur la ligne 22 ; donc cet onglet ne sera pas à supprimer.

Ex 3 : Dans l'onglet "Distributeur 07", j'ai renommé l'onglet en "MDBES", je n'ai laissé que la ligne (cellules F3, G3 et H3 complétées) et le total cumulé se trouve sur la ligne 04 ; donc cet onglet ne sera pas à supprimer.

Ex 4 : Dans l'onglet "Distributeur 06", j'ai juste rajouté des lignes au hasard et le total cumulé se trouve sur la ligne 28 ; donc cet onglet sera à supprimer ...... Comme tous les autres d'ailleurs qui doivent être supprimés (y compris l'onglet "Feuil1")

Merci pour ton aide et ton amélioration.

Cordialement,

Cyril

7claivier58-essai-v5.xlsm (73.54 Ko)

Le 19/04/2020 à 08:12

Bonjour,

Ex 1 : Dans l'onglet "Distributeur 02", j'ai laissé de la ligne 3 à la ligne 12 (cellule D9 complétée) et le total cumulé se trouve donc sur la ligne 13 ; donc cet onglet ne sera pas à supprimer. Ex 2 : Dans l'onglet "Distributeur 04", j'ai laissé de la ligne 3 à la ligne 12 (cellule B8 complétée) et le total cumulé se trouve sur la ligne 22 ; donc cet onglet ne sera pas à supprimer.Ex 3 : Dans l'onglet "Distributeur 07", j'ai renommé l'onglet en "MDBES", je n'ai laissé que la ligne (cellules F3, G3 et H3 complétées) et le total cumulé se trouve sur la ligne 04 ; donc cet onglet ne sera pas à supprimer.Ex 4 : Dans l'onglet "Distributeur 06", j'ai juste rajouté des lignes au hasard et le total cumulé se trouve sur la ligne 28 ; donc cet onglet sera à supprimer

IL est difficile d'ajuster ta demande car les exemples soit disant créés ne le sont pas. Tu as dû joindre le mauvais fichier.

J'ai modifié le code de suppression en me basant sur la dernière ligne de la colonne I.

Je teste les plages b3:h & dernière ligne et j3:p & dernière ligne.

Si ces plages là ne contiennent rien alors on supprime la feuille.

Dans la procédure, au lieu de supprimer la feuille ou de conserver la feuille, j'ai mis un message correspondant à l'action que fera la procédure. A terme, si cela te convient, je modifierai certaines lignes.

Teste une nouvelle fois et tiens moi au courant.

4claivier58-essai-v6.xlsm (77.24 Ko)

Le 19/04/2020 à 08:19

Bonjour,

je te rejoins la ppièce jointe car je vien de m'apercevoir qu'elle ne correspondant pas au message que je t'ai envoyé hier.