Discussion :

[Prekestolen]

Bonjour a tous

J'ai une formule que je veux appliquer a toutes les cellules de la colonne.
Avec l'enregistreur de macro, ca ma sorti à partir de la dernière cellule lors de mon essai, mais s'il y en a plus au deuxième essai, la macro arrete au nombre du premier. Que puis-je faire pour résoudre mon probleme

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Range("H2").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC[-1],RC[-2],""y"")"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H65535"), Type:=xlFillDefault
    Range("H2:H65535").Select
    ActiveWindow.ScrollRow
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]<60"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I88"), Type:=xlFillDefault
    Range("I2:I88").Select

[Pierre Fauconnier]

Bonsoir

A priori

Code :

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

1
2
3
 
Range("H2:H65535").formulaR1C1="=DATEDIF(RC[-1],RC[-2],""y"")"
Range("I2:I88").formulaR1C1="=RC[-1]<60"

Mais c'est loin d'être le top de placer une formule sur autant de lignes...

Quel est le but recherché?

[Prekestolen]

ouin... tu as drolement raccourci mon code (je suis pas terrible et j'y vais comme je peux), je vais essayer
Je n'ai pas tout compris mais je vais essayer demain matin
merci pour ce code
je te tiens au courant dans cette discussion
à demain

[Prekestolen]

Super ce code

Code :

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

1
2
Range("H:H65535").FormulaR1C1 = "=DATEDIF(RC[-1],RC[-2],""y"")"
Range("I2:I88").FormulaR1C1 = "=RC[-1]<60"

Mais si je veux que ca arrete à la dernière données ??

(j'avais mis jusqu'à 65355 parce que je ne sais pas comment faire pour arrêter à ma dernière données, moi dans la vie je travaille sur crystal report, mais je fais parfois des macros pour automatiser quelques affaires, mon code est lourd, je sais, mais cela a le mérite de fonctionner, mon boss sais pas que mon code est lourd du moment que ca fonctionne)

[DeaD78]

Bonjour,

Pour avoir la dernière ligne non vide de la colonne H, il faut faire :

Code :

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

dl = Range("H65536").end(xlUp).row

Et donc, tu pourras alors écrire :

Code :

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

Range("H1:H" & dl).FormulaR1C1 = "=DATEDIF(RC[-1],RC[-2],""y"")"

Et voilà, c'est plus léger

[Prekestolen]

Ca le fait seulement à la première ligne pas au ligne suivante.