Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Essaie - Erreur pour formule VBA

Essaie - Erreur pour formule VBA

1 réponse
Avatar
Samuel DeCarmel
Rebonjour,

est-ce que quelqu'un d'autre aurait une solution?

Merci!
=20
>-----Message d'origine-----
>Hello!
>
>J'ai une formule qui va chercher des valeurs dans un=20
>autre fichier Excel (ferm=E9 ou ouvert). Est-ce possible=20
>d'assigner le r=E9sultat =E0 une variable sans placer la=20
>valeur dans la cellule E14? Voici les lignes de code :=20
>
>Sub test()
>Dim Path As String, onglet1 As String, onglet2 As String
>Dim fichier As String, Cell_1 As Range, Cell_11 As String
>Dim Cell_2 As Range, Cell_21 As String
>
>Path =3D ActiveWorkbook.Path
>onglet1 =3D "Donn=E9es Base"
>onglet2 =3D "Tab Gestion"
>fichier =3D "test2.xls"
>Set Cell_1 =3D Range("F12")
>Set Cell_2 =3D Range("E6")
>
>Cell_11 =3D Cell_1.Address(0, 0)
>Cell_21 =3D Cell_2.Address(0, 0)
>
>[E14] =3D _
> "=3DROUND('" & Path & "\" & "[" & fichier & "]" &=20
onglet1=20
>& "'!" & _
>Cell_11 & "*('" & Path & "\" & "[" & fichier & "]" & _
>onglet2 & "'!" & Cell_21 & "*1.2),0)"
> =20
>End Sub
>
>Merci =E9norm=E9ment!
>Sam
>.
>
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Samuel,

Tu as une réponse valable (!) à ton autre fil.


Salutations!


"Samuel DeCarmel" a écrit dans le message de news:
303c01c4e054$ca6cd020$
Rebonjour,

est-ce que quelqu'un d'autre aurait une solution?

Merci!

-----Message d'origine-----
Hello!

J'ai une formule qui va chercher des valeurs dans un
autre fichier Excel (fermé ou ouvert). Est-ce possible
d'assigner le résultat à une variable sans placer la
valeur dans la cellule E14? Voici les lignes de code :

Sub test()
Dim Path As String, onglet1 As String, onglet2 As String
Dim fichier As String, Cell_1 As Range, Cell_11 As String
Dim Cell_2 As Range, Cell_21 As String

Path = ActiveWorkbook.Path
onglet1 = "Données Base"
onglet2 = "Tab Gestion"
fichier = "test2.xls"
Set Cell_1 = Range("F12")
Set Cell_2 = Range("E6")

Cell_11 = Cell_1.Address(0, 0)
Cell_21 = Cell_2.Address(0, 0)

[E14] = _
"=ROUND('" & Path & "" & "[" & fichier & "]" &
onglet1

& "'!" & _
Cell_11 & "*('" & Path & "" & "[" & fichier & "]" & _
onglet2 & "'!" & Cell_21 & "*1.2),0)"

End Sub

Merci énormément!
Sam
.