Rechercher une valeur

[Luigi]

Bonjour à tous,

J’ai un petit pour réaliser une macro, dans la cellule G4 j’ai une valeur qui correspond au mois de l’année (Janvier à Décembre).
Dans la même feuille j’ai un tableau de A6 à A (variable en longueur) où les mois sont inscris.
Je voudrais une macro qui recherche dans la colonne A le mois qui est inscrit en G4 et qui insert une ligne qu dessus.
Je crois qu’il faut utiliser une boucle pour faire la rechercher, mais je n’ai jamais créé de macro avec une boucle et je sèche.
Quelqu’un pourrait-il m’orienter vers une solution.

Ci-joint mon tableau
Merci

 

[Luigi]

Re : Rechercher une valeur

tableau ci-joint

 

[mromain]

Re : Rechercher une valeur

bonjour Luigi,

voici une macro qui a l'air de marcher :

Sub insert()
Dim curCell As Range
Set curCell = ActiveSheet.Range("A:A").Find(ActiveSheet.Range("G4").Value)
curCell.EntireRow.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

a+

 

[Luigi]

Re : Rechercher une valeur

Merci mromain
ça fonctionne bien

J'ai un autre problème, dans la colonne "J" je veux additionner le nombre de réclam qui corresponde au mois, mais quand je rajoute une ligne, la nouvelle ligne n'est pas contabilisé. Pourrais m'orienté vers une solution

Merci A+