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