Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un
problème".
J'ai effectué une macro qui lit le contenue d'une cellule et qui supprime la
ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors quelle
devrait tout supprimer.
Quand pensez-vous ?
Merci d'avance pour votre aide.
Voila la macro :
Dim lig
lig = 1
For lig = 1 To lignevide1
If Left(Cells(lig, 1), 3) = "OUS" Then
Rows(lig & ":" & lig).Delete xlUp
End If
Voila la macro : Dim lig lig = 1 For lig = 1 To lignevide1 If Left(Cells(lig, 1), 3) = "OUS" Then Rows(lig-1& ":" & lig).Delete xlUp
End If
JB
Bonsoir,
Ta boucle est à l'envers:
lignevide1 = [a65000].End(xlUp).Row For lig = lignevide1 To 1 Step -1 If UCase(Left(Cells(lig, 1), 3)) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If Next
Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un problème". J'ai effectué une macro qui lit le contenue d'une cellule et qui supprim e la ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors que lle devrait tout supprimer. Quand pensez-vous ? Merci d'avance pour votre aide.
Voila la macro : Dim lig lig = 1 For lig = 1 To lignevide1 If Left(Cells(lig, 1), 3) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If
Bonsoir,
Ta boucle est à l'envers:
lignevide1 = [a65000].End(xlUp).Row
For lig = lignevide1 To 1 Step -1
If UCase(Left(Cells(lig, 1), 3)) = "OUS" Then
Rows(lig & ":" & lig).Delete xlUp
End If
Next
On 11 mar, 18:35, "elli6258" <minier.mic...@neuf.fr> wrote:
Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un
problème".
J'ai effectué une macro qui lit le contenue d'une cellule et qui supprim e la
ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors que lle
devrait tout supprimer.
Quand pensez-vous ?
Merci d'avance pour votre aide.
Voila la macro :
Dim lig
lig = 1
For lig = 1 To lignevide1
If Left(Cells(lig, 1), 3) = "OUS" Then
Rows(lig & ":" & lig).Delete xlUp
End If
lignevide1 = [a65000].End(xlUp).Row For lig = lignevide1 To 1 Step -1 If UCase(Left(Cells(lig, 1), 3)) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If Next
Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un problème". J'ai effectué une macro qui lit le contenue d'une cellule et qui supprim e la ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors que lle devrait tout supprimer. Quand pensez-vous ? Merci d'avance pour votre aide.
Voila la macro : Dim lig lig = 1 For lig = 1 To lignevide1 If Left(Cells(lig, 1), 3) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If
elli6258
Super !, je viens de tester, cela fonctionne. Entre temps j'ai continué àchercher de mon côté et j'ai réussi à la faire fonctionner sur un autre fichier. Juste en changeant le mot OUS par COUL. Comme tu le vois je suis amateur et je pensai que la boucle partant 1 vers ligne vide. Encoe merci
"JB" a écrit dans le message de news:
Bonsoir,
Ta boucle est à l'envers:
lignevide1 = [a65000].End(xlUp).Row For lig = lignevide1 To 1 Step -1 If UCase(Left(Cells(lig, 1), 3)) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If Next
Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un problème". J'ai effectué une macro qui lit le contenue d'une cellule et qui supprime la ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors quelle devrait tout supprimer. Quand pensez-vous ? Merci d'avance pour votre aide.
Voila la macro : Dim lig lig = 1 For lig = 1 To lignevide1 If Left(Cells(lig, 1), 3) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If
Super !, je viens de tester, cela fonctionne.
Entre temps j'ai continué àchercher de mon côté et j'ai réussi à la faire
fonctionner sur un autre fichier. Juste en changeant le mot OUS par COUL.
Comme tu le vois je suis amateur et je pensai que la boucle partant 1 vers
ligne vide.
Encoe merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
3b84e5fa-e52c-4c9e-9cd3-d8066343ad1a@s8g2000prg.googlegroups.com...
Bonsoir,
Ta boucle est à l'envers:
lignevide1 = [a65000].End(xlUp).Row
For lig = lignevide1 To 1 Step -1
If UCase(Left(Cells(lig, 1), 3)) = "OUS" Then
Rows(lig & ":" & lig).Delete xlUp
End If
Next
On 11 mar, 18:35, "elli6258" <minier.mic...@neuf.fr> wrote:
Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un
problème".
J'ai effectué une macro qui lit le contenue d'une cellule et qui supprime
la
ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors quelle
devrait tout supprimer.
Quand pensez-vous ?
Merci d'avance pour votre aide.
Voila la macro :
Dim lig
lig = 1
For lig = 1 To lignevide1
If Left(Cells(lig, 1), 3) = "OUS" Then
Rows(lig & ":" & lig).Delete xlUp
End If
Super !, je viens de tester, cela fonctionne. Entre temps j'ai continué àchercher de mon côté et j'ai réussi à la faire fonctionner sur un autre fichier. Juste en changeant le mot OUS par COUL. Comme tu le vois je suis amateur et je pensai que la boucle partant 1 vers ligne vide. Encoe merci
"JB" a écrit dans le message de news:
Bonsoir,
Ta boucle est à l'envers:
lignevide1 = [a65000].End(xlUp).Row For lig = lignevide1 To 1 Step -1 If UCase(Left(Cells(lig, 1), 3)) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If Next
Bonjour, je suis nouveau sur le site et comme beaucoup d'entre, "J'ai un problème". J'ai effectué une macro qui lit le contenue d'une cellule et qui supprime la ligne en question si la cellule contient un mot prédéfinie.
Lorsque je la fait fonctionner elle me supprime 1 ligne sur 2 alors quelle devrait tout supprimer. Quand pensez-vous ? Merci d'avance pour votre aide.
Voila la macro : Dim lig lig = 1 For lig = 1 To lignevide1 If Left(Cells(lig, 1), 3) = "OUS" Then Rows(lig & ":" & lig).Delete xlUp End If