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

Transfert de données

  • Initiateur de la discussion Initiateur de la discussion guy72
  • Date de début Date de début

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 !

guy72

XLDnaute Impliqué
Bonjour,

Dossier "Météo 20120.xls"
1)Dans la feuille « Récap », j'ai récupéré mes données venant de la console dans les colonnes de A à K à partir de la ligne 9 jusqu'à la ligne 488.

2)En ligne 5 de cette feuille, je récupère mes formules MINI et MAXI etc.....cellules de A à L

3)Je fais un "copier/coller/collage spécial/valeur" de ces cellules dans la feuille « Données » également dans la ligne 5 de C à N :
En ligne 5 pour le 1 Janvier.
En ligne 5 pour le 2 Janvier.
En ligne 7 pour le 3 Janvier.
Etc...

Y a t-il une autre solution qui puisse m'éviter de faire tous les jours un
"copier/coller/collage spécial/valeur".

Par exemple, à partir du moment ou la cellule C5 dans « Données » est
remplie, les prochaines données du 2 Janvier ce mettront automatiquement en C6, celles du 3
Janvier en C7 etc......jusqu'à la ligne 370.

Merci de votre aide.

Cordialement
Guy
 
Re : Transfert de données

Bonjour Guy,

il eût été plus facile pour te répondre de voir le début de ton travail sur un fichier joint
ça éviterais de tout construire et permettrais d'être certain que le travail corresponde exactement à ta demande
à+
.
 
Re : Transfert de données

Bonjour,
Désolé de ne pas pu avoir répondu plus tôt, mais mon dossier est trop gros.
J'ai réussi à le tronquer au maximum, mais il n'a plus d'allure.
J'espère que cela va aller quand même ?
Cordialement
Guy
 

Pièces jointes

Re : Transfert de données

Re,

Mettre un bouton sur la feuille Récap et y affecter le code suivant
Code:
Dim derligne
Application.ScreenUpdating = False
    Range("A5:L5").Select
    Selection.Copy
    Sheets("Données").Select
    derligne = Range("C65535").End(xlUp).Row + 1
    Range("C" & derligne).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = True
End Sub

ça collera les données les unes à la suite des autres
...................mais un autre problème surgit dans un autre code
 
Dernière édition:
Re : Transfert de données

Re,
Je te remercie de ton aide, ça fonctionne.
Je suis embêté car, j'ai pourtant mis un nom comme tu as fait, mais ça ne fonctionnait pas.
Bon bref, j'ai du certainement faire une erreur.
En tout cas je te remercie encore.
A+
Cordialement
Guy

Problème résolu
 
- 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

Réponses
3
Affichages
169
Réponses
1
Affichages
346
wDog66
W
Réponses
34
Affichages
879
Réponses
48
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…