VBA

[Vincent]

Bonjour le forum.

Est il possible de garder en mémoire plusieurs informations prise en Feuil1 par exemple pur après les recoller en Feuil2 et Feuil5 par exemple.

Exemple
Feuil1: A1=A
E6=B
H34=C

J'aimerai coller ces informations en
Feuil2: B12=A

Feuil5: F34=B
F35=C

Sans repasser à chaque fois par la Feuil1 pour faire un copier coller.

Merci pour votre aide.

Vincent

 

[Robert]

Bonjour Vincent, bonjour le forum,

Tu peux utiliser un tableau dynamique pour collecter les valeurs en une seule fois, puis les coller où tu le désires. Regarde la macro ci-dessous :

Sub Macro1()
'déclare le tableau de valeur Tval (3 valeurs de 0 à 2, à adapter)
Dim Tval(2) As String 'type à adapter (Variant si les valeurs n'ont pas de type précis)


'remplissage du tableau Tval
Tval(0) = Sheets('Feuil1').Range('A1') 'première valeur
Tval(1) = Sheets('Feuil1').Range('E6') 'seconde valeur
Tval(2) = Sheets('Feuil1').Range('H4') 'troisième valeur

Sheets('Feuil2').Range('B12') = Tval(0) 'copie de la premiere valeur
Sheets('Feuil5').Range('F34') = Tval(1) 'copie de la seconde valeur
Sheets('Feuil5').Range('F35') = Tval(2) 'copie de la troisième valeur
End Sub

Il doit y avoir plus simple mais je ne suis pas très au point avec les tableaux dynamiques...

 

[CBernardT]

Bonjour Vincent et Robert,

Une autre approche :

Pour garder des informations en mémoire, il faut dans un premier temps les déclarer et les définir dans un module standard.

Option Explicit
'Déclaration de variable
Public Nombre As Integer

Sub macro1()
'Définition de la variable
Nombre = Sheets('Feuil1').Range('A1')
End Sub

Sub macro2()
'Report de la variable
Sheets('Feuil2').Range('A1') = Nombre
End Sub

Sub macro3()
'Report de la variable
Sheets('Feuil3').Range('A1') = Nombre
End Sub

Les variables déclarées avec l'instruction Public sont accessibles à toutes les procédures, dans l'ensemble des modules de toutes les applications, à moins que Option Private Module ne soit activé. Dans ce cas, les variables ne sont publiques qu'au sein du projet qui les accueille.

Cordialement

Bernard

 

[Vincent]

Merci beaucoup à tous les deux.

Ca fonctionne parfaitement.

Vincent