Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/01/2012, 17h28   #1
Invité de passage
 
Homme djas arthson
Étudiant
Inscription : janvier 2012
Messages : 2
Détails du profil
Informations personnelles :
Nom : Homme djas arthson
Localisation : Congo-Kinshasa

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : janvier 2012
Messages : 2
Points : 0
Points : 0
Par défaut coller les données d'une plage d'une cellule dans une cellule d'une autre feuille[VBA]

bonjour, je suis entrain d'apprendre le VBA avec excel,et je suis encore au début, je viens d'avoir une idée mais je ne sais pas comment m'y prendre, Quelqu'un peut m'aider a écrire ce code? voici mon problème

Dans un classeur excel à 3 feuilles:Feuil1, Feuil2,Feuil3: on veut y saisir des données à partir de la feuille 1. Ecrire un programme VBA qui répète dans les autres feuilles et en respectant les adresses tous ce que l'on saisie dans la feuille 1.
merci
arthson est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/01/2012, 17h37   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 920
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 920
Points : 7 237
Points : 7 237
Bonjour,

J'ai du mal a voir l'utilité

Code :
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
 
    If sh.Name <> Me.Name Then sh.Range(Target.Address).Value = Target.Value
 
Next sh
 
End Sub
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est actuellement connecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 23h51.


 
 
 
 
Partenaires

Hébergement Web