[Réglé] Copier une feuille vers une autre avec incrémentation ? Macro ? VBA ?

Service Numérique · 5 Septembre 2017

Bonjour,

Après avoir parcouru Google de fond en comble, et ne trouvant pas de solution exacte à mon problème, je m'en remets à votre science.

Je possède un tableau récapitulatif ("Récap détaillé") avec des cellules qui vont chercher des données dans une feuille nommée "INTRANET".
Le problème est que la feuille "INTRANET" s'actualise toutes les 5 min (en fonction du statut des commandes).

Je souhaiterai, SI POSSIBLE, via un bouton, COPIER la feuille "INTRANET" vers "COMMANDES" afin que mes cellules fassent références à des données "fixes".

Je souhaiterai donc que les données de "INTRANET" S'INCRÉMENTENT dans "COMMANDES" (en évitant bien évidemment les doublons).

Plus d'infos dans le fichier en P.J.

Merci pour votre aide qui m'a permis de bien avancer ce tableau qui représente un grand gain de temps pour moi.

Service Numérique · 8 Septembre 2017

Bonjour,

Personne pour éclairer ma lanterne ?
Bon vendredi.

D.D. · 8 Septembre 2017

Hello,

Si je comprends bien, je dois prendre la ligne 3 de l'onglet "Récap détaillé" et le copier dans une autre feuille ?
Ou bien "fixer" les valeurs de la ligne 3 de "récap détaillé" ?
Merci.

DD

Service Numérique · 8 Septembre 2017

D.D. à dit:
Hello,

Si je comprends bien, je dois prendre la ligne 3 de l'onglet "Récap détaillé" et le copier dans une autre feuille ?
Ou bien "fixer" les valeurs de la ligne 3 de "récap détaillé" ?
Merci.

DD

Bonjour,

Non, mon problème est de copier la feuille "Intranet" vers "Commandes" en y incrémentant les nouvelles données car "Intranet" se met à jour toutes les 5 min (c'est la seule solution que j'ai trouvé étant donné que mon tableau "Récap détaillé" fait références à des données de "Intranet" qui, si elle disparaissent du tableau se transfermeront en "#VALEUR" (dans "Récap détaillé").

Suis-je assez clair ?

Merci pour votre aide. <3

Service Numérique · 8 Septembre 2017

Et tant qu'à faire, que le macro s'exécute toute seule toutes les 5 min, afin de toujours avoir l'onglet "Commandes" à jour.

D.D. · 8 Septembre 2017

Service Numérique à dit:
Bonjour,

Non, mon problème est de copier la feuille "Intranet" vers "Commandes" en y incrémentant les nouvelles données car "Intranet" se met à jour toutes les 5 min (c'est la seule solution que j'ai trouvé étant donné que mon tableau "Récap détaillé" fait références à des données de "Intranet" qui, si elle disparaissent du tableau se transfermeront en "#VALEUR" (dans "Récap détaillé").

Suis-je assez clair ?

Merci pour votre aide. <3

Dans un module:
Sub recopie()
Sheets("Intranet").Select
Der = Range("Commandes!A1").End(xlDown).Row
If Der > 300000 Then Der = 2
Der2 = Range("Intranet!A1").End(xlDown).Row
Range("Commandes!A" & Der & ":H" & Der + Der2 - 2) = Range("Intranet!A2:H" & Der2).Value
End Sub

T'irais ?

D.D. · 8 Septembre 2017

Et pour le Timer:
Tu adapteras avec un call, mais là tu as un timer qui boucle ttes les 3secondes

Private Sub Workbook_Open()
Yo:
S = Timer + 3
While Timer < S: DoEvents: Wend
MsgBox "Hello"
GoTo yo

End Sub

Service Numérique · 8 Septembre 2017

D.D. à dit:
Tu adapteras avec un call,

Pardon ?

Service Numérique · 8 Septembre 2017

D.D. à dit:
Dans un module:
Sub recopie()
Sheets("Intranet").Select
Der = Range("Commandes!A1").End(xlDown).Row
If Der > 300000 Then Der = 2
Der2 = Range("Intranet!A1").End(xlDown).Row
Range("Commandes!A" & Der & ":H" & Der + Der2 - 2) = Range("Intranet!A2:H" & Der2).Value
End Sub

T'irais ?

"FARPAIT" !

Merciiiiiiiiiiiiiiiiiii !!!

Service Numérique · 8 Septembre 2017

En fait non.
Quand le tableau s'actualise et qu'une référence à disparu, si je lance la macro, il me recopie toute ma feuille "Intranet" vers "Commandes"... mais efface ce qu'il y avait avait. Il n'incrémente donc pas.
Why ? :-/

Thank you.

D.D. · 8 Septembre 2017

Service Numérique à dit:
En fait non.
Quand le tableau s'actualise et qu'une référence à disparu, si je lance la macro, il me recopie toute ma feuille "Intranet" vers "Commandes"... mais efface ce qu'il y avait avait. Il n'incrémente donc pas.
Why ? :-/

Thank you.

Ah ?
T'as bien mis " Der + Der2 - 2 " ?
Envoie ton fichier sinon.

D.D. · 8 Septembre 2017

Service Numérique à dit:
Pardon ?

A la place de MsgBox "Hello"
met
Call recopie

Service Numérique · 8 Septembre 2017

Et voilà !
En attendant que tout soit terminé, j'ai laissé les références des cellules vers "Intranet" et non vers "Commandes" comme ça sera le cas à la fin car la feuille "Commandes" ne conserve pas la mise en forme (notamment le format "TEXTE" de la cellule C "N° Client".

D.D. · 8 Septembre 2017

Hello,
Voila, j'ai un peu modifié les ref aux dernières cellules et j'avais oublié de te dire qu'il fallait mettre la bande de titre de colonnes dans la feuille commande.
De même, la sub de timer était à mettre dans "ThisWorkbook".

Service Numérique · 8 Septembre 2017

Merci, c'est preque parfait !
Nous y sommes à 99%.
Le seul hic, c'est que la macro m'incrémente TOUTES les données et donc créée des doublons.

En tout cas merci, vous avez fait un super boulot et qui me sauve la vie !

[Réglé] Copier une feuille vers une autre avec incrémentation ? Macro ? VBA ?

Service Numérique

XLDnaute Nouveau

Pièces jointes

Service Numérique

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

Service Numérique

XLDnaute Nouveau

Service Numérique

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

D.D.

XLDnaute Impliqué

Service Numérique

XLDnaute Nouveau

Service Numérique

XLDnaute Nouveau

Service Numérique

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

D.D.

XLDnaute Impliqué

Service Numérique

XLDnaute Nouveau

Pièces jointes

D.D.

XLDnaute Impliqué

Pièces jointes

Service Numérique

XLDnaute Nouveau

Discussions similaires