A voir également:
- Supprimer les données d'une colonne qui apparaissent dans une autre colonne
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Supprimer une page word - Guide
- Colonne word - Guide
4 réponses
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
167
20 nov. 2020 à 07:57
20 nov. 2020 à 07:57
Bonjour,
comment avez-vous sélectionner les mails erronés ?
ça n'aurait pas été l'occasion de les supprimer en allant les chercher avec un filtre ?
comment avez-vous sélectionner les mails erronés ?
ça n'aurait pas été l'occasion de les supprimer en allant les chercher avec un filtre ?
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 20 nov. 2020 à 09:07
Modifié le 20 nov. 2020 à 09:07
Bonjour,
en vba faire Alt F11 pour accéder à l'éditeur
Dans le ruban Insérer Module et mettre ce code
Ensuite mettre le curseur sur Sub For_X_to_Next_Ligne()
Faire F5 au clavier
voilà
en vba faire Alt F11 pour accéder à l'éditeur
Dans le ruban Insérer Module et mettre ce code
Option Explicit Sub For_X_to_Next_Ligne() Dim FL1 As Worksheet, NoCol As Integer Dim NoLig As Long, Var As Variant Dim obj As Object Set FL1 = Worksheets("Feuil1") 'a adapter NoCol = 1 'lecture de la colonne A Application.ScreenUpdating = False For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4) Var = FL1.Cells(NoLig, NoCol) Set obj = FL1.Columns("B").Find(FL1.Cells(NoLig, NoCol), , , xlWhole) If Not obj Is Nothing Then FL1.Cells(NoLig, NoCol) = "" FL1.Cells(NoLig, NoCol).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp End If Next Set FL1 = Nothing Application.ScreenUpdating = True End Sub
Ensuite mettre le curseur sur Sub For_X_to_Next_Ligne()
Faire F5 au clavier
voilà
Merci beaucoup.
J'ai copié le code mais je n'arrive pas à l'exécuter.. comment faire ? Merci
J'ai copié le code mais je n'arrive pas à l'exécuter.. comment faire ? Merci
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
20 nov. 2020 à 09:56
20 nov. 2020 à 09:56
Ensuite mettre le curseur sur Sub For_X_to_Next_Ligne()
Faire F5 au clavier
Faire F5 au clavier
20 nov. 2020 à 08:02