Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Excel Discussion :

Insérer une ligne


Sujet :

Excel

  1. #1
    Invité
    Invité(e)
    Insérer une ligne
    Bonjour,

    J'aimerais qu'une ligne soit ajoutée lorsque l'utilisateur sélectionne "Oui" dans la cellule M21.

    J'ai ce code mais ça ne fonctionne, pouvez-vous m'aider s'il vous plait?

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    If (Range("M21").Value = Oui) Then
       ActiveSheet.Rows(Row + 1).EntireRow.Insert Shift:=xlDown
    End If


    Merci!

  2. #2
    Expert confirmé
    Bonjour,
    Citation Envoyé par CaT41 Voir le message
    J'aimerais qu'une ligne soit ajoutée ....
    Où ?
    Cordialement,
    Patrice
    Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.

    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  3. #3
    Invité
    Invité(e)
    En-dessous de la ligne que j'ai sélectionné Oui

    Dans l'exemple, c'est en-dessous de la ligne 21.

  4. #4
    Invité
    Invité(e)
    Voici mon fichier.


    Qu'est-ce qui manque à la formule pour que ça fonctionne ?

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Sub Ajout()
    For Each c In Range("M21:M171").Cells
     
    If (c.Value = "Oui") Then
       ActiveSheet.Rows(Row + 1).EntireRow.Insert Shift:=xlDown
    End If
    Next
     
    End Sub

  5. #5
    Rédacteur

    Bonjour,

    Même sujet que dans cette discussion Ajout d'une ligne sous une autre ligne
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Quelques contributions : USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire - Géolocalisation d'une adresse avec Excel et Google sans VBA

  6. #6
    Membre expert
    Bonjour
    à tester
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Application.Intersect(Target, Range("M10:M" & Range("M" & Rows.Count).End(xlUp).Row)) Is Nothing Then
         If Cells(Target.Row, 13) = "Oui" Then Rows(Target.Row + 1).Insert
        End If
        Application.EnableEvents = True
    End Sub
    -----------------------------------------------*****-------------------------------------------------------------------------------------------
    Notre seul pouvoir véritable consiste à aider autrui avec modestie
    _________
    Pour dire merci, cliquer sur et quand la discussion est résolue, penser à cliquer sur le bouton

###raw>template_hook.ano_emploi###