Macro, suppression données cellules

Résolu/Fermé

Lentzouille2 Messages postés 806 Date d'inscription samedi 22 octobre 2011 Statut Membre Dernière intervention 13 janvier 2020 - 12 avril 2012 à 15:41
Lentzouille2 Messages postés 806 Date d'inscription samedi 22 octobre 2011 Statut Membre Dernière intervention 13 janvier 2020 - 12 avril 2012 à 17:04

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:

Macro, suppression données cellules
Forcer suppression fichier - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Excel additionner des cellules - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 avril 2012 à 16:56

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

Lentzouille2 Messages postés 806 Date d'inscription samedi 22 octobre 2011 Statut Membre Dernière intervention 13 janvier 2020 39
12 avril 2012 à 17:04

Nickel c'est ce que je voulais :) je te remercie !! =)

Réponse 2 / 4

Lentzouille2 Messages postés 806 Date d'inscription samedi 22 octobre 2011 Statut Membre Dernière intervention 13 janvier 2020 39
12 avril 2012 à 16:32

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 !

Réponse 3 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 avril 2012 à 16:43

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

Réponse 4 / 4

Lentzouille2 Messages postés 806 Date d'inscription samedi 22 octobre 2011 Statut Membre Dernière intervention 13 janvier 2020 39
12 avril 2012 à 16:51

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 !

Discussions similaires

Nettoyer une base de données avec une liste

Discussions similaires

Newsletters