Discussion :

[TheRealMike]

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

[drakkar_agfa]

Essais avec ça :

Code :

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

.Offset(rowOffset:=0, columnOffset:=1)

Pour moi, ça marche bien comme ça!

[TheRealMike]

Voila ce que j'ai essayé:

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
16
17
Sub incapacite1()
 
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(rowOffset:=0, columnOffset:=1).Value = "incapable"
            Else
            Cell.Offset(rowOffset:=0, columnOffset:=1).Value = "BS"
            End If
...

mais cela ne marche toujours pas. Je ne vois pas ce qui pourrais clocher, j'ai une erreur d'execution 424...

[JackOuYA]

bonsoir,

et c'est censé faire quoi ? et cela fait quoi ?

[TheRealMike]

C'est de la simulation...

[JackOuYA]

C'est de la simulation...

C'est pas la question !! que doit faire ton code ? que ne fait'il pas ? tu as un message d'erreur .?

[myDearFriend!]

Bonsoir TheRealMike, drakkar_agfa, JackOuYA,

Pas tout compris non plus... Mais j'imagine qu'en corrigeant d'abord comme ça, ça devrait déjà régler le problème d'erreur 424 :

Code :

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

Set plage = Worksheets("pas par pas").Range("B3:B103")

Cordialement,