Besoin aide macro
Résolu
duckiiii
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
floflo -
floflo -
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.
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.
A voir également:
- Besoin aide macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
13 réponses
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
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.
Merci deja pour cette reponse.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
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.
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?
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
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
bon après midi
à 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
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
bonne suite
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