macro fonctions et variables

[bonsouarmessieux]

Bonjours à tous et bonne année!
Je souhaite faire une macro qui me calcule la racine carrée dans la colonne B de tous les éléments de la colonne A.
Le code que j'ai écrit est le suivant:

Sub RacineCarré()
    For i = 1 To 1000
        If Cells(i, 1) <> "" Then
            Cells(i, 2).FormulaLocal = "=racine(cells(i,1))"
        End If
    Next
End Sub

Le problème vient du fait que cells(i,1) est une variable.
Quelqu'un pourrait me donner un coup de main 🙂 ?
Cordialement

 

[MJ13]

Re : macro fonctions et variables

Bonjour,

Dans ton cas, j'essaierai dans un premier temps avec l'enregistreur de macros.

 

[skoobi]

Re : macro fonctions et variables

Bonjour,

voici la bonne synthaxe à utiliser:

            Cells(i, 2).FormulaLocal = "=racine(" & Cells(i, 1).Address(0, 0) & ")"

Edit: bonjour MJ13 🙂

 

[MJ13]

Re : macro fonctions et variables

Re bonjour à Skoobi, au forum.

Voici ce que cela donne en enregistrant le code (j'avais mis la bonne formule dans une cellule avec racine puis j'ai tapé F2 + entrée en enregistrant la macro1).

 

[bonsouarmessieux]

Re : macro fonctions et variables

Merci skoobi et MJ13!
Vos méthode marche très bien. J'ai un petit faible pour la concaténation de Skoobi qui a le mérite d'être plus génrale et permet donc de faire plus de chose mais je dois dire que la méthode de MJ13 (RC[-1 ]) a l'avantge d'être simple et donc élégante.
Encore merci et peut être à une prochaine fois.
Cordialement
🙂