Excel macro insertion de ligne
Résolu/Fermé
guirider
-
14 sept. 2010 à 19:40
guirider
guirider
- Messages postés
- 1
- Date d'inscription
- mardi 14 septembre 2010
- Statut
- Membre
- Dernière intervention
- 17 septembre 2010
A voir également:
- Excel macro insertion ligne vers le bas
- Macro ajouter ligne tableau excel - Meilleures réponses
- Excel: insertion ligne, décalage vers le bas ✓ - Forum - Excel
- Excel macro insertion de ligne ✓ - Forum - Excel
- [Excel Vba] Insérer une ligne ✓ - Forum - VB / VBA
- MACRO POUR INSERER UNE LIGNE EXCEL SOUS CONDITION - Forum - VB / VBA
- Macro insertion ligne Excel, macro ne suit pa ✓ - Forum - Programmation
2 réponses
Mike-31
Modifié par Mike-31 le 14/09/2010 à 22:03
- Messages postés
- 17950
- Date d'inscription
- dimanche 17 février 2008
- Statut
- Contributeur
- Dernière intervention
- 23 mai 2022
Modifié par Mike-31 le 14/09/2010 à 22:03
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.
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.
guirider
17 sept. 2010 à 20:43
- Messages postés
- 1
- Date d'inscription
- mardi 14 septembre 2010
- Statut
- Membre
- Dernière intervention
- 17 septembre 2010
17 sept. 2010 à 20:43
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
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