Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer cellule sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JAROD02
  • 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 !

S'inscrire
J

JAROD02

Guest
Bonjour le forum et bravo pour le travail que vous faites.

Après plusieurs tentatives de recherche Je fais appel à vous pour trouver le moyen de supprimer ou effacer une cellule par macro ou vba, en fonction du nombre de chiffres qu’elle contient.

J’ai trouvé pas mal de choses sur les cellules, mais qui correspond à ce que je cherche.

Je voudrai que dans une colonne toutes les cellules qui ont moins de quatre chiffres par exemple soient supprimées où effacées.

J’espère avoir été clair.
Merci d'avance.
 
Trier par date Trier par votes
Re : Supprimer cellule sous condition

Bonsoir et bienvenue sur le Forum JAROD02,

Tu veux faire cela dans TOUTE une colonne? Si oui, la macro risque d'avoir un temps d'exécution long!

Tes cellules comportes que des chiffres? Si oui, voici ci-dessous une proposition :
Code: 
Sub Proposition()

Application.ScreenUpdating = False

For i = 65536 To 1 Step -1
If Len(Cells(i, [COLOR="Gray"][B]1[/B][/COLOR])) < 4 Then [COLOR="Blue"]Cells(i, [COLOR="Gray"][B]1[/B][/COLOR]).Delete Shift:=xlUp[/COLOR]
Next i

Application.ScreenUpdating = True [COLOR="Green"]'ligne de code pouvant être supprimé! Après, tout dépend du reste de ta macro[/COLOR]

End Sub

Dans le cas où tu veuilles supprimer la cellule comportant moins de 4 chiffres
Cells(i, 1).Delete Shift:=xlUp

Sinon, si tu souhaite seulement supprimer le contenu de la cellule comportant moins de 4 chiffres. Remplacer la partie bleu ci-dessus par celle-ci :
Cells(i, 1).ClearContents

1 -> dans le cas où il s'agit de la colonne A

Sinon remplacer 1 par le numéro de la colonne voulu

Bonne fin soirée
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
672
sylvanu
F
  • Question Question
XL 2016 tableaux xl
Réponses
12
Affichages
452
TooFatBoy
R
  • Question Question
Microsoft 365 condition pour supprimer une valeur dans une cellule
Réponses
4
Affichages
451
ricouvbx
R
W
  • Question Question
Microsoft 365 Correspondance de mot dans une cellule
Réponses
3
Affichages
294
job75
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
525
vgendron
Y
  • Résolu(e)
XL 2016 Comment supprimer des chiffres + texte en fin de cellule
Réponses
2
Affichages
644
Yayanne76
Y
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
575
Yogean
Y
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
552
MCOTTEND
M
F
  • Résolu(e)
Microsoft 365 Supprimer des lignes en fonction de la date et de l'heure
Réponses
8
Affichages
1 K
AtTheOne
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
599
Droopyougo
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
419
Thomas75
T
  • Question Question
XL 2016 Apparition de cadres en survol de cellule
Réponses
2
Affichages
469
flocon
J
  • Résolu(e)
Microsoft 365 Image sous la grille - zoom proportionnel
Réponses
12
Affichages
818
JyCu
J
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
2 K
Alexandrax971
A
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
1 K
ThomAnalyses
T
  • Résolu(e)
XL 2013 Afficher des UserForms en fonction des mois
2
Réponses
17
Affichages
2 K
chaelie2015
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
934
vgendron
P
  • Question Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
693
sylvanu
L
  • Question Question
Microsoft 365 Mémoriser la valeur d'une cellule qui change sous condition
Réponses
3
Affichages
827
Jacky67
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…