suppression de ligne

Le
Patcas
Bonjour

J'ai un tableau dans lequel je voudrais supprimer les lignes quand j'ai le
mot "effacer" dans la colonne T
J'ai adapté une macro trouvée sur un site mais ça ne fonctionne pas
Pouvez vous me corriger et me dire pourquoi?

"
Sub Macro2()

Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Cells(i, 20).ClearContents
Next
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
"
A l'execution ça bloque sur le 1er "i" et j'ai le message suivant :
"erreur de compilation, varaible non definie"

pourtant "i" est défini me semble t il.

Voilà, merci pour votre aide

Cordialement

P.C
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4398401
bonjour P.C,

Sub Macro2()
Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Rows(i).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub

isabelle


Bonjour

J'ai un tableau dans lequel je voudrais supprimer les lignes quand j'ai le
mot "effacer" dans la colonne T
J'ai adapté une macro trouvée sur un site mais ça ne fonctionne pas
Pouvez vous me corriger et me dire pourquoi?

"
Sub Macro2()

Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Cells(i, 20).ClearContents
Next
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
"
A l'execution ça bloque sur le 1er "i" et j'ai le message suivant :
"erreur de compilation, varaible non definie"

pourtant "i" est défini me semble t il.

Voilà, merci pour votre aide

Cordialement

P.C




papou
Le #4398391
Bonjour
Deux choix :
1°) Dans le menu VBA
Outils, Options, onglet Editeur
Décoches "Déclaration des variables obligatoires"
2°) Dans ton module Macro2 :
Dim i as integer

Cordialement
Pascal

"Patcas" news: dQsRh.109$
Bonjour

J'ai un tableau dans lequel je voudrais supprimer les lignes quand j'ai le
mot "effacer" dans la colonne T
J'ai adapté une macro trouvée sur un site mais ça ne fonctionne pas
Pouvez vous me corriger et me dire pourquoi?

"
Sub Macro2()

Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Cells(i, 20).ClearContents
Next
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
"
A l'execution ça bloque sur le 1er "i" et j'ai le message suivant :
"erreur de compilation, varaible non definie"

pourtant "i" est défini me semble t il.

Voilà, merci pour votre aide

Cordialement

P.C



Patcas
Le #4398311
Merci
c'etait bete comme chou
il manquait juste
Dim i as integer
Cordialement
P.C.



"papou" %
Bonjour
Deux choix :
1°) Dans le menu VBA
Outils, Options, onglet Editeur
Décoches "Déclaration des variables obligatoires"
2°) Dans ton module Macro2 :
Dim i as integer

Cordialement
Pascal

"Patcas" news: dQsRh.109$
Bonjour

J'ai un tableau dans lequel je voudrais supprimer les lignes quand j'ai
le mot "effacer" dans la colonne T
J'ai adapté une macro trouvée sur un site mais ça ne fonctionne pas
Pouvez vous me corriger et me dire pourquoi?

"
Sub Macro2()

Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Cells(i, 20).ClearContents
Next
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
"
A l'execution ça bloque sur le 1er "i" et j'ai le message suivant :
"erreur de compilation, varaible non definie"

pourtant "i" est défini me semble t il.

Voilà, merci pour votre aide

Cordialement

P.C







Patcas
Le #4398301
Merci Isabelle
il manquait
Dim i as integer
pour que ça fonctionne
je garde ton texte aussi

Cordialement
P.C.

"isabelle" a écrit dans le message de news:

bonjour P.C,

Sub Macro2()
Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Rows(i).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub

isabelle


Bonjour

J'ai un tableau dans lequel je voudrais supprimer les lignes quand j'ai
le mot "effacer" dans la colonne T
J'ai adapté une macro trouvée sur un site mais ça ne fonctionne pas
Pouvez vous me corriger et me dire pourquoi?

"
Sub Macro2()

Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Cells(i, 20).ClearContents
Next
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
"
A l'execution ça bloque sur le 1er "i" et j'ai le message suivant :
"erreur de compilation, varaible non definie"

pourtant "i" est défini me semble t il.

Voilà, merci pour votre aide

Cordialement

P.C




JB
Le #4398061
Bonsoir,

Pourquoi une boucle?

[T:T].Replace What:="effacer", Replacement:=""
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB

On 6 avr, 16:31, "Patcas"
Bonjour

J'ai un tableau dans lequel je voudrais supprimer les lignes quand j'ai le
mot "effacer" dans la colonne T
J'ai adapté une macro trouvée sur un site mais ça ne fonctionne pas
Pouvez vous me corriger et me dire pourquoi?

"
Sub Macro2()

Application.ScreenUpdating = False
For i = Range("T65").End(xlUp).Row To 1 Step -1
If Cells(i, 20).Value = "effacer" Then Cells(i, 20).ClearContents
Next
Columns("T:T").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
"
A l'execution ça bloque sur le 1er "i" et j'ai le message suivant :
"erreur de compilation, varaible non definie"

pourtant "i" est défini me semble t il.

Voilà, merci pour votre aide

Cordialement

P.C


Publicité
Poster une réponse
Anonyme