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

Supprimer la ligne si le premier caractère est un chiffre

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

excel12

Guest
Bonjour! 🙂

J'ai plus de 2000 lignes dans Excel.
Je souhaite supprimer toutes les lignes dont le premier caractère est un chiffre.
Chaque lignes est espacé d'un retour de ligne.


Donc, si j'ai ces 5 lignes par exemple:
ABC

5FG

ZM5

89L

W99

Il doit seulement me rester ces 3 lignes sans d'espace entre elles:
ABC
ZM5
W99

Est-ce que vous avez quelques idées?😕

Merci!🙂

Excel12
 
Trier par date Trier par votes
Re : Supprimer la ligne si le premier caractère est un chiffre

Bonsoir à tous

excel12
Pourquoi ouvrir un second fil??
https://www.excel-downloads.com/thr...i-le-premier-caractere-est-un-chiffre.212404/
D'autant plus que tu as des solutions dans le premier, non ?
Et je te redis que cette solution fonctionne
https://www.excel-downloads.com/thr...i-le-premier-caractere-est-un-chiffre.212404/
Si tu fais bien tout ce que j'écris dans ce message ...

EDITION: Bonsoir Valentin_Loupe, bonjour job75 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer la ligne si le premier caractère est un chiffre

Bonjour excel12, Jean-Marie, Valentin_Loupe,

Au post #1 on parle de retour ligne, donc voyez le fichier joint avec cette macro :

Code: 
Sub Nettoyage()
Dim r As Range, t, i As Long, s, j As Integer
Set r = Range("A1", Range("A" & Rows.Count).End(xlUp)(2))
t = r 'matrice (plus rapide) avec au moins 2 éléments
For i = 1 To UBound(t)
  s = Split(t(i, 1), vbLf)
  For j = 0 To UBound(s)
    If Left(s(j), 1) Like "#*" Then s(j) = Chr(1)
  Next
  t(i, 1) = Join(s, vbLf)
  t(i, 1) = Replace(t(i, 1), Chr(1) & vbLf, "")
  t(i, 1) = Replace(t(i, 1), vbLf & Chr(1), "")
  t(i, 1) = Replace(t(i, 1), Chr(1), "")
Next
r = t
End Sub
Edit : hum bien sûr remplacer If Left(s(j), 1) Like "#*" Then s(j) = Chr(1) par

Code: 
If s(j) Like "#*" Then s(j) = Chr(1)
A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer la ligne si le premier caractère est un chiffre

Re,

Si une cellule en colonne A se retrouve vide, on peut supprimer toute la ligne :

Code: 
Sub Nettoyage()
Dim r As Range, t, i As Long, s, j As Integer
Set r = Range("A1", Range("A" & Rows.Count).End(xlUp)(2))
t = r 'matrice (plus rapide) avec au moins 2 éléments
For i = 1 To UBound(t)
  s = Split(t(i, 1), vbLf)
  For j = 0 To UBound(s)
    If Left(s(j), 1) Like "#*" Then s(j) = Chr(1)
  Next
  t(i, 1) = Join(s, vbLf)
  t(i, 1) = Replace(t(i, 1), Chr(1) & vbLf, "")
  t(i, 1) = Replace(t(i, 1), vbLf & Chr(1), "")
  t(i, 1) = Replace(t(i, 1), Chr(1), "")
Next
r = t
'---suppression facultative des cellules vides---
r.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Voir la cellule A5 dans ce fichier (2).

Edit : hum bien sûr remplacer If Left(s(j), 1) Like "#*" Then s(j) = Chr(1) par

Code: 
If s(j) Like "#*" Then s(j) = Chr(1)
A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer la ligne si le premier caractère est un chiffre

Re,

Une autre manière avec ce fichier (3) :

Code: 
Sub Nettoyage()
Dim r As Range, t, i As Long, s, txt As String, j As Integer
Set r = Range("A1", Range("A" & Rows.Count).End(xlUp)(2))
t = r 'matrice (plus rapide) avec au moins 2 éléments
For i = 1 To UBound(t)
  s = Split(t(i, 1), vbLf)
  txt = ""
  For j = 0 To UBound(s)
    If Not s(j) Like "#*" Then txt = txt & vbLf & s(j)
  Next
  t(i, 1) = Mid(txt, 2)
Next
r = t
'---suppression facultative des cellules vides---
r.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Sur 3000 lignes c'est à peine plus rapide.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Supprimer la ligne si le premier caractère est un chiffre

Re,

S'il y a des retours ligne superflus qu'on veut éliminer utiliser :

Code: 
Sub Nettoyage()
Dim r As Range, t, i As Long, s, txt As String, j As Integer
Set r = Range("A1", Range("A" & Rows.Count).End(xlUp)(2))
t = r 'matrice (plus rapide) avec au moins 2 éléments
For i = 1 To UBound(t)
  s = Split(t(i, 1), vbLf)
  txt = ""
  For j = 0 To UBound(s)
    If Trim(s(j)) <> "" And Not s(j) Like "#*" Then txt = txt & vbLf & s(j)
  Next
  t(i, 1) = Mid(txt, 2)
Next
r = t
'---suppression facultative des cellules vides---
r.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Fichier (4).

A+
 

Pièces jointes

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

Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
279
alexga78
A
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
400
NikonvsWild
N
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
325
AtTheOne
  • Résolu(e)
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
1 K
jeff1494
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
927
crocrocro
C
E
  • Résolu(e)
XL 2021 Supprimer tous les chiffres et le premier espace sur chaque cellule
Réponses
3
Affichages
593
eCHO
E
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
A
  • Question Question
XL 2021 Générer des données à partir d'une ligne spécifique jusqu'à une autre
Réponses
5
Affichages
629
gbinforme
G
  • Question Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
616
sylvanu
L
  • Résolu(e)
Microsoft 365 Ratio dans un TCD
Réponses
4
Affichages
599
Laurent78
L
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
L
  • Résolu(e)
XL 2013 VBA Supprimer une ligne si la date est inférieure à une date donnée
Réponses
6
Affichages
1 K
yoyovento
Y
V
  • Question Question
XL 2016 Pouvoir faire un tableau dynamique croisé avec des données en ligne
Réponses
13
Affichages
1 K
vivi21
V
L
  • Question Question
XL 2019 Récupérer le premier nombre d'une ligne selon entreprise puis retrouver date
Réponses
5
Affichages
854
Loïc DUBOIS
L
Z
  • Question Question
XL pour MAC Extraire le nom de la ligne et de la colonne tableau double entrée
Réponses
3
Affichages
781
R@chid
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
M
  • Résolu(e)
Microsoft 365 supprimer ligne si cellule N+1 identique
Réponses
2
Affichages
427
Mwadepaname
M
A
  • Question Question
XL 2016 Contrôle de la pose de 10 jours de congés consécutifs
Réponses
5
Affichages
982
djidji59430
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…