Macro, suppression données cellules Résolu/Fermé

Question

Bonjour, 

Je cherche à réaliser une macro,

Qui me parcours toute la colonne (G) et si la cellule est égal à 0 alors supprimer l'information de la cellule (pas la ligne)

Merci d'avance,

Cdt

Configuration: Windows Seven

Lentzouille2 · Answer

Je suis parti de ce code 


Sub suppr()
Dim i As Integer

Application.ScreenUpdating = True

For i = 1 To 20000
    If Cells(i, 7) = "0" Then
        Rows(i).Delete
        i = i - 1
    End If
Next
Application.ScreenUpdating = False

End Sub

Mais ça me supprime la ligne, je pense qu'il y a juste un petit truc à changer ... mais je ne vois pas quoi ...

Merci d'avance !

f894009 · Answer

Bonjour,

Sub suppr()
Dim i As Integer

Application.ScreenUpdating = True
For i = 1 To 20000
    If Cells(i, 7) = "0" Then
        Rows(i & ":" & i).ClearContents
    End If
Next
Application.ScreenUpdating = True

End Sub


Bonne suite

Lentzouille2 · Answer

Merci de ta réponse,

Ton code fonctionne à un détail près ... il me supprime toutes les données de la ligne ... je veux juste que ça soit les données de la cellule qui soit supprimé.

Merci !

f894009 · Answer

Re,


Sub suppr()
Dim i As Integer

Application.ScreenUpdating = True
For i = 1 To 20000
If Cells(i, 7) = "0" Then
Range("G" & i).ClearContents
End If
Next
Application.ScreenUpdating = True

End Sub

Ou

Sub suppr()
Dim i As Integer

Application.ScreenUpdating = True
For i = 1 To 20000
    If Cells(i, 7) = "0" Then
      Cells(i, 7).ClearContents
    End If
Next
Application.ScreenUpdating = True

End Sub

Bonne suite

Macro, suppression données cellules

4 réponses

Discussions similaires