Sujet Précédent Sujet Suivant

MACRO HELP , supprimer une cellule sous condi

JGABI Messages postés 6 Statut Membre -  
irongege Messages postés 43559 Date d'inscription   Statut Modérateur Dernière intervention   -
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

Réponse 1 / 2
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

La question est où ?

Quelle partie du code pose un problème ?
0
Réponse 2 / 2
JGABI Messages postés 6 Statut Membre
 
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 7219 Statut Membre 1 204
 
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 43559 Date d'inscription   Statut Modérateur Dernière intervention   5 082
 
Bonjour

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