VBA: Insérer une ligne après une valeur recherchée Fermé

Question

Bonjour à tous,

Je me permets de poster une nouvelle question puisque je n'ai pas trouvé mon bonheur dans ce qui a déjà été posté...
Je cherche à écrire un code qui me permet de:
- Rechercher dans la 1e colonne d'une feuille une valeur donnée
- Insérer une ligne en dessous de cette cellule

Jusqu'à présent, j'ai réussi à renvoyer la cellule où se trouve la valeur que je recherche, mais je n'arrive pas à la sélectionner pour insérer une ligne en dessous:

Sub newmonth()

Dim Trouve As Range, Valeur_Cherchee As String, AdresseTrouvee As String
Dim PlageDeRecherche As Range

Valeur_Cherchee = Range("lastmonth").Value
Set PlageDeRecherche = Sheets("1. Traffic Data").Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

AdresseTrouvee = Trouve.Address

Range("AdresseTrouvee").Select
ActiveCell.EntireRow.Insert Shift:=xlDown

End Sub




Auriez-vous s'il vous plait une petite piste pour m'aider ?!
Merci d'avance  :)

f894009 · Answer

Bonjour,

Sub newmonth()
    Dim Trouve As Range, Valeur_Cherchee As String, Ligne As Long
    Dim PlageDeRecherche As Range

Valeur_Cherchee = Range("lastmonth").Value
    With Sheets("1. Traffic Data")
        Set PlageDeRecherche = .Columns(1)
        Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
        If Not Trouve Is Nothing Then   'Valeur_Cherchee existe
            .Rows(Trouve.Row + 1).Insert Shift:=xlDown
        End If
    End With
End Sub

VBA: Insérer une ligne après une valeur recherchée

1 réponse

Discussions similaires