Macro copier ligne dans la feuilla correspondante

Résolu
hakimr -  
Bonjour,

je cherche comment écrire en vba
je veux copier une ligne dans une autre feuille (nom de la feuille est dans B3)
merci d'avance.

Configuration: Windows / Chrome 49.0.2623.112

30 réponses

Résumé de la discussion

La demande porte sur écrire en VBA une macro qui copie une ligne vers une autre feuille, le nom de cette feuille étant indiqué dans la cellule B3, et la configuration est Windows/Chrome. Plusieurs réponses évoquent approches comme copier la ligne 3 via une macro lorsque le nom de destination est donné, gérer les caractères interdits dans les noms de feuilles et valider le transfert. D'autres interventions discutent des correspondances entre sous-traitants et feuilles, des ajustements comme supprimer les colonnes et remarques techniques sur les liens ou les limitations liées au cheminement de la donnée. Enfin, certains proposent des gestes comme cibler une ligne précise (ex: A3) ou tester manuellement en renommant les feuilles, sans conclure sur l’état final du fil.

Bobot (l’IA à votre service)
  1. ccm81
    Une premiere question.
    Les noms des feuilles des sous traitants ne sont pas les nons des sous traitants (comme c'était dans tes premieres demandes).
    Donc
    - soit tu renommes ces feuilles
    - soit il faut quelque part une correspondance entre les sous traitants et les feuilles (tu fais)

    ceci réglé, ça sera loin d'être fini

    Cdlmnt
    1
    1. ccm81
      Eh bien, fais le "à la main" dans ton fichier (renommes tes feuilles avec les noms complets, tu vas avoir un pb avec les * ou autres caractères spéciaux interdits dans les noms de feuille)
      1
      1. hakimr Auteur
        Les noms je vais les rendre en abreger l'essentiel je veux réaliser mon idée et je suis sûr que grâce à votre aide j'arrive à automatiser les tâches.
        0
    5. ccm81
      1. j'ai mis un montant dans DEBIT et j'ai valider ca marche bien mais en allant au fiche concernant je trouve pas le montant de DEBIT enregistrer.
      Normal, je n'ai transféré que jusqu'à la colonne Q ! ça se fera ....
      2. les colonnes R etS je préfere les supprimer dans feuille MVT journalier
      OK, et tu gardes quand même la colonne Débit ?
      Il est impératif de bien définir les structures de données de tes feuilles, donc réfléchis bien.

      j'ai un peu avancé
      https://www.cjoint.com/c/KHbj1v6umkB

      Cdlmnt
      1
      2. hakimr Auteur
        Bonsoir Mr
        en B3 j'ai une liste de choix( cad B3 variable) suivant les nons des feuilles qui existe dans le classeur
        je veux copier l'enregistrement ligne(3) dans la feuille qui conviend (nom de la feuille en B3)
        merci.
        0
        2. hakimr Auteur
          Oui
          mais je veux pas coller toujours dans la feuille2 (B3 est variable)
          feuille2, feuille3,..........feuille12
          merci.
          0
          1. ccm81
            C'est plus clair comme ça ?
            https://www.cjoint.com/c/KGBsYIWnxzB

            Cdlmnt
            0
            1. ccm81
              Le code de la macro commenté 
              Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
              Dim FS As String, FB As String, li As Long, lili As Long
              ' nom feuille active/source
              FS = ActiveSheet.Name
              ' nom feuille but récupéré en B3
              FB = Range("B3").Value
              ' preniere ligne dispo feuille but
              lili = Sheets(FB).Range("A" & Rows.Count).End(xlUp).Row + 1
              ' ligne cellule cliquée
              li = Target.Row
              ' copie de la ligne li de la feuille source
              ' à la ligne lili de la feuille but
              Rows(li & ":" & li).Copy
              Sheets(FB).Select
              Sheets(FB).Range("A" & lili).Select
              Sheets(FB).Paste
              ' retour feuille source
              Sheets(FS).Select
              Sheets(FS).Range("A" & li + 1).Select
              ' vider presse papier
              Application.CutCopyMode = False
              End Sub

              Cdlmnt
              0
          2. hakimr Auteur
            bonsoir Mr
            C'est presque ce je veux faire mais j'ai inserrer une autre feuiile; feuille5 est ce qu'on peu l'ajouter automatiquement et au lieu de faire un clic je veux inserrer un bouton (valider oui/non) et attribuer au macro.
            merci
            0
            2. hakimr Auteur
              Oui
              merci beaucoup c'est ce que je veux faire sauf j'ai pas bien compris comment mettre a jour les feuilles contrôle+k
              merci pour votre collaboration.
              0
              1. ccm81
                J'ai remplacé le raccourci-clavier par un "bouton"
                Donc, tu ajoutes une ou plusieurs feuilles, et clic pour la MAJ de Liste_Feuilles

                https://www.cjoint.com/c/KGCgIphMeDB

                RQ. Tu peux modifier le nom de tes feuilles à tout moment, il te suffit de refaire une MAJ

                Bonne journée
                0
                1. hakimr Auteur
                  Oui
                  bien reçu
                  merci beaucoup et bonne journée
                  0
                  2. hakimr Auteur
                    Bonjour Mr ccm81
                    Ci c'est possible j'ai besoin encore de votre aide
                    parce-que j'ai pas réussi d'organiser tout et rendre mon fichier plus professionnelle.
                    Ci joint fichier
                    https://www.cjoint.com/c/KGDmZKgtuVH
                    a vous lire
                    merci.
                    0
                    1. hakimr Auteur
                      Rebonjour
                      Bien sur les noms seront identique avec les noms des feuilles c'est pour çà que je cherche comment faire liste de choix selon les noms des feuilles (pour ne pas tremper)
                      merci pour votre collaboration.
                      0
                      2. ccm81
                        Mais tu me renvoies toujours le même fichier, tu n'as pas fait ce que je t'ai demandé au post 15.
                        En l'état actuel des choses, je ne peux pas avancer !

                        Cdlmnt
                        0
                        • 1
                        • 2