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

XL 2021 Exporter des données vers une autre feuille...

Créer une discussion

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 !

S'inscrire
C

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,
Dans le fichier joint (liste d'adhérents d'une association), un adhérent souhaite quitter l'association.
Il me faut alors copier les données de la ligne le concernant (colonnes A à M) dans le fichier départ à la suite des autres départs dans la colonne G (donc dans le cas présent en G14)
A ce jour, je le fais manuellement en me trompant une fois sur deux. J'ai donc fait une macro (macro1) qui s'active avec le bouton rouge. Évidemment, j'ai fait cette macro avec l'enregistreur donc il ne sait faire que sélectionner les cellules A à M de la ligne 18... Serait-il possible de créer une macro qui prenne en compte la ligne saisie (qui apparait en bleu) et copier ces données automatiquement dans la feuille départs dans le 1er G libre (ici G14) ?
Ci-dessous le code de la macro. Fichier en PJ.
Bien cordialement,
Sub Macro1()
'
' Macro1 Macro
'

'
Range("A18:M18").Select
Selection.Copy
Sheets("départs").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
 

Pièces jointes

Trier par date Trier par votes
Bonjour Constantin,
Un essai en PJ avec :
VB: 
Sub Macro1()
Dim L%, DL%
L = Selection.Row                                                               ' Ligne sélectionnée
With Sheets("départs")
    DL = 1 + .Cells(Rows.Count, "G").End(xlUp).Row                              ' Première ligne vide
    .Range(.Cells(DL, "G"), .Cells(DL, "S")) = Range("A" & L & ":M" & L).Value  ' Copie des valeurs
End With
End Sub

Ensuite que faire après la copie ? On supprime la ligne dans base de données ou on laisse ainsi ?
 

Pièces jointes

Vote positif 0 Vote négatif
D'abord un grand merci ! C'est tout bonnement super...
Je vais essayer d'ajouter un MsgBox (oui, non) parce que la macro va tellement vite qu'une maladresse de saisie pourrait faire des dégâts...
Dans l'immédiat je préfère ne pas enlever les adhérents en partance automatiquement.
Je vais aussi d'ajouter un Range final qui cible le fichier départs. J'ai réussi à comprendre le code, inutile de dire que je n'y serai pas arrivé.
Bon, je m'y mets et comme d'habitude, je crie si je n'y arrive pas (à mon avis, je vais galérer avec le Msgbox)
Remarque : Il n'est pas question de supprimer la ligne (ce qui supprimerait un jardin mais uniquement effacer le contenu des cellules (colonnes E à CS)
A bientôt...
 
Vote positif 0 Vote négatif
J'ai pondu ceci mais ça plante
Sub Macro1()
Dim L%, DL%
L = Selection.Row ' Ligne sélectionnée
With Sheets("départs")
DL = 1 + .Cells(Rows.Count, "G").End(xlUp).Row ' Première ligne vide
.Range(.Cells(DL, "G"), .Cells(DL, "S")) = Range("A" & L & ":M" & L).Value ' Copie des valeurs
End With
Sheets("départs").Select
Range(.Cells(DL, "G")).Select
End Sub
Au secours !
 
Vote positif 0 Vote négatif
Constantin à dit:
ajouter un MsgBox (oui, non) parce que la macro va tellement vite qu'une maladresse de saisie pourrait faire des dégâts
Cliquez pour agrandir...
Testez cette PJ avec :
VB: 
Sub Macro1()
Dim L%, DL%, Rep$
L = Selection.Row                                                               ' Ligne sélectionnée
Rep = MsgBox("Voulez vous exporter la ligne " & L & " concernant " & Cells(L, "E") & " " & Cells(L, "F") & " ?", _
        vbExclamation + vbYesNo, "Demande de confirmation.")
If Rep = vbNo Then Exit Sub
With Sheets("départs")
    DL = 1 + .Cells(Rows.Count, "G").End(xlUp).Row                              ' Première ligne vide
    .Range(.Cells(DL, "G"), .Cells(DL, "S")) = Range("A" & L & ":M" & L).Value  ' Copie des valeurs
End With
End Sub
Cela donne :

Une bonne aide pour les msgbox :

VBA - Boîte de Dialogue Oui-Non (Msgbox)

Ce tutoriel explique comment utiliser la fonction VBA MsgBox pour afficher des boîtes de message aux utilisateurs (y compris la boîte de message YesNo).
www.automateexcel.com
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
253
job75
A
  • Question Question
XL 2021 extraire des informations de plusieurs fichiers
Réponses
4
Affichages
366
job75
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
90
sylvanu
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
311
AtTheOne
F
Procédure de mise à jour et copie de plages de données
Réponses
5
Affichages
124
Cléa
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
502
xavieralvaro
X
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
348
AlineJ
A
C
  • Résolu(e)
XL 2016 rapatrier des données d'un onglet vers une feuille récapitulatrice via un menu déroulant
Réponses
4
Affichages
234
cocotte38
C
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
381
ChTi160
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
576
Vakarm31
V
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
440
sylvanu
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
246
Dand87
D
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
642
MANU64360
M
O
  • Résolu(e)
XL 2013 VBA/ Macro qui classe des données dans une colonne unique
Réponses
5
Affichages
198
onyirimba
O
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
408
flc13090
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
690
nat54
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
627
Phil69970
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
357
MATLEA
M
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
705
Piment
P
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
727
mromain
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…