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

[Service Numérique]

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]

Bonjour,

Personne pour éclairer ma lanterne ? 🙄
Bon vendredi.

 

[D.D.]

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]

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]

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.]

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.]

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]

Tu adapteras avec un call,

Pardon ? 😵

 

[Service Numérique]

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]

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.]

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.]

Pardon ? 😵

A la place de MsgBox "Hello"
met
Call recopie

 

[Service Numérique]

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.]

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]

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 !