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

RESOLU Données à transférer sur une autre feuille

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 !

chris6999

XLDnaute Impliqué
Bonjour

J'essaye de transférer parun clic bouton des valeurs sur une autre feuille de mon classeur.
J'avais eu un exemple de code de John que je pensais avoir compris et que j'ai essayé d'utiliser mais voilà... quand on est pas doué on est pas doué!

Cela donne pour un renvoi de la valeur C12 vers la colonne B de ma feuille d'arrivée (première ligne vide)
Application.ScreenUpdating = False
Sheets("Récap indisponibilités").Activate
derligne = Cells(Range("b20000").End(xlUp).Row + 1, 2)
Cells(derligne, x + 2).Value = Sheets("Saisie indisponibilités").Cells(12 + x, 3)

J'ai une erreur à l'exécution.
Si quelqu'un peut me dire ce qui cloche..

Merci d'avance
Cordialement
 

Pièces jointes

Dernière édition:
Re : Données à transférer sur une autre feuille

Bonjour à tous

Ca devrait mieux fonctionner ainsi
Code:
Sub MACRO2()
Dim derligne As Long
Application.ScreenUpdating = False
derligne = Sheets("Récap indisponibilités").Range("B20000").End(xlUp).Row + 1
Sheets("Récap indisponibilités").Cells(derligne, "B").Value = CDate(Sheets("Saisie indisponibilités").Cells(12, "C"))
Application.ScreenUpdating = True
End Sub

ou en version courte
Code:
Sub MACRO2Bis()
Sheets("Récap indisponibilités").Cells(Rows.Count, "B").End(xlUp)(2).Value = _
CDate(Sheets("Saisie indisponibilités").Cells(12, "C"))
End Sub

Quant à ce qui clochait (entre autres) : Ton x correspondait à quoi ??
 
Dernière édition:
Re : Données à transférer sur une autre feuille

Bonjour JM et merci pour ton aide

Je vais tester tes 2 codes que je pense déchiffrer sans problème.
Pour info le code que j'ai essayé d'adapter était celui récupéré sur un précédent fil.
Je ne sais pas à quoi correspondait ce x.

Bonne soirée
Cordialement
 
Re : Données à transférer sur une autre feuille

Re JM

Après avoir testé le code je me suis rendue compte que ce dernier fait uniquement référence à une valeur date.
C'est vrai que c'était mon exemple de départ mais en fait j'ai d'autres données à remonter qui ne sont pas des dates.
J'ai modifié en supprimant la notion cdate sur mes autres lignes et ça marche!
Par contre est-il possible de faire remonter cette date au format mois pour que j'incrémente la colonne A par exemple?

Merci d'avance
 
Re : Données à transférer sur une autre feuille

C'est encore moi

J'ai finalement trouvé mon bonheur pour faire remonter le mois dans la colonne A
Cela donne
Sheets("Récap indisponibilités").Cells(derligne, "A").Value = Format(Sheets("Saisie indisponibilités").Cells(12, "c"), "mmmm")

Tu avais raison Staple1600! Il suffisait de chercher.
Et c'est encore meilleur quand on trouve la solution avec son propre petit cerveau

Encore merci

Re


Oui 😉
Il suffit de chercher un peu dans l'aide VBA (touche F1) ou sur le net...
 
- 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

M
Réponses
6
Affichages
1 K
mimich_88
M
L
Réponses
0
Affichages
500
Louiseleclerc
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…