VBA excel

Bonjour à toutes , tous,

j'ai fait ce code, s'il vous plaît, Pourriez-vous m'aider à le corriger. Je ne vois pas où est l'erreur.

Je vous remercie d'avance

3 réponses

  1. Contributeur

    Bonjour,

    colle en texte en utilisant la 8ème icone 'Insérer un extrait de code', une image n'est pas exploitable.
    Ou mieux un fichier de travail réduit avec le pb.
    C'est pour ça que pas grand ne s'intéressait...

    = ActiveWorkbook sans s
    pour gagner du temps et éviter ces erreurs, saisis le 1ères lettre et Alt+Espace te propose une liste de choix (Intellisense)
    eric


    0
    1. Bonjour Erilic,

      Merci beaucoup, déjà pour ta réponse.( le s )

      Voilà le code ci-dessous.

      J'explique: je veux que le résultat( somme) de la cellule E,20 de la feuille1 de mon classeur soit copier automatiquement dans la cellule D,11 de la feuille2 du même classeur. Les 2 feuilles appartiennent au même classeur.

      Quand je fais exécuter sub User/form, ça n'affiche pas d'erreur dans le code je sélectionne le classseur je fais exécuter rien ne se passe c'est à dire la copie ne se fait pas. 

      Pourriez-vous m'aider? Merci d'avance

      -------- CODE---------
      Sub copier_coller_celluleE20_feuil2()

      Dim wk_fichier As Workbook
      Dim ws_feuil1 As Worksheet
      Dim ws_feuil2 As Worksheet

      ' definir les variables fichiers et onglets'
      Set wk_fichier = ActiveWorkbook
      Set ws_feuil1 = wk_fichier.Worksheets(1)
      Set ws_feuil2 = wk_fichier.Worksheets(2)

      ' copier coller de la cellule'
      ws_feuil2.Cells(4, 11) = ws_feuil1.Cells(5, 20)

      End Sub
       

      -----------------------------------------------------------

      0
      1. Bonjour,

        ws_feuil2.Cells(4, 11) = ws_feuil1.Cells(5, 20)

        Avec ce code vous ecrivez le contenu de la cellule T5 dans le cellule K4

        Cells(ligne, colonne)

        Range("colonne ligne")

        0

        Discussions similaires

        a propos de youppie

        44 réponses