Renvoi de données vers une autre feuille
Résolu
farreneit
Messages postés
318
Statut
Membre
-
farreneit Messages postés 318 Statut Membre -
farreneit Messages postés 318 Statut Membre -
Bonjour,
Je fais appel à votre aide pour une macro que j'ai créé qui me semble pourtant simple mais que je n'arrive pas à faire fonctionner ...
Voilà le code :
Voilà les captures d'écran :
Je pense que le code explique de lui même ce que je cherche à faire, mais n'hesitez pas à me demander des précisions si besoin.
Merci d'avance et bonne journée à vous !
Je fais appel à votre aide pour une macro que j'ai créé qui me semble pourtant simple mais que je n'arrive pas à faire fonctionner ...
Voilà le code :
Sub creation()
'
' creation Macro
'
'
Dim Cible As Range
Dim R1 As String, R2 As String, D1 As String, D2 As String, T1 As String, T2 As String, TT As String
Set Cible = Sheets("Reference crees").[B1]
Set Cible = Cible.End(xlDown)
Set Cible = Cible.End(xlDown)
Set Cible = Cible.Offset(1)
R1 = Sheets("Configurateur").[D7]
R2 = Sheets("Configurateur").[E7]
T1 = Sheets("Configurateur").[D15]
T2 = Sheets("Configurateur").[E15]
P1 = Sheets("Configurateur").[E22]
P2 = Sheets("Configurateur").[E24]
TT = Sheets("Configurateur").[G23]
Cible = R1
Set Cible = Cible.Offset(, 1)
Cible = D1
Set Cible = Cible.Offset(, 1)
Cible = P1
Set Cible = Cible.Offset(1, -2)
Cible = R2
Set Cible = Cible.Offset(, 1)
Cible = D2
Set Cible = Cible.Offset(, 1)
Cible = P2
Set Cible = Cible.Offset(, 1)
Cible = TT
End Sub
Voilà les captures d'écran :
Je pense que le code explique de lui même ce que je cherche à faire, mais n'hesitez pas à me demander des précisions si besoin.
Merci d'avance et bonne journée à vous !
A voir également:
- Renvoi de données vers une autre feuille
- Fuite données maif - Guide
- Bruler feuille de laurier - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Supprimer les données de navigation - Guide
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour,
"je n'arrive pas à faire fonctionner": que se passe-t-'il?
difficile de deviner tes intentions à partir d'un code, surtout si il ne fonctionne pas.
simplifie ton code, pour n'en garder que le minimum, ce sera plus facile à expliquer.
"je n'arrive pas à faire fonctionner": que se passe-t-'il?
difficile de deviner tes intentions à partir d'un code, surtout si il ne fonctionne pas.
simplifie ton code, pour n'en garder que le minimum, ce sera plus facile à expliquer.
Il ne se passe ... rien
Voilà le message d'erreur et la ligne qui semble poser problème.
Pour le code c'est vraiment le minimum selon moi.
L'idée est de transposer des données de la première feuille vers la deuxième (et qu'en appuyant plusieurs fois cela se mette à la suite).
Merci !
dim fl as worksheet set fl=Sheets("Reference crees") Set Cible = fl.[B1]J’e vais essayer de remplacer la ligne problématique par ce matin que tu m’as envoyé et te tiens informé.
Merci beaucoup !