Macro, suppression données cellules
Résolu
Lentzouille2
Messages postés
1000
Statut
Membre
-
Lentzouille2 Messages postés 1000 Statut Membre -
Lentzouille2 Messages postés 1000 Statut Membre -
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
--
"La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber"
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
--
"La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber"
4 réponses
-
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 -
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 ! -
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 -
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 !
