Ajouter une ligne en fonction d'une saisie Fermé

Question

Bonjour à tous,

Je me tourne vers vous pour une petite question. Je bute sur quelque chose d'assez simple, je l'ai fait il y a quelques années, mais pas moyen de réussir cette opération à nouveau, je passe à coté.

J'ai une problématique d'apparence simple :

J'ai un fichier de 2 pages:
- La 1ère indique en fonction d'une équipe (section), puis d'une certaine série, les opérations réalisables sur cette série, en indiquant les conditions et les nécessités d'équipements pour réaliser cette opération

- La 2ème est juste la base de données qui fournie les infos pour la page1.


Plus simplement, la page 1 est une triple listes en cascades. Je vous sollicite pour un petit coup de main, sur la page "BD" (page 2), je souhaiterai ajouter une macro, qui ajoute en ligne supplémentaire pour la section voulue, en demandant pour quelle série, et en laissant les autres champs vides (l'utilisateur remplira lui même plus tard).

Par exemple:

Pour la section 1, je souhaiterai ajouter pour la série Orange une nouvelle ligne

Pour la section 4, nouvelle ligne pour la série Bleu

J'essaye d'être le plus explicite possible, j'ai bien conscience que cela peu sembler flou. Veuillez trouver-ci joint mon fichier, avec mes macros (qui fonctionnent actuellement). J'ai volontairement laissé le nouveau bouton "Ajout données" sans macro (comme mes tests ne sont pas encore concluant)

Fichier: https://1drv.ms/x/s!Aqfw8DZtbz2zrSkLKBHZld8p5X8V
(le mdp est "lock")

Il faudrait donc ajouter une ligne après indication de la section et de la série entre la colonne A et H ou A et I


Merci à vous, je reste dispo pour tout autres indications, ou surtout si je n'ai pas été assez claire

Bonne journée



Configuration: Windows 10 (x64)
Asus z97-A - I5 4670K
8Go 1600 Mhz Kingston Genesis HyperX
R9 290X Tri-X OC

Zoul67 · Answer

Bonjour,

Je propose :
Sub AjoutDonnees()
    If ActiveCell.Column = 2 And (ActiveCell.Address = Selection.Address) Then
        Ligne = ActiveCell.Row + 1
        Range("A" & Ligne & ":H" & Ligne).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End Sub

A+

Ajouter une ligne en fonction d'une saisie

1 réponse

Discussions similaires