VBA: Insérer une ligne après une valeur recherchée
Laboz
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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 :)
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 :)
A voir également:
- VBA: Insérer une ligne après une valeur recherchée
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
1 réponse
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
