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
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
A voir également:
- MACRO HELP , supprimer une cellule sous condi
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
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
30 juin 2010 à 12:20
Bonjour,
La question est où ?
Quelle partie du code pose un problème ?
La question est où ?
Quelle partie du code pose un problème ?
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
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
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
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
30 juin 2010 à 12:59
Voilà un exemple de suppression de ligne avec la condition "si cellule vide, supprimer la ligne":
;o)
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)
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
30 juin 2010 à 13:03
Bonjour
Merci de continuer sur ce sujet au lieu d'en ouvrir 4.
Merci de continuer sur ce sujet au lieu d'en ouvrir 4.