Selection des cellules commençant par un chiffre

[gimli]

Bonjour,

j'ai un tableau dans lequel la colonne E contient du texte mais peut commencer par un chiffre sur certaines lignes. Comment puis-je faire pour sélectionner les lignes de mon tableau dont la colonne E commence par un chiffre ?

merci à vous, bonne journée


Gimli

 

[job75]

Re : Selection des cellules commençant par un chiffre

Bonjour gimli,

Cette macro :

Sub SelectionChiffre()
Dim cel As Range, plage As Range
For Each cel In Range("E1", Range("E65536").End(xlUp))
  If [COLOR="Red"]cel Like "#*"[/COLOR] 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

A+

 

[gimli]

Re : Selection des cellules commençant par un chiffre

Bonjour job75 😉

merci beaucoup pour ta macro 🙂

je viens de trouver celle-ci aussi :

Application.ScreenUpdating = False
With Worksheets("NomFeuille")
For i = NbLigneDeLaFeuille To 2 Step -1
If IsNumeric(Left(Trim(.Cells(i, NumeroColonneAParcourir)), 1)) Then .Rows(i & ":" & i).Delete
Next i
End With
Application.ScreenUpdating = True

je vais comparer les deux, pour l'instant je ne comprend la partie en rouge de ta macro 😕

Encore merci pour ton aide 😉

Gimli