Supprimer les cellule qui comporte 3 caractéres et commence par le chiffre 9

[Résolu/Fermé]
Signaler
-
 kenza -
Bonjour a toutes et tous,

Je suis sous Excel en VBA

je veux supprimer les départements en 9XX c'est a dire supprimer les cellules qui comportent 3 caractères et qui commencent par le chiffre 9.
je vous donne un exemple pour mieux comprendre.

Ex: A1 contient (932) =>Nombres de caractères égal à 3 et il commence par le chiffre 9 donc il faut supprimer toute la ligne

Merci de votre aide,

Cordialement,
Kenza


Configuration: Windows / Edge 17.17134

4 réponses

Messages postés
16295
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 septembre 2021
736
Bonsoir
Regarde l’opérateur Like
Merci pour votre réponse, est ce que c'est possible de me donner un code applicable à mon problème ?
Messages postés
16295
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 septembre 2021
736
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
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 692
Bonjour,

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
Merci beaucoup Patrice ça fonctionne très bien comme souhaité :D