au secours !! pb d'actualisation

[Laure]

Salut tlm !

g un gros pb ! qqun peut m'aider ? c assez compliqué ?


Soit une feuille où on a des données, qui sont copiées/collées dans d'autres feuilles,
mais par VBA, et pas par ExceL.

Pour simplifier au maximum, on imagine qu'en cliquant sur un bouton,il se passe ceci :


sheets("feuille2").range(A1").value = sheets("feuille de référrence").range("A1").value
Le problème, c'est que la cellule A1 dans la feuille de référrence n'est pas "fixe".
Elle peut en effet bouger dans la feuille si une ligne est rajoutée.
La seule facon de la repérer est à partir de 3 trois autres paramètres qui sont toujours sur la même ligne

Si on met à jour la valeur de range("A1") dans la feuille de référrence, range("A1") de la feuille 2 n'est pas mise à jour.

Comment faire pour quelle soit mise à jour, sachant que les données de la feuille de référrence sont reprises dans plusieurs autres feuilles ?


Merci !

 

[JPM]

Bonjour le forum et Laure

Essaye avec
sheets("feuille2").range(A1").formulalocal = "=Feuille de reference!A1"

Je n'ai pas essayer peut-etre ça marche

A+ JPM

 

[Tom_Tom]

Bonsoir Laure,

C'est normal que la valeur de ("A1") de la feuille 2 n'est pas mise à jour, car ton code copie la valeur de ("A1") de la feuille de référence.

Pour ton problème, voici le code qui permet de relier la feuille2 à la feuille de référence.


Private Sub CommandButton1_Click()

Dim Ligne, Ligne_Max
Ligne_Max = Range("A65536").End(xlUp).Row

For Ligne = 1 To Ligne_Max
Sheets("Feuil2").Range("A" & Ligne).Formula = "=Feuil1!A" & Ligne
Next Ligne

End Sub


@+