Bonsoir,

Je rencontre un problème avec un code, que je ne sais résoudre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
plage = Worksheets("pas par pas").Range("B3:B103")
 
For Each Cell In plage
 
Select Case Cell
 
   Case "BS"
 
            temp = Rnd()
            If temp < Cells(3, 3) Then
            Cell.Offset(0, 1).Value = "incapable"
            Else
            Cell.Offset(0, 1).Value = "BS"
            End If
............
Je crois que cela vient de Cell.offset qu'excel ne veut pas.
Pourriez-vous m'éclairer?

Merci

TheRealMike