Excel - Copie de la valeur d'une cellule Résolu/Fermé

Question

Bonjour,

Voilà ma problèmatique :
2 feuilets, A et B.
En A j'ai une cellule avec une valeur.
Je souhaite exporter le resultat de la cellule du feuilet A vers une cellule du feuilet B.

Par contre je ne souhaite pas que la cellule du feuilet B importe la valeur de la cellule du feuilet A. (exemple =feuilleA!A1)

Objectif:
Si le feuilet A est remplie et que je le supprime, les valeurs A retransmisent dans B doivent rester toujours apparentes.

Merci.

Configuration: Windows XP / Internet Explorer 6.0

Patrice33740 · Answer

Sélectionner la valeur de la cellule de la feuille A, clic droit, copier
Sélectionner la feuille B, sélectionner la cellule destination, clic droit, coller

J'ai du mal à comprendre l'objectif, en effet la problématique indique qu'il n'y a qu'une cellule avec une valeur sur la feuille A

boby · Answer

Tout à fait il n'y a qu'une cellule avec une valeur sur le feuilet A.
Cette valeur doit être exportée en automatique dans une cellule définie du feuilet B.
L'intêret est de pouvoir librement supprimer le feuilet A et que la valeur de la cellule dans le feuilet B soit toujours visible.
J'embarque une contrainte, le feuilet B doit reste vierge de toutes formules, voilà pourquoi je parle d'une exportation de A à B.

En soit le copier/coller est une bonne alternative manuelle mais je souhaite trouver une alternative automatique.

Merci pour votre réponse.

Patrice33740 · Answer

Re,

Automatique, oui mais déclenché par quoi ? 

Tu peux adapter ce code (à placer dans thisworkbook) qui est déclenché par toute modification de feuille (ou de cellule) :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  
  If Sh.Name = "A" And Target.Address = "$A$1" Then
    Worksheets("B").Range("A1").Formula = Sh.Range(Target.Address).Value
  End If

End Sub

Patrice

eriiic · Answer

Bonjour tout le monde,

Une autre proposition qui conserve la valeur si celle d'origine est supprimée :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then Worksheets("Feuil2").[A1] = Target.Value
End Sub
à mettre dans la feuille "A"

eric

Raymond PENTIER · Answer

Ecrire une macro pour éviter un copier-coller, c'est prendre un tank pour écraser une mouche, ou louer une berline pour aller acheter le pain ...

boby · Answer

Re,  

J'ai simplifié le problème à l'essentiel......  

Vous allez comprendre les fondements de ma demande.  

Je dois remplir un document Excel afin d'effectuer beaucoup d'audits techniques, environs 200.  
Ce document à plusieurs feuillets, environ 15.  
Je n'ai pas le droit de changer, d'interférer, ou de modifier les feuillet ni leurs tableaux.   
Ce document est officiel.  

J'ai repéré 75 questions orales et communes à chaque audit.  
Ces 75 questions sont toutes réparties dans les 15 feuillets dans un ordre sans logique.  
Elles attendent toutes une réponses que je dois normalement annoter dans une cellule précise.  

Ma seule façon de gagner du temps durant un audit est de créé provisoirement une liste de ces 75 questions sur un même feuillet qui permet d'alimenter chaque cellules en attentes d'une réponse dans les 15 feuillets.  

Une fois que l'ensemble des réponses sont dispatchées dans l'ensemble des feuillets et une fois que l'audit est terminé, je souhaite supprimer ce feuillet.   
Alors le fichier Excel retrouvera son intégrité originale sans modification hormis les réponses de l'audit.  

Voilà l'intérêt de trouver un copier/coller automatique, qui dès l'entrée d'une valeur se copie dans la bonne cellule du bon feuillet.   
J'ai le droit que de modifier le feuillet provisoire avec la liste des 75 questions.  

Voilà voilà...

Raymond PENTIER · Answer

Non ! Mauvaise procédure ... 

"Je n'ai pas le droit de changer, d'interférer, ou de modifier les feuillet ni leurs tableaux." Mais le classeur n'est pas protégé, sinon tu ne pourrais pas le renseigner. Donc, contrairement à ce que tu écris, rien ne t'empêche d'y mettre tes formules du type =feuilleA!A1 ou plutôt ='[classeur de saisie.xls]Feuil1'!$A$1 

Ainsi tu peux utiliser ton classeur de saisie pour inscrire les réponses à tes 75 questions ; ton classeur officiel étant ouvert simultanément, il se met à jour au fur et à mesure de tes saisies. Pour terminer il te faudra sélectionner simultanément (touche shift) les 15 feuilles et la totalité de leur contenu (raccourci clavier ctrl+A), et faire Données/Connexions/Modifier les liens d'accès/Rompre la liaison. De cette façon les formules sont remplacées par les données.
Tu enregistres le classeur ainsi manipulé sous un nom du style "Audit DUPONT" ; ton classeur officiel reste intact et disponible pour un nouvel audit. Et tu fermes ton classeur de saisie sans enregistrer les modifications (ou en le sauvegardant sous un autre nom du style "Saisie DUPONT") afin de pouvoir le réutiliser. 

Ce n'est pas jouable ? 
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
&#9787; Raymond &#9794;

Raymond PENTIER · Answer

boby, nous avons tous pris l'habitude, dans ce forum, d'évoquer uniquement le langage VBA (macros).

Mais dans ton cas, j'ai l'impression que la bonne solution aurait été de travailler avec le langage XML (balises). Donc si dans ton entourage professionnel il y a quelqu'un qui le pratique, tu es sauvé !

Patrice33740 · Answer

Bonsoir,

Comme dit Raymond, tu pourrais utiliser un classeur séparé pour la saisie.
Avec une macro VBA, tu peux écrire directement dans le classeur cible sans l'ouvrir.

Consulte ce Tuto :
Lire et écrire dans les classeurs Excel fermés

Patrice

Raymond PENTIER · Answer

Tu vois, boby, il y a toujours plusieurs manières, sous Excel, de traiter un problème et d'en obtenir la solution.

* Les formules classiques offrent déjà de sacrées performances.
* Les macros deviennent nécessaires quand l'exposé du problème contient les expressions "automatiquement, tout seul, dans la même cellule, depuis un autre classeur" ...
* Les cas très particulers, comme le problème que tu nous as soumis, peuvent trouver une procédure de résolution avec des outils plus complexes, qui s'apparentent à de la programmation : ce peut être le recours à XML (#12) ou au modèle ADO (#20). Mais là, il faut attacher sa ceinture et s'accrocher ... C'est du haut niveau !

boby · Answer

Beaucoup de réponses pour une situation qui me semblait bien complexe.

Merci à l'ensemble pour vos réponses, j'ai enfin de quoi avancé !

Bonne continuation messieurs.

Excel - Copie de la valeur d'une cellule

11 réponses

Discussions similaires