Copie de valeurs et les "figer" : est-ce possible ?

[didcac]

Bonsoir,
Je suis assez novice en Macros, même si je sais tout de même un peu comment faire.
Voici précisément ce que je souhaite réaliser :
Dans un même Classeur, et sur une même Feuille, je souhaite copier des valeurs contenues dans un tableau (figurant sur la deuxième page) dans quelques cellules isolées (présentes sur la première page).
Je voudrais que ces valeurs, si elles sont "injectées" dans un premier temps à partir du tableau, soient "toujours présentes" MÊME SI je supprime carrément ce tableau ensuite.
Est-ce possible ? Y a-t-il une commande spéciale pour cela ?
Car j'ai utilisé la simplissime méthode directe du genre =D77 dans la cellule cible pour qu'elle récupère la valeur contenue dans la cellule D77. Et bien entendu cela ne marche plus dès lors que la référence est supprimée.
Pouvez-vous m'aider, je vous prie ? Quelle formule de Macro pourrait à votre avis peut-être fonctionner ?
Merci d'avance.

 

[Efgé]

Re : Copie de valeurs et les "figer" : est-ce possible ?

Bonjour didcac,
Peut être quelque chose comme:

Sub test()
If Sheets("Feuil1").Range("A1").Value = "" Then
Sheets("Feuil1").Range("A1").Value = Sheets("Feuil2").Range("D77").Value
End If
End Sub

Cordialement

 

[didcac]

Re : Copie de valeurs et les "figer" : est-ce possible ?

Bonjour Efgé,
Et merci de ta réponse. C'est très juste !!! J'ai simplement mis partout Feuil1 car il n'y a pas de Feuil2.
Il reste juste à rectifier :
Le fait que la cellule cible ne soit pas obligatoirement "vide" pour être remplie (je dois pouvoir éventuellement "écraser" la donnée successivement en procédant à un changement de valeurs du tableau, si je le souhaite.
D'autre part, je dois faire la même opération pour environ 10 cellules disséminées sur la première page. Dois-je faire 10 Macros similaires ?? Ou puis-je regrouper les commandes sur une seule (forcément bien plus pratique) ? Et comment "l'écrire" alors ?
Merci.

 

[Efgé]

Re : Copie de valeurs et les "figer" : est-ce possible ?

Re,
Sans fichier exemple diificile de répondre.
Pour plusieurs cellules :

Sub test()
If Sheets("Feuil1").Range("A1").Value = "" Then
Sheets("Feuil1").Range("A1").Value = Sheets("Feuil1").Range("D77").Value
End If
If Sheets("Feuil1").Range("A2").Value = "" Then
Sheets("Feuil1").Range("A2").Value = Sheets("Feuil1").Range("D78").Value
End If
'Etc...
End sub

Pour choisir quelles cellules écraser, il faut connaitre la règle du choix et leurs emplacements. Nous en revenons à l'utilité d'un classeur exemple.
Cordialement

 

[didcac]

Re : Copie de valeurs et les "figer" : est-ce possible ?

OK, c'est tout bon.
En fait, j'ai enlevé :
If Sheets("Feuil1").Range("A1").Value = "" Then (car dès que c'est différent de "" donc du vide, ça ne marche plus les recalculs !)

Et je mets simplement :
Sheets("Feuil1").Range("A1").Value = Sheets("Feuil1").Range("D77").Value
Sheets("Feuil1").Range("A2").Value = Sheets("Feuil1").Range("D78").Value
Sheets("Feuil1").Range("A3").Value = Sheets("Feuil1").Range("D79").Value

Et c'est parfait. Et je peux relancer la Macro 3 ou 4 fois avec des valeurs sources modifiées et ça recalcule bien à chaque fois.
Encore merci.
Cordialement