XL 2021 copie de donnée vers diffèrent tableaux sur plusieurs feuilles en fonction d un mot

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 !

Aleks Shadows

XLDnaute Nouveau
Bonjour a tous
j ai besoin de votre aide ,je vous explique
j aimerai pouvoir via un bouton déclencher une copie des données dans certaine cellules dans un tableaux dans une feuilles precis (jusque la j arrive a le faire pour un tableau une feuille)
mais chaque feuille sont nommées et je voudrais qu'en fonction du nom dans la cellule G19 il colle les données dans le tableau de la feuille du même nom et pas dans les autres
par ex : Nom sélectionné Alexis>j appuie sur le bouton>colle dans le tableau de la feuille nommé Alexis >reset les infos
je pense qu'il faut faire quelque chose du : si G19 = Alexis alors collée dans la feuille nommée "Alexis" ;si G19 = Robin alors collée dans la feuille nommée "Robin" etc. etc. ...
mais j'ai du mal a appliquer l idée ^^' donc si une bonne âme peut m aider ca serai fort aimable de votre part 🙂
 

Pièces jointes

Solution
Dans chaque feuille de destination il faut un tableau structuré.

Dans ces tableaux il faut éviter les lignes vides, je les ai donc supprimées.

La macro du bouton :
VB:
Sub rangecopy()
Dim n&
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Tableau de bord")
On Error Resume Next
Set F2 = Sheets(CStr(F1.[G19]))
On Error GoTo 0
If F2 Is Nothing Then Exit Sub
With F2.ListObjects(1).Range 'tableau structuré
    n = IIf(Application.CountA(.Rows(2)) = 0, 2, .Rows.Count + 1)
    .Rows(n) = Array(F1.[G23].Value, F1.[R20].Value, F1.[R22].Value, F1.[G25], F1.[G27])
    .Parent.Activate 'facultatif
End With
End Sub
A+
Dans chaque feuille de destination il faut un tableau structuré.

Dans ces tableaux il faut éviter les lignes vides, je les ai donc supprimées.

La macro du bouton :
VB:
Sub rangecopy()
Dim n&
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Tableau de bord")
On Error Resume Next
Set F2 = Sheets(CStr(F1.[G19]))
On Error GoTo 0
If F2 Is Nothing Then Exit Sub
With F2.ListObjects(1).Range 'tableau structuré
    n = IIf(Application.CountA(.Rows(2)) = 0, 2, .Rows.Count + 1)
    .Rows(n) = Array(F1.[G23].Value, F1.[R20].Value, F1.[R22].Value, F1.[G25], F1.[G27])
    .Parent.Activate 'facultatif
End With
End Sub
A+
 

Pièces jointes

- 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

Retour