Bonjour, en reprenant le code vers les 8 minutes 34 de la vidéo, il faut revenir à la ligne après le .Copy et à la suite de la destination mettre .PasteSpecial xlPasteValues. Cela devrait permettre de copier coller les valeurs si ça ne marchait pas jusqu'à présent. :)

Bonjour, pour ce faire, il faut définir la variable de l'onglet en fonction du nouveau classeur (qu'il faudra ouvrir avant bien entendu - par code). En gros, si on utilisait ws_onglet2 pour coller les infos, alors on a en début de code Set ws_onglet2 = Worksheets(2). Pour changer ça pour un autre classeur, on va créer la variable du nouveau classeur et l'associer à la variable de l'onglet. Set wk_fichier2 = Application.Workbook.Open("chemin du classeur ici") Set ws_onglet2 = wk_fichier2.Worksheets(1) En espérant que ça aide un peu :)

@ Bonjour Merci beaucoup pour la réactivité étonnante ! J'ai ce code de base (le tien) mais j'ai beau essayer je ne sais pas où caser tes propositions de modifications. L'idée est de coller dans le 1er onglet d'un classeur dont le chemin serait disons : "C:\Users\Documents\Effectifs.xlsm". Sub copier_coller() Dim ws_1 As Worksheet Dim ws_2 As Worksheet Dim ws_3 As Worksheet Dim der_ligne As Long Dim destination As Long Dim ligne_coller As Long 'Définir mes feuilles Set ws_1 = Worksheets(1) '(position la plus à gauche) Set ws_2 = Worksheets(2) Set ws_3 = Worksheets(3) 'Identifier la dernière ligne tableau 1 der_ligne = ws_1.Cells(Rows.Count, 1).End(xlUp).Row 'Boucle sur les données For i = 2 To der_ligne 'identifier la destination destination = ws_1.Cells(i, 3) If destination = 2 Then ligne_coller = ws_2.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Copier la valeur et la coller dans une autre feuille ws_1.Range(ws_1.Cells(i, 1), ws_1.Cells(i, 2)).Copy ws_2.Cells(ligne_coller, 1) ElseIf destination = 3 Then ligne_coller = ws_3.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws_1.Range(ws_1.Cells(i, 1), ws_1.Cells(i, 2)).Copy ws_3.Cells(ligne_coller, 1) End If Next End Sub

@@piero94500 Bonjour, il faut rajouter le code au niveau de la définition des feuilles. ;)

Bonjour, cela dépend un peu du lien entre la listbox et la ligne à copier coller. Le plus dur c'est de mettre en place une technique pour identifier la bonne ligne en fonction du choix sur la listbox, mais si ça c'est fait, alors copier coller une ligne entière c'est : ws.Cells(i,1).EntireRow.Copy ws2.cells(der_ligne,1) Avec ws et ws2 les feuilles, i la ligne à copier et der_ligne la ligne sur laquelle coller l'information.

Bonjour, a priori je ne vois pas d'erreur. Y a-t-il un conflit avec plusieurs fichiers Excel ouvert en même temps ? Mon instinct me dit que lors du test, il n'y avait peut être pas plus de 2 lignes dans la feuille 1. Donc à voir si ce n'est pas là le souci.

Bonjour, quand j'utilise des données de personnel, je préfère généralement avoir un menu déroulant par lequel je peux choisir l'employé, puis un bouton de commande pour déclencher les actions que je veux. Cela permet de garder la même structure dans le futur et d'y ajouter d'autres fonctions par la suite sans avoir à toujours refaire la recherche de la ligne du salarié.

@ . Re bonjour! Possiblement que j'ai mal exprimé mon besoin. En fait, lorsque l'employé est de retour après son absence COVID, je souhaite que li ligne dans l'onglet d'absence soit supprimé, mais qu'elle soit collé dans un onglet d'archive afin que je puisse utiliser la donnée pour des statistiques futures. Ayant présenté de 500 employés, le menu deroulant me plaît un peu moins. À moins que vous songiez à un contrôle V qui permet de sélectionner rapidement par automatisation- bouton- de couper la ligne d'un onglet et de la coller dans une ligne de l'onglet archive. Le but de l'enlever de l'onglet de suivi des absence permet de mettre à jour la comptabilisation des absenced COVID, et ce, de façon hebdomadaire. Merci et désolée encore de ne pas être claire lorsque j'exprime mon besoin.

Bonjour, Je viens de faire une vidéo rapide sur le sujet. Le fichier est aussi téléchargeable gratuitement sur mon site internet. Voici le lien de la vidéo : kzfaq.info/get/bejne/e8qdnZmVsMCdmmg.html

@ Bon matin Kévin ! Wow merci beaucoup pour ce vidéo. En effet, il est clair et me permettra de traduire pas à pas ta proposition. Il me restera a essayer d'ajouter une commande effacer de l'onglet de départ après avoir collerles informations dans l'onglet archive afin que mes formule liées à l'onglet d'absence se mettre à jour. Je tente quelque chose et je te reviens si j'ai un bloquant. Entre temps, si tu as déjà un bout de vba à me proposer pour cette manipulation... bien n'hesite pas. Merci beaucoup d'être là, tu es genial!!!

Bonjour, pour copier coller une colonne entière, par exemple la colonne B de ma feuille 1 et la coller sur la cellule A1 de la feuille 2, on peut utiliser la ligne suivante : ws_feuil1.Cells(1, 2).EntireColumn.Copy ws_feuil2.Cells(1, 1)

Bonjour, pour cela il faut faire une boucle sur les onglets (kzfaq.info/get/bejne/mbyJp65_ncu-pWg.html) et utiliser une fonction comme Columns(5).Insert pour insérer une colonne au niveau de la cinquième.

Bonjour, dans ce cas là, le plus simple pourrait être de copier coller la feuille entière plutôt. A voir : kzfaq.info/get/bejne/q891Y9aqqMDJc4U.html

Bonjour, la formule a une faute de syntaxe, il faudrait : End(xlUp) avec un L et non un 1. ;)

Bonjour, pour copier coller le résultat d'un formule, il y a 2 solutions généralement, soit le PasteSpecial soit faire une correspondance directe entre cellule. Pour le PasteSpecial il faut faire 2 lignes, la première pour le .Copy et la deuxième (à la ligne) qui identifie la cellule où l'on veut coller l'information suivi du .PasteSpecial comme suit : ws_onglet.Cells(1,1).PasteSpecial xlPasteValues En espérant que ça aide !

@ merci beaucoup cela a résolu une partie de mon problème, mais j'ai encore un souci j'ai une plage de données avec 18 lignes et 9 colonnes les cellules de cette plage ont toutes des formules je rempli cette plage avec une liste déroulante qui selon ma recherche rempli ma plage il peut y avoir 3 lignes remplies parfois mais aussi parfois les 18 lignes et lorsque je fais un copier coller(avec un currentregion .offset pour sélectionner ma plage) sur un tableau dans une autre feuille du même classeur pour que les données se remplissent a la suite avec un code en vba si j'ai que 3 lignes de valeurs cela me colle les 3 lignes de valeurs plus les lignes vides mais avec les formules cela fait que quand je refait un copier coller la recherche de la dernière ligne me détecte les formules et donc cela me crée un espace les données ne s'affichent pas la suite si vous pouviez m'aider a résoudre ce problème ce serai gentil merci d'avance

Bonjour, pardon pour le retard, je remarque que je ne reçois pas les notifications quand il y a une réponse à des commentaires existants. Si problème il y a sur la zone à copier, une des manières de résoudre le problème est de passer sur une boucle par ligne pour pouvoir vérifier que la valeur (donc le résultat de la formule) n'est pas vide, et ensuite faire le copier coller. ça ne devrait pas impacter le temps nécessaire pour l'exécution de la macro car il semble que votre fichier soit petit.

Bonjour, quand c'est regulier comme ça, alors il faut utilser une boucle avec un pas. Par exemple, For i = 1 to 21 Step 2, qui fera donc une boucle sur 1, 3, 5, 7.... Ou For i = 2 to 20 Step 2, pour 2, 4, 6....

@ merci