Besoin aide macro

Bonjour,

Clair, à peu près, mais il nous faudrait ton fichier pour voir comment ça se présente
Peux tu l'envoyer (anonymé) au format excel 2003 sur cjoint.com et joindre le lien obtenu à ton prochain message
N'oublies pas d'y ajouter des explications et des exemples

bonne suite

Je vais essaye de faire aujourd'hui un classeur pour vous montrer a quoi mon planning peut ressembler.
Merci deja pour cette reponse.

Question bete. Comment je peut rendre mon fichier excel anonyme? Sous excel 2010.

Tu sais, la seule question bête est celle qu'on ne (se) pose pas!
Il ne s'agit pas de rendre le classeur anonyme mais ses données. Par exemple, remplacer les noms par toto1, toto2, etc...
bonne suite

Desole je pense que je vais abandonner cette idee. Mais si je rechange d'avis je reposerai ma question. En tout merci de m'avoir repondu.

Cependant j'ai une nouvelle question. J'avais creer sur ce meme planning une macro de copier coller automatique lors de modification d'une plage de cellule ( le coller se fait sur une autre feuille). J'aimerai savoir si c'est possible de revenir sur la cellule modifie, en gros qu'on remarque pas qu'une macro a etait lancer.

oui, c'est possible

Sheets(nom_feuille).Select
Range(cellule).Select

bonne journée

Mais si je met par exemple
Range("A1).Select
Je vais avoir tout le temps a la fin de ma macro la cellule A1 selectionner meme si j'ai modifie la cellule A2. Justement je veux que ca revienne a la cellule que j'ai modifie.

J'aimerai savoir si c'est possible de revenir sur la cellule modifie,
tu mets Range(adr). select où adr est l'adresse de la "cellule modifiée"

RQ. Peux tu nous donner le code de ta macro qu'on puisse y voir plus clair?

Voici le code de ma macro :

Application.ScreenUpdating = False
Sheets("Sheet1").Select
ActiveSheet.Unprotect (**********)
Sheets("Sheet2").Select
Range("E8:FR16").Select
Selection.Copy
Sheets("Sheet1").Select
Range("E7").Select
ActiveSheet.Paste
Range("E7").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowInsertingHyperlinks:=True, Password:=***********
Sheets("Sheet2").Select
Application.ScreenUpdating = True

Voici le Code que j?ai mis sur Sheet2 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E8:FR16")) Is Nothing Then

'********* Appel de la Macro *****************
Macro1

End If
End Sub

Pour le code dans sheets(2)
à adapter bien sûr

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim adr As String
If Not Intersect(Target, Range("A1:B5")) Is Nothing Then
  Set sh = ActiveSheet
  adr = Target.Address
  Call mamacro
  sh.Select
  Range(adr).Select
End If
End Sub

bon après midi

Merciiiii beaucoup. Ca marche !!!

Bon on voit tres rapidement ce que la macro fait mais c'est pas grave tant que ca marche, a moins que c'est possible de le corriger

c'est possible

Private Sub Worksheet_Change(ByVal Target As Range)  
Dim sh As Worksheet  
Dim adr As String  
If Not Intersect(Target, Range("A1:B5")) Is Nothing Then  
  Application.ScreenUpdating = False  
  Set sh = ActiveSheet  
  adr = Target.Address  
  Call mamacro  
  sh.Select  
  Range(adr).Select  
  Application.ScreenUpdating = True  
End If  
End Sub

bonne suite

Merci pour ton aide. Bonne journee