Macro, suppression données cellules

Résolu
Lentzouille2 Messages postés 806 Date d'inscription   Statut Membre Dernière intervention   -  
Lentzouille2 Messages postés 806 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
1
Lentzouille2 Messages postés 806 Date d'inscription   Statut Membre Dernière intervention   39
 
Nickel c'est ce que je voulais :) je te remercie !! =)
0
Réponse 2 / 4
Lentzouille2 Messages postés 806 Date d'inscription   Statut Membre Dernière intervention   39
 
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 !
0
Réponse 3 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
0
Réponse 4 / 4
Lentzouille2 Messages postés 806 Date d'inscription   Statut Membre Dernière intervention   39
 
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 !
0