MACRO HELP , supprimer une cellule sous condi

Fermé
JGABI Messages postés 3 Date d'inscription mercredi 30 juin 2010 Statut Membre Dernière intervention 30 juin 2010 - 30 juin 2010 à 12:13
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 - 30 juin 2010 à 13:03
Bonjour,

je doi mettre une ligne dans ma macro qui [permet de supprimer toutes les cellules de la colonne G pour lesquelles les cellules de la colonne H a cote sont non vides ....





Thanks A lot


A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
30 juin 2010 à 12:20
Bonjour,

La question est où ?

Quelle partie du code pose un problème ?
0
JGABI Messages postés 3 Date d'inscription mercredi 30 juin 2010 Statut Membre Dernière intervention 30 juin 2010
30 juin 2010 à 12:24
En gros jai besoin du code , la jai mis un truc comme ca

Sub suppr()

Sheets("Final").Select
If Not IsEmpty("H2") Then
Range("G2").Select
Selection.Delete
End If


End Sub

Mais double pb ,

1. C que pour H2 , moi jai besoin pour toutes les cellules de la colonne H

2. Quand je lance la macro ca supprime bien G2 mais ca me remonte G3 en G2
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
30 juin 2010 à 12:59
Voilà un exemple de suppression de ligne avec la condition "si cellule vide, supprimer la ligne":

Dim derlig As Long
Dim lig As Long

    derlig = Sheets(1)Range("G65536").End(xlUp).Row
    
For lig = derlig To 1 Step - 1
   If Not IsEmpty("H" & lig) Then
       Rows(i).EntireRow.Delete
       End If 
Next lig


;o)
0
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 5 072
30 juin 2010 à 13:03
Bonjour

Merci de continuer sur ce sujet au lieu d'en ouvrir 4.
0