Enregistrer des données d'un onglet sur un autre onglet via un bouton
Bonjour à tous,
J'ai actuellement un fichier excel avec un fichier "Rentrée des donnés" comprenant une certaine mise en forme et j'aimerai pourvoir grace au bouton commande "enregistrer les données" les enregistrer sur l'onglet "donnés", le soucis est que ma mise en forme est différente et je n'arrive donc pas à prendre toutes les données.
Merci de votre aide !
Bonjour Guigui59, le forum,
Pourquoi joindre une photo ? Le fichier serait plus utile !
Tu pourrait en profiter pour montrer le résultat souhaité (ligne 2 et 3 de ton second tableau).
Petite remarque, les cellules fusionnées sont à proscrire tant que possible.
Cordialement,
Bonjour Xorsankukai,
Tout d'abord je te remercie de ta réponse, effectivement cela sera plus simple.
Voici le fichier sans les cellules fusionnées
Re,
Peux-tu renvoyer le fichier sans le compresser ? Chez moi l'archive est vide,
Cordialement,
Salut,
Désolé pour l'attente, je te renvoie le fichier compressé qui devrait s'ouvrir.
Merci de ton aide !
Bonsoir Guigui59,
Un essai en remaniant ta feuille DONNEES....trop compliqué autrement
Cordialement,
Bonsoir Xorsankukai,
Merci beaucoup pour ton aide j'ai pu m'inspirer de ton code pour continuer et arriver au résultat souhaité !
J'aimerais grace à un bouton Command2 dans l'onglet "Calcule des taux", pouvoir enregister la date et le taux TRS inscrit sur la feuille et à chaque changement de données, passer à la ligne suivante si possible.
Pour se faire j'ai fait un code via l'enregistrement macro qui copie les cellules C32 & C7 pour les coller en B43 & C43 mais malheureusement je n'ai pas réussi à trouver la boucle qui permettraient de ne pas écraser les cellules remplies et les inscrire dans les cellules suivantes.
Merci encore pour ton aide !
Bonjour Guigui59,
Merci pour ton retour,
Essaie ainsi:
Private Sub CommandButton2_Click()
Dim derlign As Integer
With Sheets("Calcule des taux")
derlign = .Range("B" & Rows.Count).End(xlUp).Row + 1 'définit la première ligne vide de la colonne B (après les dernières données)
.Range("B" & derlign) = .Range("C7")
.Range("C" & derlign) = .Range("C32")
End With
End SubNota : petite faute d'orthographe à calcule ---> calcul,
Cordialement,