Discussion :

[fmris]

Bonjour
J'ai un soucis dans une boucle while. Je lui demande d'effectuer une boucle tant que la cellule (t,1) avec t=108 est différente d'une case vierge. Or il me détecte une erreur dans cette ligne. Faut il utiliser une autre fonction de .value ???? (il est à noter que cette ligne fonction sous la forme If Range("c10").Value = "" Then). Or dans mon cas j'ai besoin de lma variable t. Pouvez vous m'aider ?
Merci

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim t
    t = 108
   
         
        
        While Range(Cells(t, 1)).Value <> ""
        
        t = t + 63
        
       
        
        
        Wend
        
         Range("CA1:CI55").Select
         Selection.Copy
        
        Range(Cells(t - 2, 3)).Select
        ActiveCell.FormulaR1C1 = "RAPPORT"
        
        Range(Cells(t - 2, 4)).Select
        ActiveCell.FormulaR1C1 = "=R19C4"
        
        
        ActiveWindow.SmallScroll Down:=75
        Range(Cells(t, 1)).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Balises ajoutées par ouskel'n'or
Bouton #

[cwain]

Si tu enlèves le range ça marche :

Code :

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

1
2
3
4
5
While Cells(t, 1).Value <> ""
 
    t = t + 63
 
Wend

Cwain

[ouskel'n'or]

Rien à ajouter à ton code, cwain, mais je crois que notre ami fmris a besoin d'une explication
Range("A1") est l'équivalent de Cells(1,1)
Cells(NoLigne,NoColonne) est l'équivalent de Range("A1") si Noligne = 1 et NoColonne = 1
Range("A1:Z12") est l'équivalent de Range(Cells(NoLigne1,NoColonne1),Cells(NoLigne2,NoColonne2))
si
....NoLigne1 = 1
....NoLigne2 = 12
....NoColonne1 = 1
....NoColonne2 = 26

En espérant ne pas allourdir

[sk8bcn]

il me semble d'ailleurs, (en tout j'ai tjrs rencontré un bug quand je l'ai pas fait), que pour un range, il faut deux adresses cells, et la meme si le range ne fait que 1 cellule.

Soit

Code :

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

range(cells(t,1),cells(t,1))

[fmris]

merci cells(1.1).value<>""