Discussion :

[jbinder]

Bonjour,
j'essaie d'utiliser Autofill afin d'appliquer une formule automatiquement à tous les éléments d'une colonne, en utilisant Cells (qui me permet ainsi de pouvoir garder variables la ligne ainsi que la colonne).
Je suis parti du code que m'a donné le créateur de macro, et je l'ai bidouillé un peu en cherchant à droite à gauche sur le net, malheureusement il doit y avoir une erreur quelque part dans mon bout de code, car impossible de le faire fonctionner!

J'ai déj`fait un peu le tour des forums pour chercher des problèmes similaires et je n'ai rien trouvé.
Veuillez m'excusez si le problème à déjà été rencontré.

Merciii
Jérémy

Code :

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

1
2
3
4
5
6
7
8
9
10
Sheets(1).Cells(5, a).Select
        ActiveCell.FormulaR1C1 = "=R[-1]C-0.953*(R[-3]C[-4]-R[-2]C[-4])"
        Selection.AutoFill Destination:=Range(Sheets(1).Cells(5, a), Sheets(1).Cells(119, a)), Type:=xlFillDefault
        Sheets(1).Range(Cells(5, a), Cells(119, a)).Select
'
'
        Sheets(1).Cells(4, a + 1).Select
        Plage = Range(Cells(4, a+1), Cells(120, a+1)).Address
        Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault
        Sheets(1).Plage.Select

[jbinder]

Ok, je retire ce que j'ai dit, j'avais très mal cherché!! (et surtout pas fait attention à l'option recherche du forum )
J'ai trouvé un cas similaire qui me permettrait de résoudre mon pb:

Code :

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

1
2
For i = 1 To 64
    Cells(1, i).AutoFill Destination:=Range(Cells(1, i), Cells(5, i))

Hop une ptite boucle vient remplacer le "selection".

Mais j'ai tout de même une question, pourquoi je ne peux pas utiliser justement ce "selection"???

[Aposto]

Bonjour,


Il est conseillé de l'utiliser au minimum, même si l'enregistreur de macro ne fait que ça. Le code est beaucoup plus rapide.

[jbinder]

Finalement, même avec la boucle je n'y arrive toujours pas..
Quelqu'un qui aurait déjà rencontré un problème similaire??

[Aposto]

Est-ce que tu pourrait poster le code complet de ta macro?

c'est difficile de voir exactement ce que tu cherche

[jbinder]

Ma Macro est vraiment grande, je ne pense pas qu'il soit utile de poster toutes mes méthodes.
(Si vraiment vous ne voyez pas ce que je cherche, je le ferai)

Ce que je veux, c'est pouvoir utiliser Range avec des Cells, comme ceci: Range(Cells(...,...),Cells(...,...))
au lieu de l'habituel Range("Xi:Xi") qui me fixe d'emblée la colonne sur laquelle s'effectuera l'autofill.

Le petit bout de code que j'ai posté se trouve dans une boucle for qui fait varier la colonne (paramètre a qui change) sur laquelle s'applique l'AutoFill.

Tu pourrais m'expliquer cette ligne de code stp?
(Sachant que moi je ne cherche pas à sélectionner une colonne entière, mais seulement une partie de celle-ci, dans mon cas par ex X4:X119)

Code :

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

1
2
3
4
5
6
7
8
Sub Demo1()
    With Worksheets("BaseOPE").Cells(1).CurrentRegion.Columns(1)
        With .Offset(1, 1).Resize(.Rows.Count - 1)
             .FormulaR1C1 = "formule convertie ici"
                 .Formula = .Value
        End With
    End With
End Sub

Merci

[Marc-L]

C'est la première colonne des saisies contigües depuis la première cellule (A1).

Évidemment une adresse fixe peut être indiquée; cette technique plus rapide remplace la boucle et l'AutoFill …

[Marc-L]

Bonjour,

pas besoin de boucle ! Effectuer manuellement la formule de calculs dans la première cellule.
La recopier ensuite une cellule vers le bas pour vérifier son bon fonctionnement.
En cas de souci, corriger la première et recommencer.

Une fois la formule correcte, voir l'exemple de cette discussion, notamment le post #9.
Sinon il y a aussi le même sujet dans une discussion plus récente …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo