Insérer une ligne automatiquement grâce à une macro Résolu/Fermé

Question

Bonjour, 

Je travaille sur un fichier excel et je souhaiterais réaliser une macro, mais j'ai besoin d'aide.
Le but de cette macro serait d'insérer automatiquement une ligne suite à un texte contenu dans une cellule (dans une colonne).

A titre d'exemple concret du cas:
Les cellules de ma colonne A sont composées de liste déroulante. Lorsque les utilisateurs du fichiers vont sélectionner le texte "multi-affectation" je souhaiterais qu'une ligne s'insère automatiquement dans le fichier juste en dessous de la ligne dans laquelle ils ont sélectionné "multi-affectation".

Je vous remercie pour votre aide.

Caroline

Configuration: Windows 7 / Internet Explorer 9.0

eriiic · Answer

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Count <> 1 Then Exit Sub
    If Target = "multi-affectation" Then
        Application.EnableEvents = False
        Rows(Target.Row + 1).Insert Shift:=xlDown
        Target.Select
        Application.EnableEvents = True
    End If
End Sub

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

caro · Answer

Un grand merci pour ton aide :)

Bonne journée

eriiic · Answer

Bonjour,

je souhaiterais que cette ligne copie colle les information de la ligne du dessus de la colonne A à L.
J'ai complété le code.

Mais sinon il n'y a pas de règle particulière, cet intervalle doit être figé. Je le changerai manuellement lors de la prochaine utilisation du fichier.  
Ok, j'ai mis une validation. Tu pourras la changer tous les mois si besoin.
https://www.cjoint.com/c/CGmpyKJGeky

eric

caro · Answer

Un très grand merci et bonne continuation :)

Insérer une ligne automatiquement grâce à une macro

4 réponses

Discussions similaires