Discussion :

[Yoooo]

bonjour,
je souhaite sélectionner les valeurs qui commencent par "71"
voici mon code (il me permet de sélectionner les cellules ayant une valeur commençant par"7")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub selectionentretest()
Dim i As Range, u As Range
   For Each i In Range("a2:a200")
      If Left(i.Value, 1) = "7" Then
         If u Is Nothing Then
            Set u = i
         Else
            Set u = Union(i, u)
         End If
      End If
   Next
   u.EntireRow.Select
   selection.Copy Destination:=Sheets("feuil2").Cells(5, 1)
End Sub

si je mets "71" au lieu de "7" il blogue sur
u.entirerow.select
quelqu'un voit la solution

[Yoooo]

il faut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Left(i.Value, 2) = "79" Then