Excel macro insertion de ligne [Résolu/Fermé]

Signaler
-
Messages postés
1
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
17 septembre 2010
-
Bonjour,
Je voudrais savoir comment faire pour réaliser une macro excel permettant d'insérer une ligne dans un tableau à la suite d'une autre ligne définie par un numéro de ligne variable.
Une cellule dans le tableau défini un numéro de ligne et la macro insère une ligne supplémentaire à la suite de cette dernière.
Merci !



2 réponses

Messages postés
17293
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
24 octobre 2020
4 306
Salut,
Il n'est pas necessaire d'ouvrir plusieurs discussions sur le même sujet, d'ailleurs j'ai demandé la fermeture de celle-ci

http://www.commentcamarche.net/...

Tu ne donnes pas trop d'explications sur la colonne ou se trouvent les valeurs à chercher ni sur la cellule contenant le numéro variable, à nous de deviner !

enfin en supposant que la colonne à surveiller est la colonne F feuille1 et que le numéro variable est en D3, ce code insérera une ligne au dessous du numéro trouvé dans la ligne (attention s'il existe plusieurs numéros dans la liste, seul le premier sera pris en compte par la macro sinon il faudra écrire un code différent


Sub Insére_Ligne_Après_Valeur_Trouvée()
Dim x
Range("D3").Select
x = ActiveCell.Value
With Worksheets("Feuil1").Range("F:F")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
End If
End With
Range(firstAddress).Select
ActiveCell.Offset(1, 0).EntireRow.Insert
End Sub
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
1
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
17 septembre 2010
1
Merci beaucoup,
Ca répond tout à fait à mon problème.
Désolé pour l'ouverture inutile d'une nouvelle discussion sur le sujet.
Je suis nouveau sur ce site
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci