Supprimer les cellule qui comporte 3 caractéres et commence par le chiffre 9
Résolu
kenza
-
kenza -
kenza -
A voir également:
- Le numéro de colis est incorrect, il doit comporter 13 caractères et commencer par 5z, 5n, 5y, 5x, 5p, co ou ck
- Numero prive - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Waptri ck - Télécharger - Divers TV & Vidéo
- Caractères ascii - Guide
- Votre colis est arrivé sur notre agence régionale de distribution. ✓ - Forum Consommation & Internet
4 réponses
Kenza
Merci pour votre réponse, est ce que c'est possible de me donner un code applicable à mon problème ?
Non, je n'ai pas Office à la maison, et je ne pense pas retourner au brueau avant un moment.
Mais en gros tu compare le contenu d'une cellule avec Like (voir l'aide en ligne pour la syntaxe) si ça correspond tu supprimes la ligne et tu testes de nouveau la même cellule et si ça ne correspond pas, tu passes à la suivante
Mais en gros tu compare le contenu d'une cellule avec Like (voir l'aide en ligne pour la syntaxe) si ça correspond tu supprimes la ligne et tu testes de nouveau la même cellule et si ça ne correspond pas, tu passes à la suivante
Bonjour,
Avec ce code :
Avec ce code :
Option Explicit
Sub kenza()
Dim dL As Long
Dim pL As Long
Dim nL As Long
Dim tx As String
With Worksheets("Feuil1") ' adapter au nom de la feuille
dL = .Cells(.Rows.Count, "A").End(xlUp).Row ' adapter au nom de la colonne
pL = 2 ' adaptter au numéro de la première ligne
For nL = dL To pL Step -1
tx = .Cells(nL, "A").Text ' adapter au nom de la colonne
If Len(tx) = 3 And Left(tx, 1) = "9" Then
.Rows(nL).Delete
End If
Next nL
End With
End Sub