Microsoft 365 Macro copié collé valeur se trouvant dans d'autres feuilles

Croc_de_loups · 9 Juin 2023

Bonjour,

Suite à de nombreuses recherches sur différents forums, je ne parviens pas à réaliser ma macro.
Je débute dans le codage VBA.

Je cherche une macro qui me permettrait de copier les N° de commandes placé dans chaque feuilles trier par mois et de les collé à la suite dans la feuille "Suivi commande" dans la colonne A.

J'ai essayé une macro mais cela fonctionne qu'à partir du mois de Janvier, après, je n'arrive pas à trouvé une suite à ma macro afin que les N° de commandes des autres mois se colle à la ligne juste en dessous de la dernière commande du mois dernier.
Voici la macro que j'utilise :
Sub Nouveau_Test()

Worksheets("Commande Janvier").Range("A:A").Copy _
Destination:=Worksheets("Suivi commandes").Range("A:A")

Worksheets("Commande Février").Range("A:A").Copy _
Destination:=Worksheets("Suivi commandes").Range("A:A")

End Sub

Je ne pense pas avoir été clair, je vous place ci-joint un fichier Excel test qui pourrait peut être vous aider.

sylvanu · 9 Juin 2023

Et si vous voulez supprimer les doublons éventuels faites :

VB:

Sub Insérer()
    [A:A].ClearContents: [K:L].ClearContents: N = 2
    [A1] = "N° de commande"
    Application.ScreenUpdating = False
    For Each F In Worksheets                            ' pour toutes les feuilles
        If F.Name <> "Suivi commande" Then              ' Hormi feuille de suivi
            DLSuivi = 1 + [A65500].End(xlUp).Row        ' Première ligne vide
            DL = Sheets(F.Name).[A65500].End(xlUp).Row  ' Dernière ligne occupée de la feuille
            tablo = Sheets(F.Name).Range("A1:A" & DL)   ' Mettre la liste dans un tableau et la coller
            Cells(DLSuivi, "A").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
            Cells(N, "K") = F.Name...

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
????
Il n'y a aucun endroit indiqué !!!!
Vous la mettez où vous voulez, vous l'exécuter par :
- Alt+F8 et validez INSERER
ou
- Vous creez n'importe quel dessin sur la feuille Suivi ( par insertion Formes )
- Vous cliquez droit dessus et activer "Affecter une macro ..."
- Vous valider la macro INSERER
Chaque appui sur ce bouton lancera la macro

Le système m'indique une erreur sur votre macro sur cette ligne :

Cells(DLSuivi, "A").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
Pouvez vous m'expliquer ce qu'elle fait et s'il y a des choses à modifier?
Pas la peine de vous emportez je ne connait pas du tout la macro alors il est normal que je n'arrive pas à tout suivre comme vous alors svp veuillez à vous calmez merci

sylvanu · 9 Juin 2023

Elle cherche la dernière ligne de la liste N° de commande.
Et chez moi cela marche très bien.

Est qu'un fichier zip est bloqué par la sécurité ?
Si non prenez cette PJ. C'est le même fichier zippé.

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
Elle cherche la dernière ligne de la liste N° de commande.
Et chez moi cela marche très bien.

Est qu'un fichier zip est bloqué par la sécurité ?
Si non prenez cette PJ. C'est le même fichier zippé.

Je n'arrive toujours pas a utilisé votre macro sur votre fichier à cause de la sécurité de l'entreprise j'essaierais sur mon pc perso. En attendant peut-être pourriez vous m'indiquez si je fais bien comme vous ou non.

Merci à vous

sylvanu · 9 Juin 2023

ok.
1- Vous prenez le fichier du post #1 ( le votre pour être sur du fichier )
2- Vous faites ALT+F11 pour ouvrir l'éditeur VBA
3- Vous faites insérer module et vous faites un copier coller de la macro du post #11
4- Ensuite, vous appliquez l'insertion d'une forme comme expliqué au post #14.

Mais si votre PC perso permet de tester, alors testez directement le fichier #8, vous devriez sur la feuille Suivi obtenir ceci :

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
ok.
1- Vous prenez le fichier du post #1 ( le votre pour être sur du fichier )
2- Vous faites ALT+F11 pour ouvrir l'éditeur VBA
3- Vous faites insérer module et vous faites un copier coller de la macro du post #11
4- Ensuite, vous appliquez l'insertion d'une forme comme expliqué au post #14.

Mais si votre PC perso permet de tester, alors testez directement le fichier #8, vous devriez sur la feuille Suivi obtenir ceci :
Regarde la pièce jointe 1172008

La touche ALT+F11 ne fonctionne pas. Cela revient-il à aller dans l'onglet Affichage puis sur Macro?

sylvanu · 9 Juin 2023

Vous êtes sur PC ou MAC ?
Sur PC c'est onglet Développeur puis Visual Basic.
C'est ce que vous avez du faire pour votre macro du post #1 ?

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
Vous êtes sur PC ou MAC ?
Sur PC c'est onglet Développeur puis Visual Basic.
C'est ce que vous avez du faire pour votre macro du post #1 ?

Je suis sur PC et je n'ai pas d'onglet qui se nomme Développeur, c'est peut-être pour cela que ça ne fonctionne pas

sylvanu · 9 Juin 2023

J'ai trouvé. J'ai oublié de vous le dire. J'ai rectifié la faute d'orthographe.
J'ai renommé "Suivie commande" par "Suivi commande", je pense que c'est ça qui provoque l'erreur.
Rectifiez le nom de cet onglet, cela devrait marcher.

Croc_de_loups à dit:
Je suis sur PC et je n'ai pas d'onglet qui se nomme Développeur, c'est peut-être pour cela que ça ne fonctionne pas

Faites de la même façon que vous avez fait votre code du post #1.

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
Vous êtes sur PC ou MAC ?
Sur PC c'est onglet Développeur puis Visual Basic.
C'est ce que vous avez du faire pour votre macro du post #1 ?

Je viens d'inséré l'onglet Développeur sur Excel(je sais pas pourquoi mais il était pas mis) je vais maintenant pouvoir essayé votre macro

sylvanu · 9 Juin 2023

Lisez bien le post #23.
Ou alors changez la ligne :

VB:

If F.Name <> "Suivi commande" Then
par
If F.Name <> "Suivie commande" Then

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
Lisez bien le post #23.
Ou alors changez la ligne :

VB:

If F.Name <> "Suivi commande" Then par If F.Name <> "Suivie commande" Then

J'ai essayé comme vous me l'avez dis, j'ai modifié tout ce que vous m'avez dis et il m'indique qu'il y a une incomptabilité de type
Je ne comprend pas

Phil69970 · 9 Juin 2023

Re

Croc_de_loups à dit:
Est-ce que vous savez comment je peux déplacer le code afin de le mettre à l'endroit où vous m'avez indiqué ?

Sélection du code puis ==> Couper-Coller au bon endroit

Autre solution refaire les explications de mon post # 9

@Phil69970

Croc_de_loups · 9 Juin 2023

Phil69970 à dit:
Re

Sélection du code puis ==> Couper-Coller au bon endroit

Autre solution refaire les explications de mon post # 9

@Phil69970

J'ai essayé et cela ne fonctionne toujours pas

Phil69970 · 9 Juin 2023

Re

Croc_de_loups à dit:
J'ai essayé et cela ne fonctionne toujours pas

En clair quel message ?

Et as tu refais TOUTE la procédure de mon post #9 sans zapper une étape ?

@Phil69970

Croc_de_loups · 9 Juin 2023

sylvanu à dit:
Lisez bien le post #23.
Ou alors changez la ligne :

VB:

If F.Name <> "Suivi commande" Then par If F.Name <> "Suivie commande" Then

Est-ce que vous avez pris en compte que j'ai créé une feuille pour chaque mois et que dans ces feuille là se trouve des N° de commandes que je veux que s'ils ne sont pas existantes il les c

Phil69970 à dit:
Re

En clair quel message ?

Et as tu refais TOUTE la procédure de mon post #9 sans zapper une étape ?

@Phil69970

Je vous l'ai dis plus haut dans la conversation et oui j'avais copié tout votre Macro

Microsoft 365 Macro copié collé valeur se trouvant dans d'autres feuilles

Croc_de_loups

XLDnaute Junior

Pièces jointes

sylvanu

Croc_de_loups

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Croc_de_loups

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Croc_de_loups

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Croc_de_loups

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Croc_de_loups

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Croc_de_loups

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Croc_de_loups

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Croc_de_loups

XLDnaute Junior

Discussions similaires