VBA excel

Fermé
gghihi Messages postés 7 Date d'inscription mercredi 27 octobre 2021 Statut Membre Dernière intervention 30 mai 2023 - 25 févr. 2023 à 16:42
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 - 28 févr. 2023 à 16:31

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

A voir également:

3 réponses

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2024 7 217
25 févr. 2023 à 23:17

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
gghihi Messages postés 7 Date d'inscription mercredi 27 octobre 2021 Statut Membre Dernière intervention 30 mai 2023
28 févr. 2023 à 15:04

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
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
28 févr. 2023 à 16:31

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