Selection des cellules commençant par une lettre

[CG2000]

Bonjour le Forum,

Dans une feuille la colonne E contient du texte mais peut commencer par un chiffre sur certaines lignes. Un code de Job75 permet d'obtenir un excellent résultat mais avec des chiffres :

Sub SelectionChiffre()
Dim cel As Range, plage As Range
For Each cel In Range("E1", Range("E65536").End(xlUp))
  If cel Like "#*" Then Set plage = Union(cel, IIf(plage Is Nothing, cel, plage))
Next
If Not plage Is Nothing Then plage.EntireRow.Select 'Intersect(plage.EntireRow, [Tableau]).Select
End Sub

Comment puis-je faire pour sélectionner les lignes de mon tableau dont la colonne E qui commencerait par une lettre et non plus par un chiffre ?

Dois-je intervenir à ce niveau ?

If cel Like "#*"

Merci par avance de vôtre aide.
CG2000

 

[BOISGONTIER]

Re : Selection des cellules commençant par une lettre

Bonjour,

Sub SelectionChiffre()
Dim cel As Range, plage As Range
For Each cel In Range("E1", Range("E65536").End(xlUp))
  If cel Like "[A-Z]*" Or cel Like "[a-z]*" Then Set plage = Union(cel, IIf(plage Is Nothing, cel, plage))
Next
If Not plage Is Nothing Then plage.EntireRow.Select 'Intersect(plage.EntireRow, [Tableau]).Select
End Sub

JB

 

[CG2000]

Re : Selection des cellules commençant par une lettre

Bonjour Jacques, Bonjour le fil, Bonjour le Forum,

Merci Jacques, pour ton intervention et ta solution.
Ton code fonctionne parfaitement.😛

Bonne journée.

CG2000