Discussion :

[janus82]

Bonjour,

je cherche à créer une macro (sans doute une boucle...) qui me permette d'appliquer une formule ds une case (en l'ocurrence K6), puis de figer le résultat puis de passer à la ligne du dessous (même colonne) pour appliquer la même formule... ainsi de suite. Sauriez vous me dire comment procéder?
Merci

[Megaxel]

Salut!
Tu n'as rien à "figer". Tu fais, en effet, une boucle sur les cellules de ta colonne, mais à chaque fois, tu n'as qu'à effectuer le calcul dans ta macro VBA, puis à mettre le résultat (et seulement le résultat) dans ta cellule.
Ainsi, si, par la suite, les cellules qui ont servi à effectuer le calcul sont modifiées, le résultat ne sera pas modifié.

[janus82]

ok merci, mais saurais tu me dire comment faire la dite boucle (je débute en VBA)

[janus82]

en fait, je voudrais simplement qu'une formule soit appliquée en une ligne i+1 tt comme elle a été appliquée en i.

[Megaxel]

Voici le début: je repère la dernière cellule remplie de la colonne 1 (ou A).
Puis je fais une boucle "For ... Next" qui compte de 1 au numéro déterminé précédemment.
Et je remplis les cellules de la colonne B (ou 2) avec le numéro de ligne.
Toi, au lieu de mettre "CompteurLignes", tu devras faire ton calcul.

Bon, maintenant, je pense que tu n'échapperas pas à la lecture des tutoriels et des cours VB(A) sur ce site.
Je te donne le début, mais je ne te ferais pas tout.

Code :

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

1
2
3
4
5
6
7
8
9
Sub ParcourirColonneA()
    Dim DerniereLigne As Integer
    Dim CompteurLignes As Integer
    DerniereLigne = Cells(65535, 1).End(xlUp).Row
 
    For CompteurLignes = 1 To DerniereLigne
        Cells(CompteurLignes, 2).Value = CompteurLignes
    Next CompteurLignes
End Sub

[Megaxel]

Bon, je viens de lire ton message précédent, et je comprend mieux ce que tu veux faire.
J'ai un conseil: enregistre une macro en faisant à la main ce que tu veux. C'est à dire, tu étires la formule de la ligne 1 sur les autres.
Puis, pour "figer" les résultats, tu fais un copier-collage spécial, et tu choisis "Valeurs", et tu colles sur la zone de départ.
Regarde le code généré automaitquement.

[janus82]

en effet, c'est bcp plus simple comme ça!
Merci

[Megaxel]

Good!
Mais garde en tête le truc pour repérer la dernière ligne d'une colonne, ça pourra te servir pour modifier un peu la macro générée automatiquement.

[janus82]

oui, en effet, j'avais déjà eu qq difficultés avec cette formule, mais ds un sens différent puisqu'il s'agissait d'intégrer une ligne en haut de tableau (donc descendre ttes celles précedemment crées...)

[Megaxel]

Et si ça marche, ajoute le tag (bouton en bas à gauche)