[VBA] Report instantané valeur de colonne
Résolu
Isomer
Messages postés
44
Statut
Membre
-
Isomer Messages postés 44 Statut Membre -
Isomer Messages postés 44 Statut Membre -
Bonjour,
J'aimerais reporter instantanément les valeurs (et seulement les valeurs) d'une colonne (de B6 à B1006) de la feuille 1 à la feuille 2 sur la colonne B (de B6 à B1006).
Je veux que ça le fasse en instantané dès que je change une valeur dans la plage de B6 à B1006 de la feuille 1.
Je voudrais aussi savoir ou mettre cette macro ? Dans le module feuille 1 ? Dans le module Feuille 2 ? Dans le workbook ?
Et ce, avec un Private sub change ?
Merci d'avance.
J'aimerais reporter instantanément les valeurs (et seulement les valeurs) d'une colonne (de B6 à B1006) de la feuille 1 à la feuille 2 sur la colonne B (de B6 à B1006).
Je veux que ça le fasse en instantané dès que je change une valeur dans la plage de B6 à B1006 de la feuille 1.
Je voudrais aussi savoir ou mettre cette macro ? Dans le module feuille 1 ? Dans le module Feuille 2 ? Dans le workbook ?
Et ce, avec un Private sub change ?
Merci d'avance.
6 réponses
-
Bonsoir,
pas besoin d'une macro, un collage des valeurs avec liaison devrait suffire -
Bonjour,
Le problème du collage avec liaison c'est que faut le faire à chaque fois ?
Sinon il ne me faut pas de formule dans la colonne ou je copie car ensuite je traite les valeurs et ils me les faut avec les valeurs seulement.
Merci -
-
Salut,
non le collage avec liaison, une fois que c'est en place, pas besoin de le refaire.
Et s'il ne te faut que les valeurs tu n'as juste qu'à cocher valeurs et coller avec liaison et ça devrait fonctionner.
En espérant que ça résolve ton problème,
Pierre -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
D'accord, merci, je vais essayé et je vous dis si cette solution me convient, mais je pense que ça devrait aller.
Merci
Isomer -
Bonjour,
Non ça ne fonctionne pas car le collage avec liaison impose une formule. Hors moi j'aimerais faire un collage avec seulement les valeurs, donc je pense que seule une macro peut résoudre mon problème.
Pourriez vous m'aider ?
Merci d'avance
Iso-
-
-
La saisie "manuelle" était importante pour ce code...
Donc à insérer dans le code de la feuille Feuil1. Pour cela : Clic droit sur l'onglet de la feuille/visualiser le code puis copier/coller : [les noms de feuilles sont bien sur à adapter]Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range Set Plage = Sheets("Feuil1").Range("B6:B1006") If Not Intersect(Target, Plage) Is Nothing Then Sheets("Feuil2").Range(Target.Address) = Target.Value End If Set Plage = Nothing End Sub -
-
