Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1391 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  macro copier une cellule dans toutes feuilles

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

macro copier une cellule dans toutes feuilles

n°2049756
_dex00001
Posté le 17-01-2011 à 22:06:38  profilanswer
 

Bonsoir,
 
Après avoir réalisé des recherches je ne trouve pas la solution à mon problème. Je vous expose mon cas en espérant que vous puissiez y remédier.
J'ai un classeur Excel dans lequel il existe plusieurs feuilles portant un nom variable sauf le premier "Planning".
Je souhaiterai qu'en cas de modification de la cellule par exemple "A1" de la feuille "planning" toutes les cellules "A1" des autres feuilles (sans distinctions) soient modifiées.
 
Merci d'avance.
 
 

mood
Publicité
Posté le 17-01-2011 à 22:06:38  profilanswer
 

n°2049847
mcdx
Posté le 18-01-2011 à 11:49:58  profilanswer
 

Bonjour,
 
Oui C'est possible en utilisant un évènement
' placer dans la feuille "planning" (et pas dans un module):
// Alt F11 / Double clic sur la feuille "plannig" dans la fenêtre des projets ( a gauche )
et copie Le code suivant:
 

Code :
  1. Option Explicit
  2. '
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.   Dim oSh As Worksheet
  5.   ' Test si a valeur de A1 est modifiée
  6.   ' (Rien faire si valeur des autre cellule est modifiée)
  7.   If Target.Address(False, False) = "A1" Then
  8.     For Each oSh In Worksheets        ' pour chaque feuille du classeur ...
  9.       If oSh.Name <> "planning" Then  ' Si non feuille <> "planning" colle valeur
  10.         oSh.Cells(1, 1) = Target
  11.       End If
  12.     Next
  13.   End If
  14. End Sub


 
C tout
--Mcdx


Message édité par mcdx le 18-01-2011 à 13:17:50
n°2049878
_dex00001
Posté le 18-01-2011 à 13:55:41  profilanswer
 

Merci d'avoir pris le temps de me répondre. je teste ca ce soir.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  macro copier une cellule dans toutes feuilles

 

Sujets relatifs
Excel 07 / Copier coller dans des sheets[VBA Excel 2003 - débutant] Macro et renommage d'un classeur Excell
VBA Excel 2003 colorier cellule RGBMacro VBA Excel SharePoint
Comment copier un string dans un TByteDynArray ?[Access] Accéder aux champs d'un enregistrement en mode macro
Renvoi du numéro de ligne d'une cellule en VBAColorisation d'une cellule suivant la valeur
[BAT]Copier un fichier d'un bureau vers les autres profilsMacro multi sheet
Plus de sujets relatifs à : macro copier une cellule dans toutes feuilles


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR