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
