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 13/11/2011, 11h54   #1
Invité de passage
 
Homme
Inscription : novembre 2011
Messages : 1
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Secteur : Santé

Informations forums :
Inscription : novembre 2011
Messages : 1
Points : 0
Points : 0
Par défaut copie (va et vient) entre feuilles Excel

Bonjour,

je suis nouveau sur ce forum.

je n'arrive pas à trouver de solution pour mon problème de copie d'une feuille excell vers une (ou des) autres et inversement.
je vais essayer d'etre plus clair en donnant un exemple.
j'ai 3 feuilles dans mon classeur, chaque feuille est utilisée par une personne (pas en même temps).
Certaines lignes sont communes pour les 3 feuilles (utilisateurs), donc je cherche a avoir une automatisation des changements de chaque feuille vers les autres.

je ne suis pas sûr d'être suffisamment clair dans mon explication.

Merci, par avance, de votre aide.

cordialement
jpk02 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/11/2011, 12h57   #2
Expert Confirmé Sénior
 
Homme Daniel
aucune
Inscription : septembre 2011
Messages : 2 004
Détails du profil
Informations personnelles :
Nom : Homme Daniel
Localisation : France, Seine et Marne (Île de France)

Informations professionnelles :
Activité : aucune

Informations forums :
Inscription : septembre 2011
Messages : 2 004
Points : 4 037
Points : 4 037
Bonjour,

Je ne suis pas sûr d'avoir bien compris. Mets la macro suivante dans le module
de Feuil1. Chaque valeur entrée dans la plage A1:C1 sera reportée au même endroit sur Feuil2 et Feuil3. Adapte la macro à tes besoins et recopie-la dans le module des autres feuilles en changeant le nom des feuilles destinataires.

Code :
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column < 4 And Target.Row = 1 Then
        Application.EnableEvents = False
        Sheets("Feuil2").Range(Target.Address) = Target.Value
        Sheets("Feuil3").Range(Target.Address) = Target.Value
        Application.EnableEvents = True
    End If
End Sub
__________________
Cordialement.

Daniel

Citation:
La plus perdue de toutes les journées est celle où l'on n'a pas ri.
Chamfort
Daniel.C est dé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 07h02.


 
 
 
 
Partenaires

Hébergement Web