Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Service Numérique

XLDnaute Nouveau
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.
 

Pièces jointes

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

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 ?
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…