Vba Problème avec formule
Résolu/Fermé
rochjl
Messages postés
4
Date d'inscription
mardi 14 décembre 2010
Statut
Membre
Dernière intervention
21 décembre 2010
-
14 déc. 2010 à 17:19
rochjl Messages postés 4 Date d'inscription mardi 14 décembre 2010 Statut Membre Dernière intervention 21 décembre 2010 - 16 déc. 2010 à 20:53
rochjl Messages postés 4 Date d'inscription mardi 14 décembre 2010 Statut Membre Dernière intervention 21 décembre 2010 - 16 déc. 2010 à 20:53
A voir également:
- Vba Problème avec formule
- Formule excel - Guide
- Formule si et - Guide
- Formule moyenne excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Mise en forme conditionnelle formule si - Guide
2 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
15 déc. 2010 à 09:18
15 déc. 2010 à 09:18
le problème vient que tu utilises les références relatives
"Formula R1C1" ce qui implique que les formules doivent être référencées par rapport à la cellule active. ( c'est lourd)
L'enregistreur l'utilise ... donc il faut faire attention
Utilise plutôt Formula
fais ce test sur la feuil2 en mettant une valeur en b10 sur la feuil1
"Formula R1C1" ce qui implique que les formules doivent être référencées par rapport à la cellule active. ( c'est lourd)
L'enregistreur l'utilise ... donc il faut faire attention
Utilise plutôt Formula
fais ce test sur la feuil2 en mettant une valeur en b10 sur la feuil1
Sub test2()
Range("B3").Select
valeur = 3
ActiveCell.Formula = "=Feuil1!b10 *" & valeur
End Sub
rochjl
Messages postés
4
Date d'inscription
mardi 14 décembre 2010
Statut
Membre
Dernière intervention
21 décembre 2010
15 déc. 2010 à 20:14
15 déc. 2010 à 20:14
Bonsoir Bidouilleu_R,
et merci pour cette réponse rapide.
je testerai dès que possible et vous tiendrai au courant.
Merci encore et bonne soirée.
J-Louis
et merci pour cette réponse rapide.
je testerai dès que possible et vous tiendrai au courant.
Merci encore et bonne soirée.
J-Louis
rochjl
Messages postés
4
Date d'inscription
mardi 14 décembre 2010
Statut
Membre
Dernière intervention
21 décembre 2010
16 déc. 2010 à 20:53
16 déc. 2010 à 20:53
Bonsoir Bidouilleu_R.
Ce que vous m'avez proposé fonctionne très bien mais ce n'était pas ce que j'attendais.
Je me suis mal exprimé, mais j'ai fini par trouver mon bonheur et ça marche nickel.
voici le code:
Sub procLiaison()
Dim strLink As String
Dim i As Integer
Dim varLinks As Variant
' Charge la liste des liaisons dans varLinks
varLinks = ThisWorkbook.LinkSources
' Nouveau chemin
strLink = "C:\Users\MOMO\Desktop\Horaire2010.xlsm\Horaire2010.xlsm"
If Not IsEmpty(varLinks) Then
' Boucle sur la liste des liaisons
For i = 1 To UBound(varLinks)
' Met le lien à jour.
ThisWorkbook.ChangeLink varLinks(i), strLink
Next i
End If
End Sub
Trouvé dans: Hardwear.fr
Merci tout de même pour votre aide, on n'en sait jamais trop.
Bon W-End,
J-Louis
Ce que vous m'avez proposé fonctionne très bien mais ce n'était pas ce que j'attendais.
Je me suis mal exprimé, mais j'ai fini par trouver mon bonheur et ça marche nickel.
voici le code:
Sub procLiaison()
Dim strLink As String
Dim i As Integer
Dim varLinks As Variant
' Charge la liste des liaisons dans varLinks
varLinks = ThisWorkbook.LinkSources
' Nouveau chemin
strLink = "C:\Users\MOMO\Desktop\Horaire2010.xlsm\Horaire2010.xlsm"
If Not IsEmpty(varLinks) Then
' Boucle sur la liste des liaisons
For i = 1 To UBound(varLinks)
' Met le lien à jour.
ThisWorkbook.ChangeLink varLinks(i), strLink
Next i
End If
End Sub
Trouvé dans: Hardwear.fr
Merci tout de même pour votre aide, on n'en sait jamais trop.
Bon W-End,
J-Louis
