Discussion :

[Yoooo]

bjr
je cherche à sélectionner les cellules qui ont pour valeur "60211000" et"70611000"

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 selectionentre()
   Dim i As Range, u As Range
   For Each i In Range("a2:a200")
      If i.Value = 70611000 And i.Value = 60211000 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

mais avec ce code ça bloque au niveau de u.entirerow.select

[pgz]

Bonjour

Avec le 'and', la condition du if est toujours fausse. Donc u n'est pas défini et donc quand tu l'emploies tu as une erreur.

Essaie en remplaçant le 'And' par 'Or'.

Bon courage,

PGZ