Macro avec ajout conditionnel de lignes Résolu/Fermé

Question

Bonjour,

Je souhaiterais disposer d'une macro qui ajouterait une ou des lignes, de façon conditionnelle.

Dans le fichier, 2 feuilles :

La feuille 1 contient des références en Colonne H (Mar).

La feuille 2 contient des références en colonne A (Mark).

Le but est de créer automatiquement une ou plusieurs lignes sous la référence en feuille 1, si et seulement si,

la même référence se retrouve dans la feuille 2. Si cette référence est reprise 2 fois dans la feuille 2, alors, créer 2 lignes dans la feuille 1. Dans la même logique si il y'a 3 références en feuille 2 et au delà...
	la quantité en colonne D (stock total) de la feuille 2 est > 0.

Dans les lignes crées en feuille 1, il faudrait ajouter les informations correspondantes des colonnes A, B, F et I de la feuille 2 (titres de colonnes orange dans l'exemple).

Il faudrait aussi, pour chacune des lignes créé, reprendre les informations de la référence originelle de la feuille 1 (titres de colonne en jaune dans l'exemple).

Mieux que des mots, une démo ! Ci-dessous, le lien vers l'exemple.

https://www.cjoint.com/c/MLrh1If1TOk

Dans cet exemple, le résultat attendu est la création de 3 lignes en feuille 1 avec les éléments repris de la feuille 2 en couleur bleu ciel et ceux recopiés de la feuille 1 en bleu foncé.

Cette automatisation serait appliquée pour chaque différente référence indiquée en colonne H de la feuille 1.

Merci d'avance pour vos suggestions !

Cdlt,

Gexelpas
Windows / Chrome 109.0.0.0

Le Pingou · Answer

Bonjour,

Je comprends ceci : lorsqu’une ligne est terminée dans la feuille 2 on regarde si la référence en A existe en feuille 1 et si c’est le cas on copie les diverses données de la feuille 2 sur la feuille 1.

Et ainsi de suite.

Note : si plusieurs références en feuille 1 alors la ligne de la feuille 2 sera insérer directement sous la référence équivalente

Est-ce bien cela ?

Le Pingou · Answer

Bonjour,

Merci du complément d'information.

Il serait plus profitable si vous pouvez mettre un fichier avec une dizaine de lignes!

Petite précision:

Si tel est le cas et si la quantité correspondante en Feuille 2 est >0,

Quelle colonne ....?

Le Pingou · Answer

Bonjour,

Merci, c'est parfait.

Si tout va bien une proposition demain dans la journée, j'ai déjà un début de solution.

Bonne soirée.

Le Pingou · Answer

Bonjour,

Ma proposition, ouvrir le classeur 'CBRiste31_Accueil.xlsm? puis lancer la macro par clic sur 'Clic-moi' et vous devrez sélectionner le fichier à traiter que vous avez enregistré à l'endroit de votre choix (par exemple : le bureau) Note, le classeur est fermé.

A vous la découverte.

Le fichier : https://www.cjoint.com/c/MLsmWh4EI1Z

Le Pingou · Answer

Bonjour,

Merci du retour.

Je vous propose de corriger une petite anomalie dans le code, à faire selon l’encadré :

' déplacer l'instruction qui se trouve presque à la fin

Application.ScreenUpdating = True

' la placer comme suit:
 shac.Cells(lilist, 1) = ActiveWorkbook.Name
    shac.Cells(lilist, 2) = nbliin
    shac.Cells(lilist, 3) = Date & " / " & Time
    Application.ScreenUpdating = True
    Windows(wbac.Name).Activate
    shac.Cells(2, 1).Activate

Joyeux Noël et bonne et heureuse année 2024.

Le Pingou · Answer

Bonjour,

Merci du retour.

Note : assurez-vous que dans la colonne des références (H:H) il n'y est pas de doublons  avant traitement !...

Vous pouvez toujours me contacter si nécessaire

Macro avec ajout conditionnel de lignes

6 réponses

Discussions similaires