selectionner les codes commencant par.....

Salut,

N'ayant pas excel sur ma machine je te fait un exemple avec un TextBox :

Dim tblLignes() As String, i As Integer
tblLignes = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(tblLignes)
If tblLignes(i) Like "9##" Then
MsgBox tblLignes(i)
End If
Next
Erase tblLignes

Il suffira de remplacer Text1.Text par la propriété/fonction renvoyant le
contenu de A1.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Raymond <anonymous@discussions.microsoft.com> a écrit :

Bonjour
Je voudrais selectionner dans cette liste commencant en a1
tous les codes commencant par 9, quelle est la formule
avec vba.
101
201
901
203
910
920
Merci pour votre réponse.
Bon après-midi

Salut Raymond,
Tu serait pas mieux sur un groupe Excel ?
Voici ce que tu demande, les cellules qui commencent par 9 sont
sélectionnées :

Sub Chercher9()
Dim FE As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Adresse As String

Set FE = ActiveSheet
With FE
Set Plage = .Range(.[A1], .[A65536].End(xlUp))
End With

For Each Cel In Plage
If Left(Cel.Value, 1) = 9 Then
Adresse = Adresse & _
Cel.Address(0, 0) & ","
End If
Next Cel

If InStr(Adresse, ",") > 0 Then
Adresse = Left(Adresse, Len(Adresse) - 1)
End If

On Error Resume Next
Range(Adresse).Select

If Err <> 0 Then
MsgBox "Aucune cellule commence par '9' !"
End If

Set Cel = Nothing
Set Plage = Nothing
Set FE = Nothing
End Sub

Hervé.


"Raymond" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 1e4d501c4552c$f2703b60$a401280a@phx.gbl...
Bonjour
Je voudrais selectionner dans cette liste commencant en a1
tous les codes commencant par 9, quelle est la formule
avec vba.
101
201
901
203
910
920
Merci pour votre réponse.
Bon après-midi

utiliser la fonction stxt (extraire les x 1ers caractères àpartir du xème caractère) sur une autre colonne et tester s'il est égal à 9