MACRO HELP , supprimer une cellule sous condi

JGABI Messages postés 6 Statut Membre -  
irongege Messages postés 38993 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

2 réponses

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    La question est où ?

    Quelle partie du code pose un problème ?
    0
  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
    1. 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
    2. irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   5 128
       
      Bonjour

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

Discussions similaires

Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5 -
Adraen -

25 réponses