Astuces pour enlever certaines parties du texte automatiquement ?
Fermé
borisparis
-
8 avril 2020 à 09:46
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 8 avril 2020 à 12:12
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 8 avril 2020 à 12:12
A voir également:
- Astuces pour enlever certaines parties du texte automatiquement ?
- Excel cellule couleur si condition texte - Guide
- Corinne copie un texte sur le web et le colle dans un document avec l'option "texte non formaté" (aussi appelée "texte sans mise en forme"). qu'est-ce qui est conservé ? - Forum Bureautique
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
- Mettre un texte en majuscule - Guide
- Enlever bing - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
8 avril 2020 à 12:12
8 avril 2020 à 12:12
Bonjour,
en vba Excel:
en vba Excel:
Option Explicit Sub supprimer() Range("a1:a65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime lignes vides For_X_to_Next_Ligne 'supprime lignes numeriques End Sub Sub For_X_to_Next_Ligne() Dim FL1 As Worksheet, NoCol As Integer Dim NoLig As Long, Var As Variant Dim Val As Variant Application.ScreenUpdating = False Set FL1 = Worksheets("Feuil1") NoCol = 1 'lecture de la colonne 1 For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4) Var = FL1.Cells(NoLig, NoCol) Val = Left(Var, 1) If IsNumeric(Val) Then FL1.Cells(NoLig, NoCol).Delete End If Next Set FL1 = Nothing Application.ScreenUpdating = True End Sub