Cela dépend si tu veux récupérer la valeur à un instant donné, sans qu'elle soit pas mise à jour par la suite, ou si tu veux que cette mise à jour se fasse :
- Sans mise à jour : Tu copies la cellule concernée dans la première feuille, tu sélectionnes la cellule devant en récupérer la valeur sur la seconde feuille et tu fais un collage special Valeurs.
- Avec mise à jour Même début, mais lors du collage spécial, tu cliquyes sur le bouton "Coller avec liaison"; tu obtiens alors uneformule du type :
þuil1!$B$3
Pour le code en VBA tu peux l'obtenir par enregistrement auto, en répétant les opérations :
Sub Macro1() ' Récup valeur Application.CutCopyMode = False Selection.Copy Sheets("Feuil2").Select Range("B6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End Sub
Sub Macro2() ' Mise en place formule récipérant la valeur Selection.Copy Sheets("Feuil2").Select Range("B6").Select ActiveSheet.Paste Link:=True Range("B13").Select End Sub
Comme d'habitude avec l'enregistreru de macros, le résultat peut être simplifié.
bjrs toute et tous comment récupérer une valeur dans une cell de la page 1 et la copier dans une cell de la page 2 en vba
merci d'avance
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour Michel,
Cela dépend si tu veux récupérer la valeur à un instant donné,
sans qu'elle soit pas mise à jour par la suite, ou si tu veux que cette
mise à jour se fasse :
- Sans mise à jour :
Tu copies la cellule concernée dans la première feuille, tu sélectionnes
la cellule devant en récupérer la valeur sur la seconde feuille et tu fais
un collage special Valeurs.
- Avec mise à jour
Même début, mais lors du collage spécial, tu cliquyes sur le bouton
"Coller avec liaison"; tu obtiens alors uneformule du type :
þuil1!$B$3
Pour le code en VBA tu peux l'obtenir par enregistrement auto, en répétant les opérations :
Sub Macro1() ' Récup valeur
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
End Sub
Sub Macro2() ' Mise en place formule récipérant la valeur
Selection.Copy
Sheets("Feuil2").Select
Range("B6").Select
ActiveSheet.Paste Link:=True
Range("B13").Select
End Sub
Comme d'habitude avec l'enregistreru de macros, le résultat peut être simplifié.
bjrs toute et tous
comment récupérer une valeur dans une cell de la page 1 et la copier dans
une cell de la page 2
en vba
Cela dépend si tu veux récupérer la valeur à un instant donné, sans qu'elle soit pas mise à jour par la suite, ou si tu veux que cette mise à jour se fasse :
- Sans mise à jour : Tu copies la cellule concernée dans la première feuille, tu sélectionnes la cellule devant en récupérer la valeur sur la seconde feuille et tu fais un collage special Valeurs.
- Avec mise à jour Même début, mais lors du collage spécial, tu cliquyes sur le bouton "Coller avec liaison"; tu obtiens alors uneformule du type :
þuil1!$B$3
Pour le code en VBA tu peux l'obtenir par enregistrement auto, en répétant les opérations :
Sub Macro1() ' Récup valeur Application.CutCopyMode = False Selection.Copy Sheets("Feuil2").Select Range("B6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End Sub
Sub Macro2() ' Mise en place formule récipérant la valeur Selection.Copy Sheets("Feuil2").Select Range("B6").Select ActiveSheet.Paste Link:=True Range("B13").Select End Sub
Comme d'habitude avec l'enregistreru de macros, le résultat peut être simplifié.
bjrs toute et tous comment récupérer une valeur dans une cell de la page 1 et la copier dans une cell de la page 2 en vba
