Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insertion lignes automatiques

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nicopro
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nicopro

Guest
Bonjour à tous,

Je sèche sur un problème.
J'ai une liste de chiffres en colone A et en colonne B un nom.
J'aimerai que lorsque le nom de la colonne B est égal à "0000REF010EUR"
la macro insère une ligne automatiquement en dessous.
Pouvez-vous m'aider ?
 
Trier par date Trier par votes
Re : insertion lignes automatiques

Bonjour,

Ma feuille fait plus de 10 mo

J'ai passé la colonne B en A du coup ma macro fonctionne mais insère les lignes au dessus de la valeur trouvée "0000REF010EUR"

voici mon code mais le problème c'est qu'il m'insère les lignes au dessus au lieu d'en dessous :

Sub AVA2()

Dim lastrow As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée
i = 1 '1° ligne traitée
Do While i <> lastrow
If Cells(i, 1).Value = "0000REF010EUR" Then 'détection du "0000REF010EUR"
Rows(i).Insert Shift:=xlUp
lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée suite à insertion
i = i + 1 'on se repositionne sur la ligne avec "0000REF010EUR"
End If
i = i + 1 'passage ligne suivante
Loop


Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub



Merci d'avance pour votre aide
 
Vote positif 0 Vote négatif
Re : insertion lignes automatiques

Essaie avec xldown à la place de xlup
Code: 
Dim lastrow As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée
i = 1 '1° ligne traitée
Do While i <> lastrow
If Cells(i, 1).Value = "0000REF010EUR" Then 'détection du "0000REF010EUR"
Rows(i).Insert Shift:=xldown             ' xlUp remplacé par xldown
lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée suite à insertion
i = i + 1 'on se repositionne sur la ligne avec "0000REF010EUR"
End If
i = i + 1 'passage ligne suivante
Loop


Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Dis moi si ça marche
 
Vote positif 0 Vote négatif
Re : insertion lignes automatiques

dans ce cas essaie avec rows(i+1).insert peut être?.
Code: 
Sub AVA2()

Dim lastrow As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée
i = 1 '1° ligne traitée
Do While i <> lastrow
If Cells(i, 1).Value = "0000REF010EUR" Then 'détection du "0000REF010EUR"
[COLOR="Red"]Rows(i+1).Insert Shift:=xlUp[/COLOR]
lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée suite à insertion
i = i + 1 'on se repositionne sur la ligne avec "0000REF010EUR"
End If
i = i + 1 'passage ligne suivante
Loop


Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Chez moi ça marche en tous cas!
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 copie automatique d'une feuille excel vers une autre en rentrant le nom par exemple
2 3 4
Réponses
46
Affichages
2 K
Delaye JC
D
J
  • Résolu(e)
XL 2021 Classement données avec recherchex en cas de données de même valeur
Réponses
6
Affichages
275
jeff2318
J
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
309
PR.
P
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
232
finarobert
F
J
  • Question Question
Microsoft 365 Zone de nom - Créer un nom
Réponses
3
Affichages
170
danielco
D
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
701
Cousinhub
K
  • Question Question
Microsoft 365 Gestion de certificat
Réponses
1
Affichages
178
Piment
P
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
746
Elnono51
E
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
624
laurent950
L
  • Question Question
XL 2013 Comptage dans les lignes
Réponses
12
Affichages
387
Nain porte quoi
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
O
  • Résolu(e)
XL 2010 Macro - Incrémentation Date -- jj/mm/N-nombre ou jj/mm/N+nombre
Réponses
6
Affichages
165
Olivier1978
O
  • Résolu(e)
XL 2016 remplir automatiquement un onglet
2
Réponses
17
Affichages
586
ARRU
D
  • Question Question
XL 2021 Création automatique de lien hypertexte
Réponses
4
Affichages
213
Dimitry
D
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
252
Chris1263
C
R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
29
Affichages
869
roro67200
R
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
208
sylvanu
M
  • Résolu(e)
XL 2013 Etendre automatiquement une formule de calcul
2
Réponses
29
Affichages
1 K
Manutela
M
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
432
safranien
S
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
378
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…