XL pour MAC Transfert de valeurs d'une feuille à l'autre

[HugoMOMO]

Bonjour tout le monde,

J'aimerais transferer mes données de ce tableau en feuille 1

Dans ce tableau en feuille 2

Avez-vous des idées ?
Merci d'avance pour votre aide !

 

[soan]

Bonjour Hugo,

oui, j'ai une idée ; et même très simple : il te suffit de mettre un papier carbone
entre tes 2 belles images .jpg, et quand tu écriras sur feuille 1, ça écrira aussi
automatiquement sur feuille 2 ! merci de passer le sujet en résolu, et n'hésite pas
à garder ton papier carbone : je suis sûr qu'il pourra te resservir !

sérieusement, tu crois pas que si tu joignais un petit fichier exemple,
ça s'rait tout d'même un peu mieux ?

soan

 

[HugoMOMO]

En effet haha, voici le fichier

 

[soan]

ça y'est ; ton papier carbone est prêt ! en plus,c'est un papier carbone évolué :
quand il a fini la copie, il tourne automatiquement la page pour que tu puisses
voir les résultats ; mode d'emploi :

* sur la feuille "Porte", tu peux voir que l'emplacement des résultats est vide :
ton papier carbone n'a pas encore « déteint », donc pas besoin de buvard !

* va sur la feuille "Relevés" ; fais Ctrl e ➯ ton papier carbone évolué
s'occupe de tout le reste, même d'encaisser le client à ta place !

soan

 

[HugoMOMO]

Trop fort bravo !

 

[HugoMOMO]

Si tu pouvais m'envoyer un fichier expliquant ligne par ligne ton code, ca me sera vraiment très utile pour pouvoir l'appliquer à d'autres endroits.
Merci d'avance

 

[soan]

ok, j'vais faire un code commenté, mais ça va un peu
tarder, car c'est un peu long à faire.

soan

 

[HugoMOMO]

Pas de soucis, c'est très gentil de ta part

 

[job75]

Bonsoir HugoMOMO, soan,

Pourquoi utiliser du VBA alors que de simples formules de liaison font l'affaire ?

Formule en A11 de la feuille "Porte" à copier sur la plage A11:N20 :

=REPT(Relevés!D29;Relevés!$D29<>"")

Les bordures sur cette plage sont créées par MFC.

A+

 

[HugoMOMO]

Très bonne idée, je ne connaissais pas cette formule.
Merci à toi pour ton aide Job75

 

[soan]

@HugoMOMO (bonsoir job75)

fichier précédent avec code VBA commenté.

soan

 

[job75]

Si l'on tient au VBA il suffit d'entrer la formule dans la plage :

Private Sub Worksheet_Activate()
With [A11:N20]
    .Formula = "=REPT(Relevés!D29,Relevés!$D29<>"""")"
    .Value = .Value 'supprime les formules
End With
End Sub

La macro est dans le code de la feuille "Porte" et se déclenche quand on active la feuille.

Pour les bordures le plus simple est d'utiliser la MFC.