insertion lignes automatiques

[nicopro]

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 ?

 

[titiborregan5]

Re : insertion lignes automatiques

Bonjour nicopro, le forum,

peux-tu mettre un exemple du fichier en ligne stp?

 

[nicopro]

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

 

[titiborregan5]

Re : insertion lignes automatiques

Essaie avec xldown à la place de xlup

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

 

[nicopro]

Re : insertion lignes automatiques

je teste et je te dis

 

[nicopro]

Re : insertion lignes automatiques

Cela me fait la même chose...

 

[titiborregan5]

Re : insertion lignes automatiques

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

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!

 

[nicopro]

Re : insertion lignes automatiques

Merci beaucoup en tout cas!!!!