cell.offset

Version imprimable

cell.offset

Bonsoir,

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

Code:

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

06/10/2008, 21h01
drakkar_agfa

Essais avec ça :

Code:

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

Pour moi, ça marche bien comme ça!

Voila ce que j'ai essayé:

Code:

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...

06/10/2008, 21h42
JackOuYA

bonsoir,

et c'est censé faire quoi ? et cela fait quoi ?
06/10/2008, 21h48
TheRealMike

C'est de la simulation...
06/10/2008, 21h58
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:

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

Cordialement,
06/10/2008, 22h05
JackOuYA

Citation:

Envoyé par TheRealMike

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 .?
06/10/2008, 22h12
TheRealMike

Eh... ben je crois l'avoir dit... enfin merci, c'est résolu avec le set!

Euff j'ai changé un peu le code et j'ai encore un problème. Si vous pouviez m'aider encore un peu, s'il vous plait....

voisi le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Set plage = Worksheets("pas par pas").Range("B3:B103") For Each cell In plage Select Case cell Case "BS" temp = Rnd() taux = Application.WorksheetFunction.VLookup(Worksheets("pas par pas").Range(cell), Worksheets("Loi d'entrée en incap").Range("A:D"), 4, False) If temp < taux Then cell.Offset(rowOffset:=0, columnOffset:=2).Value = "incapable" Else cell.Offset(rowOffset:=0, columnOffset:=2).Value = "BS" End If ...
le problème vient de "Worksheets("pas par pas").Range(cell)". En fait, je n'arrive pas à récupérer l'adresse de "cell". J'ai essayé cell.address, cell.row, etc, mais cela ne marche pas. Auriez-vous une idée?

Merci

theRealMike

07/10/2008, 00h16
myDearFriend!

Re,

Sans aller dans le détail, et puisque nous n'avons pas la totalité du code de ta procédure... la première chose que tu devrais mettre en place dans ton projet, c'est la déclaration de tes variables.

Visiblement, tu n'as pas l'air de bien en maitriser le type, et ceci explique sans doute cela...

Je t'ai proposé le "Set" tout à l'heure, car ta variable "Plage" semblait être un objet Range. Si "Plage" est un objet "Range" alors "Cell" (issu de la boucle For Each) est donc lui même un objet "Range" également.

Déjà, pour éviter tout ambiguité, quand tu veux faire référence à la valeur de la cellule, tu devrais écrire ensuite :

Code:

Select Case cell.Value

Ensuite, en continuant dans ton code, on voit déjà que ça coincera là :

Code:

taux = Application.WorksheetFunction.VLookup(Worksheets("pas par pas").Range(cell)...

"Cell" étant lui-même un objet Range, l'expression "Range(cell)" ne parait guère plausible...

Avant d'aller plus loin, je te conseillerais donc de faire une petite révision des types de variable et de leur déclaration. Et parmi les documents sur le sujet, notre ami SilkyRoad en a réalisé un très bien fait ICI. Lire notamment le paragraphe sur "Option Explicit", toujours très utile...

Cordialement,
07/10/2008, 10h01
TheRealMike

Bonjour,

Il est vrai que je ne maitrise pas du tout ce genre de chose. J'ai lu la page citée ci dessus, mais je ne sais pas comment corriger mon code...quelqu'un pourrait-il m'aider?