supprimer les cellule qui comporte 3 caractéres et commence par le chiffre 9 Résolu/Fermé

Question

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

Utilisateur anonyme · Answer

Bonsoir 
Regarde l’opérateur Like

Utilisateur anonyme · Answer

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

Patrice33740 · Answer

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

kenza · Answer

Merci beaucoup Patrice ça fonctionne très bien comme souhaité :D

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

4 réponses

Discussions similaires