suprimer le contenu de plusieurs cellule en fonction d'une autre

  • Initiateur de la discussion Initiateur de la discussion kastor
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kastor

XLDnaute Junior
Bonjour,

Je cherche comment faire pour supprimer toutes les cellules d'une feuille en fonction de la valeur de la cellule de la même ligne.

j'ai cette macro pour supprimer toutes les lignes, mais j'aimerais supprimer que le contenu de la colonne

Range("AM", Cells(Rows.Count, "AM").End(xlUp)).AutoFilter Field:=39, Criteria1:="valeur"
Rows(1).EntireRow.Hidden = True
With Cells
.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
.AutoFilter
.EntireRow.Hidden = False
End With

donc pour toutes les lignes... si en colonne AM la cellule est vide, alors supprimer le contenu de la cellule de la même ligne en colonne AW.

Merci d'avance pour votre aide.
Je pense ne pas être loin de la vérité.... mais j'y suis pas encore.

bref
 
Re : suprimer le contenu de plusieurs cellule en fonction d'une autre

Bon,

j'en suis arrivé à ça

Range("AN1", Cells(Rows.Count, "AN").End(xlUp)).AutoFilter Field:=1, Criteria1:=""

Rows(1).EntireRow.Hidden = True
With Columns("AX")
.SpecialCells(xlCellTypeVisible).Delete
.AutoFilter
.EntireRow.Hidden = False
End With

mais je ne veux pas supprimer les lignes entières, seulement les valeur de la colonne

le problème vient de ça
.SpecialCells(xlCellTypeVisible).Delete
.AutoFilter
.EntireRow.Hidden = False

quelqu'un à une idée ?
 
Re : suprimer le contenu de plusieurs cellule en fonction d'une autre

Finalement...

voici la macro pour ceux qui veulent...


Range("AN1", Cells(Rows.Count, "AN").End(xlUp)).AutoFilter Field:=1, Criteria1:=""

Rows(1).EntireRow.Hidden = True
With Columns("AX")
.SpecialCells(xlCellTypeVisible).Select
.ClearContents
.AutoFilter
.EntireRow.Hidden = False
End With


Bref. pas mécontent d'y être arrivé tout seul
Merci à tous quand même pour votre aide dans mes autres demandes. Ca m'a au moins permis de trouver mon erreur ici.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
493
Retour