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 #