Comment faire un ScrollRow

Version imprimable

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:

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

04/06/2009, 22h23
Pierre Fauconnier
Bonsoir

A priori
Code:

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é?
04/06/2009, 22h27
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
05/06/2009, 16h19
Prekestolen
Super ce code
Code:

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

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)
05/06/2009, 16h44
DeaD78

Bonjour,

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

Code:

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

Et donc, tu pourras alors écrire :

Code:

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

Et voilà, c'est plus léger :zoubi:
05/06/2009, 16h57
Prekestolen

Ca le fait seulement à la première ligne pas au ligne suivante.
05/06/2009, 17h06
DeaD78

Euh, c'est pas clair.

Qu'est-ce qui est pas fait ?
05/06/2009, 17h14
Prekestolen

Je me suis peut-être mal exprimé. Il n'y a pas de données dans la colonne H.
Les données sont dans la colonne F et G et la formule est dans la colonne H.
Je veux que lorsqu'il n'y a plus de données dans les colonnes F et G la formule dans H s'arrête.

Exemple
F G H
3 4 -1 (3-4 = -1)
8 4 4
23 7 16 plus de données dans la rangéee suivante on arrete.
05/06/2009, 17h21
casefayere

Bonjour à tous,
il faut adapter, si les derniers lignes de F et G sont les memes

Code:

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

ou

Code:

dl = range("F" & rows.count).end(xlup).row
05/06/2009, 17h56
Prekestolen

1 pièce(s) jointe(s)
voici mon code (celui de pierre fauconnier)
Code:

1 2 Range("H2:H65535").FormulaR1C1 = "=DATEDIF(RC[-1],RC[-2],""y"")" Range("I2:I65535").FormulaR1C1 = "=RC[-1]<60"
et voir le fichier excel

je veux que cela arrete à la ligne 124 (mais parfois ce sera un autre numéro de ligne, parfois 1256, parfois 3678 et plus) je fais des tests avec des petites quantités de données,mais lorsque je vais arrivé avec toutes les succursales, ca va aller chercher dans les 10000 et 20000 lignes)

dans l'evenement de la feuille :

Code:

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dl As Integer
dl = Range("F" & Rows.Count).End(xlUp).Row
 Range("H2:H" & dl).FormulaR1C1 = "=DATEDIF(RC[-1],RC[-2],""y"")"
    Range("I2:I" & dl).FormulaR1C1 = "=RC[-1]<60"
End Sub

05/06/2009, 19h07
Prekestolen

Ca fonctionne merci:king: