Extraire la valeur d'une cellule

Bonjour, Bonsoir,

J'ai un code comme celui-ci... qui met à jour des checkbox à chaque fois que l'on change la valeur d'une cellule (qui correspond à la valeur de la colonne)

Donc, supposons que ce code est dans ma "Feuille2":

Code:

---

1 2 3 4 5 6

Dim Thecell As Range   If Intersect(Target, [A1]) Then 'On change tout les checkbox en fonction de la nouvelle colonne à prendre en compte (Valeur de A1) For Each Thecell In Range(Cells(101, [A1].Value), Cells(107, [A1].Value))

---

...sauf que dans ma cellule "A1" c'est un lien vers une cellule d'une autre feuille du genre "='Feuille1'!E20" (dont la valeur affichée est de 5)

Voilà ma question, y aurait-il un moyen que vba prenne en compte la vraie valeur de la cellule (donc le résultat final de l'opération qui est de 5) et non la formule en tant que tel qui est : "='Feuille1'!E20" ?

Merci de vos réponses...

Je crois que c'est FormulalocalR1C1()

http://www.developpez.net/forums/d79...t/#post4581735

Donc tu fais

Code:

---

Range("tacellule").FormulaLocalR1C1= Range("A1").value

---

Bonjour,
J'ajoute mon grain de sel
Ce code copie la formule

Code:

---

Range("tacellule").Formula= Range("A1").formula

---

ce code copie la valeur

Code:

---

Range("tacellule").value= Range("A1").value

---

Remarque
formula demande des formule en anglais avec les cellule référencé par leur adresses (ex : A1)
formulalocal permet d'écrire la formule avec les mot clef francais et toujours les adresses (ex : A1)
formulaR1C1 demande des formule en anglais avec les cellule référencé par rapport a leur position (ex : R1C2 signifie une ligne en dessous deux colonne a draoite)

Salut,
Merci pour vos réponses, j'aimerais préciser une chose donc je rajoute cette formule juste après ma déclaration de variable ou...?

Tout ce que je voudrais c'est que le code vba "reconnaisse" la valeur qui se trouve dans la cellule A1 qui est en code présentement : ='Feuille1'!E20 (qui réfère a une autre cellule, donc qui ne peut pas lire la fonction comme ça)

Merci

Code:

---

1 2 3 4

Dim a as double a=range("a1").value msgbox a

---

le .value est facultatif