Vba Problème avec formule
Résolu
rochjl
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
rochjl Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
rochjl Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Vba Problème avec formule
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
2 réponses
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
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
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