XL 2013 Copier coller sur 3 onglets

[maval]

Bonjour
je recherche un code VBA pour copier la colonne B6;B60 vers onglet 2 & 3 en B6;B60
Je joint mon fichier
Je vous remercie d'avance

 

[Eric C]

Re le fil,

Oui (je suis assez assidu). J'ai testé et retesté après l'arrêt d'Excel (of course... j'avais redémarré l'appli ....😂😂) mais que nenni..
Je recommencerai demain après l'extinction du PC.
Bonne soirée
Eric

 

[Eric C]

Oupsssss. J'avais dit avoir la version 2010 - 64Bits mais non..... c'st la 32 bits.
@+

 

[Staple1600]

Re

Voila qui prouve au moins que c'était disponible depuis Excel 2003

FillAcrossSheets Method [Excel 2003 VBA Language Reference]

docs.microsoft.com

 

[Efgé]

Bonjour à tous
Toujours même version.
Regarde la pièce jointe 1132356
MiseAjourRegistre_B ==> Ok
MiseAjourRegistre_C ==> Ok
MiseAjourRegistre_D ==> Ko

Cordialement

 

[maval]

Bonjour la version 2013

 

[Staple1600]

Bonsoir le fil

Efgé
Pourquoi Ko?
Que se passe-t-il quand tu lances la macro MiseAjourRegistre_D?

 

[Efgé]

Bonjour à tous, Salut @Staple1600

Bonsoir le fil

Efgé
Pourquoi Ko?
Que se passe-t-il quand tu lances la macro MiseAjourRegistre_D?

Résultat brut de fonderie de MiseAjourRegistre_D en Feuil2 et Feuil3

Cordialement

EDIT
La maison ne reculant devant aucun sacrifice, un test sous 2007 a été réalisé.
Résultat : IDEM pour MiseAjourRegistre_D sauf pour la première cellule copiée qui a bien la mise en forme (gris) contrairement à 365.

 

[Eric C]

Bonjour le forum
Bonjour le fil

@Staple1600 : Après essai avec un PC redémarré, les macro B & C fonctionnent comme il se doit mais rien pour la D. Aucune donnée (Résultat identique que celui présenté par notre ami Efgé).
@+ Eric c

 

[Efgé]

Bonjour à tous
@Eric C
En fait la version D fonctionne, elle ne copie que le format de la plage d'origine 😉

Cordialement

 

[Eric C]

Re le fil
@Efgé : Au temps pour moi (y a pas un ptit trou de 🐭 pour m'y cacher ???).

😎 @+ Eric c 😎

 

[Staple1600]

Re

Donc finalement, FillAcrossSheets fonctionne chez tout le monde ?
(à part chez job75 ?)

 

[sylvanu]

Bonjour tout le monde,

NB: A vérifier mais je pense que FillAcrossSheets était déjà disponible sous Excel 97

Sous XL2007 VBA 6.3, B et C ok, D KO.
Donc FillAcrossSheets marche bien sur 2007.

 

[Staple1600]

Bonsoir Sylvanu

D KO?
xlFillWithFormats ne reproduit que le format (comme son nom l'indique 😉)
C'est donc ce que fait la macro D.

 

[sylvanu]

Oups! Pour D c'est ok.
J'en suis resté à la demande initiale de Maval sur la copie des valeurs. 😂
Bon je vais me coucher, ça vaut mieux. 😔

 

[Staple1600]

Re

Alors pour ne "copier" que les valeurs, j'aurai du écrire dans ma 1ère réponse

Sub MiseAjourRegistre()
Dim arrWSN
arrWSN = Array("Inscription", "Table", "Score")
Worksheets(arrWSN).FillAcrossSheets Worksheets("Inscription").Range("B5:B60"), xlFillWithContents
End Sub