Besoin aide macro Résolu/Fermé

Question

Bonjour,

Etant tres debutante sur les macros dans excel et ne trouvant pas ma reponse (surtout ne sachant pas quoi taper dans la barre de recherche pour trouver la reponse a ma question), j'aurai besoin de votre aide pour creer des macros. 

J'ai cree un planning sous excel. Sur la meme feuille, j'ai en haut un planning synthetique (nom des differents jalons, couleurs vert orange ou rouge si en retard) 
En dessous de ce planning j'ai le planning avec les differentes taches et aussi les jalons. 

Je voudrais creer une macro qui ferait que de?s que je met une couleur sur une case, dans la ligne d'un jalon, dans le planning detaille, que ca me la met a la meme couleur   le nom du jalon dans le planning synthetique, automatiquement. Bien sur a la meme date. 

J'espere que j'ai reussi a etre clair sur ma question.

ccm81 · Answer

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

duckiiii · Answer

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

duckiiii · Answer

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

ccm81 · Answer

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

duckiiii · Answer

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.

ccm81 · Answer

oui, c'est possible

Sheets(nom_feuille).Select
Range(cellule).Select

bonne journée

duckiiii · Answer

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.

ccm81 · Answer

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?

duckiiii · Answer

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

ccm81 · Answer

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

duckiiii · Answer

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

ccm81 · Answer

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

duckiiii · Answer

Merci pour ton aide. Bonne journee

Besoin aide macro

13 réponses

Discussions similaires