Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MACRO

MACRO

9 réponses
Avatar
BRUNO
Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les lignes d'un tableau
de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C quand sur chaque
ligne le contenu de la cellule de la colonne C est 0 (zéro).
Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Bruno,

Dim A as integer

For A = 62 To 2 Step -1
If Range("C" & A) <> "" Then
If Range("C" & A) = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
Next



Salutations!



"BRUNO" a écrit dans le message de news:
Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les lignes d'un tableau
de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C quand sur chaque
ligne le contenu de la cellule de la colonne C est 0 (zéro).
Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC
Avatar
Salut

Ca doit donner ca a quelque chose pres :
'code
Sub Macro()

Dim C As String
Dim i As Integer
Dim ligne A String

for i=2 to 62
cellule = "C" & i
ligne = i & ":" & i
If Range(cellule).Value = 0 Then
Rows(ligne).Select
Selection.Delete Shift:=xlUp
End If
Next i

End Sub
'Fin code

-----Message d'origine-----
Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les
lignes d'un tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C
quand sur chaque

ligne le contenu de la cellule de la colonne C est 0
(zéro).

Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC


.



Avatar
BRUNO
MERCI.

"michdenis" a écrit dans le message de
news:
Bonjour Bruno,

Dim A as integer

For A = 62 To 2 Step -1
If Range("C" & A) <> "" Then
If Range("C" & A) = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
Next



Salutations!



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

Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les lignes d'un
tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C quand sur chaque
ligne le contenu de la cellule de la colonne C est 0 (zéro).
Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC





Avatar
BRUNO
J'ai essayé et j'ai immédiatement une erreur 13 Incompatibilité de type.
Que dois-je faire ?
BC


a écrit dans le message de
news:278fc01c46426$7e6660b0$
Salut

Ca doit donner ca a quelque chose pres :
'code
Sub Macro()

Dim C As String
Dim i As Integer
Dim ligne A String

for i=2 to 62
cellule = "C" & i
ligne = i & ":" & i
If Range(cellule).Value = 0 Then
Rows(ligne).Select
Selection.Delete Shift:=xlUp
End If
Next i

End Sub
'Fin code

-----Message d'origine-----
Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les
lignes d'un tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C
quand sur chaque

ligne le contenu de la cellule de la colonne C est 0
(zéro).

Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC


.



Avatar
BRUNO
J'ai essayé et j'ai une erreur 13 Incompatibilité de type.
Que dois-je faire ?
BC

"michdenis" a écrit dans le message de
news:
Bonjour Bruno,

Dim A as integer

For A = 62 To 2 Step -1
If Range("C" & A) <> "" Then
If Range("C" & A) = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
Next



Salutations!



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

Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les lignes d'un
tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C quand sur chaque
ligne le contenu de la cellule de la colonne C est 0 (zéro).
Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC





Avatar
michdenis
Bonjour Bruno,

Je ne vois pas très bien ce qui peut provoquer ce type d'erreur, sauf si tu as copié ce bout de code dans une procédure
générale existante et que la variable A était déjà définie comme "As String" par exemple ....

Salutations!



"BRUNO" a écrit dans le message de news:O%
J'ai essayé et j'ai une erreur 13 Incompatibilité de type.
Que dois-je faire ?
BC

"michdenis" a écrit dans le message de
news:
Bonjour Bruno,

Dim A as integer

For A = 62 To 2 Step -1
If Range("C" & A) <> "" Then
If Range("C" & A) = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
Next



Salutations!



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

Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les lignes d'un
tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C quand sur chaque
ligne le contenu de la cellule de la colonne C est 0 (zéro).
Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC





Avatar
BRUNO
J'ai tapé ce qui suit en corrigeant ce qui était sans doute une faute de
frappe dans Dim ligne As

Sub SUPPRESSION_LIGNES()
'
'

Dim C As String
Dim i As Integer
Dim ligne As String

For i = 2 To 62
cellule = "C" & i
ligne = i & ":" & i
If Range(cellule).Value = 0 Then
Rows(ligne).Select
Selection.Delete Shift:=xlUp
End If
Next i

End Sub


La macro fonctionne mais il me faut l'activer 4 fois pour que toutes les
lignes indésirables disparaissent.
Est-ce normal ?
Que faut-il faire pour qu'elles puissent disparaître en une seule activation
?
MERCI.
BC.

a écrit dans le message de
news:278fc01c46426$7e6660b0$
Salut

Ca doit donner ca a quelque chose pres :
'code
Sub Macro()

Dim C As String
Dim i As Integer
Dim ligne A String

for i=2 to 62
cellule = "C" & i
ligne = i & ":" & i
If Range(cellule).Value = 0 Then
Rows(ligne).Select
Selection.Delete Shift:=xlUp
End If
Next i

End Sub
'Fin code

-----Message d'origine-----
Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les
lignes d'un tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C
quand sur chaque

ligne le contenu de la cellule de la colonne C est 0
(zéro).

Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC


.



Avatar
Daniel.M
Hello Bruno,

Ça peut bloquer si tu as une valeur d'erreur dans une cellule notamment.

Dim A as integer

For A = 62 To 2 Step -1
If IsNumeric(Range("C" & A)) Then
If Range("C" & A) = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
Next

Salutations,

Daniel M.

"BRUNO" wrote in message
news:O%
J'ai essayé et j'ai une erreur 13 Incompatibilité de type.
Que dois-je faire ?
BC

"michdenis" a écrit dans le message de
news:
Bonjour Bruno,

Dim A as integer

For A = 62 To 2 Step -1
If Range("C" & A) <> "" Then
If Range("C" & A) = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
Next



Salutations!



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

Bonjour,
J'ai besoin d'une macro qui permettrait de supprimer les lignes d'un
tableau

de 61 lignes (ligne 2 à ligne 62) et de 3 colonnes A B C quand sur chaque
ligne le contenu de la cellule de la colonne C est 0 (zéro).
Suis-je assez clair ?
Je ne connaît pas grand chose au code VBA.
Qui pourrait m'aider ?
Merci d'avance .
BC









Avatar
Daniel.M
Fallait pas laisser tomber le <> ""

Dim A As Integer
For A = 62 To 2 Step -1
With Range("C" & A)
If IsNumeric(.Value) Then
If Len(.Value) <> 0 And .Value = 0 Then
Range("A" & A).Resize(, 3).Delete xlUp
End If
End If
End With
Next

Salutations,

Daniel M.