Suppression de cellules dans excel en fonction de critère

jack2125 Messages postés 484 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
bonjour
je voudrais créer un algo pour supprimer des cellules en fonction de critère indiqué dans mon tableau ci joint
https://www.cjoint.com/c/LErk2AZ40hM
A voir également:

6 réponses

ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

si dans la ligne on a col G =0 ou col h=0 on suprime les cellules de A:J

tu veux dire
- 1 - on supprime la ligne ?
- 2 - on efface le contenu de A à J ?
si col F<175 ou col F>75 on suprime également
ce ne serait pas plutôt
si col F>175 ou col F<75 on supprime également

Cdlmnt
0
jack2125 Messages postés 484 Statut Membre
 
bonjour et merci de ta réponse
non pas la ligne mais seulement es cellules
oui j'ai inversé les signe ><
c'est bien F>175 et F<75 on conserve entre 74 et 175 le reste on suprime
0
jack2125 Messages postés 484 Statut Membre
 
RE
je me rends compte de deux soucis
ca me supprime la ligne complète et non que les cellules
il me semble que ça s'arête a la ligne 11 que ca ne va pas plus loin
et surtout j'aimerais que les cellules supprimées soient remplacer par celle en dessous qui sont a conserver
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
non pas la ligne mais seulement es cellules
tu veux bien dire effacer leur contenu, parce que supprimer les cellules revient à supprimer la ligne
https://www.cjoint.com/c/LErmZHI14DB

Cdlmnt
0
jack2125 Messages postés 484 Statut Membre
 
super mais je voudrais supprimer définitivement les cellules et remonter en place celle en dessous conforme en remplaçant celle mauvaise
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 11033 Statut Membre 2 433
 
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
1.je me rends compte de deux soucis
ca me supprime la ligne complète et non que les cellules

as tu regardé la proposition ci-dessus (post 5)

2. il me semble que ça s'arête a la ligne 11 que ca ne va pas plus loin
lifin = Cells(Rows.Count, codeb).End(xlUp).Row
non, ça va jusqu'à lifin (dernière ligne renseignéee de la colonne codeb)

3. j'aimerais que les cellules supprimées soient remplacer par celle en dessous qui sont a conserver
idem 1

Cdlmnt
0