OVH Cloud OVH Cloud

Emplacement code dans VBA

7 réponses
Avatar
Papounet26
Bonjour tous le monde,
Y-a-t-il un emplacement précis ou écrire un code VBA afin de le retrouver à
l'ouverture de tous les classeurs ( anciens ou nouveaux )
D'avance merci.
Gilbert.

7 réponses

Avatar
ThierryP
Bonjour Papounet26,

Il faut enregistrer tes macros dans le classeur perso.xls, qui est créé
quand tu fais outil->macros->Nouvelle Macro, et là tu peux choisir où
l'enregistrer.

Bonjour tous le monde,
Y-a-t-il un emplacement précis ou écrire un code VBA afin de le retrouver à
l'ouverture de tous les classeurs ( anciens ou nouveaux )
D'avance merci.
Gilbert.


--


@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline

Avatar
Papounet26
Salut Thierry,
En fait c'est un peu plus compliqué que ça. Je souhaite colorié la cellule
active dans tous mes classeurs ( anciens ou nouveaux ) par l'intermédiaire
d'une macro. J'arrive à le faire sans macro selon la procédure suivante :
Dans le VBA de la feuille active j'écris le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Puis je selectionne toutes les cellules de ma feuille et je mets la forme
conditionnelle suivante :
=et(ligne()Îllule("ligne");colonne()Îllule("colonne"))
Ca marche.J'ai trouvé tout ça sur le forum, mais je n'arrive pas à
l'appliquer à l'aide d'une macro à tous mes classeurs.
Est-ce réalisable ? Je n'ai rien trouvé sur Excelabo !
D'avance merci pour ton aide.
Papounet26



Bonjour Papounet26,

Il faut enregistrer tes macros dans le classeur perso.xls, qui est créé
quand tu fais outil->macros->Nouvelle Macro, et là tu peux choisir où
l'enregistrer.

Bonjour tous le monde,
Y-a-t-il un emplacement précis ou écrire un code VBA afin de le retrouver à
l'ouverture de tous les classeurs ( anciens ou nouveaux )
D'avance merci.
Gilbert.


--


@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline




Avatar
ThierryP
Re !

Avec l'enregistreur de macros, voici ce que j'obtiens :

- MEFC suivant valeur cellule :
Range("D7").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlBetween, _
Formula1:="1", Formula2:="10"
Selection.FormatConditions(1).Font.ColorIndex = 50
- MEFC suivant formule :
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="Â"
Selection.FormatConditions(1).Font.ColorIndex = 50

En créant une macro, même bidon, tu crées ton perso.xls (s'il n'existait
pas). A ce moment, dans l'éditeur vba, tu peux faire des copier-coller
de tes macros existantes dans le perso. Ainsi tu les retrouveras pour
tous tes classeurs.

Salut Thierry,
En fait c'est un peu plus compliqué que ça. Je souhaite colorié la cellule
active dans tous mes classeurs ( anciens ou nouveaux ) par l'intermédiaire
d'une macro. J'arrive à le faire sans macro selon la procédure suivante :
Dans le VBA de la feuille active j'écris le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Puis je selectionne toutes les cellules de ma feuille et je mets la forme
conditionnelle suivante :
=et(ligne()Îllule("ligne");colonne()Îllule("colonne"))
Ca marche.J'ai trouvé tout ça sur le forum, mais je n'arrive pas à
l'appliquer à l'aide d'une macro à tous mes classeurs.
Est-ce réalisable ? Je n'ai rien trouvé sur Excelabo !
D'avance merci pour ton aide.
Papounet26



Bonjour Papounet26,

Il faut enregistrer tes macros dans le classeur perso.xls, qui est créé
quand tu fais outil->macros->Nouvelle Macro, et là tu peux choisir où
l'enregistrer.

Bonjour tous le monde,
Y-a-t-il un emplacement précis ou écrire un code VBA afin de le retrouver à
l'ouverture de tous les classeurs ( anciens ou nouveaux )
D'avance merci.
Gilbert.
--



@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline




--


@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline



Avatar
Papounet26
J'ai mon Perso.xls, le problème, c'est que je ne sais pas ou coller les macros.
Dans la fenetre VBA Project j'ai :
-Eurotool
-VBA Project classeur1
Feuil1
Feuil2
Feuil3
This Workbook
-VBA Project Perso.xls
Feuill1
Il y a 28 modules
This Workbook
L'emplacement a t-il une importance ?





Re !

Avec l'enregistreur de macros, voici ce que j'obtiens :

- MEFC suivant valeur cellule :
Range("D7").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlBetween, _
Formula1:="1", Formula2:="10"
Selection.FormatConditions(1).Font.ColorIndex = 50
- MEFC suivant formule :
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="Â"
Selection.FormatConditions(1).Font.ColorIndex = 50

En créant une macro, même bidon, tu crées ton perso.xls (s'il n'existait
pas). A ce moment, dans l'éditeur vba, tu peux faire des copier-coller
de tes macros existantes dans le perso. Ainsi tu les retrouveras pour
tous tes classeurs.

Salut Thierry,
En fait c'est un peu plus compliqué que ça. Je souhaite colorié la cellule
active dans tous mes classeurs ( anciens ou nouveaux ) par l'intermédiaire
d'une macro. J'arrive à le faire sans macro selon la procédure suivante :
Dans le VBA de la feuille active j'écris le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Puis je selectionne toutes les cellules de ma feuille et je mets la forme
conditionnelle suivante :
=et(ligne()Îllule("ligne");colonne()Îllule("colonne"))
Ca marche.J'ai trouvé tout ça sur le forum, mais je n'arrive pas à
l'appliquer à l'aide d'une macro à tous mes classeurs.
Est-ce réalisable ? Je n'ai rien trouvé sur Excelabo !
D'avance merci pour ton aide.
Papounet26



Bonjour Papounet26,

Il faut enregistrer tes macros dans le classeur perso.xls, qui est créé
quand tu fais outil->macros->Nouvelle Macro, et là tu peux choisir où
l'enregistrer.

Bonjour tous le monde,
Y-a-t-il un emplacement précis ou écrire un code VBA afin de le retrouver à
l'ouverture de tous les classeurs ( anciens ou nouveaux )
D'avance merci.
Gilbert.
--



@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline




--


@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline






Avatar
ThierryP
A mon avis, si tu colles tes macros dans un des modules standard, çà
doit le faire !! mais je suis loin d'être un pro, il y a peut-être une
subtilité que j'ignore. Tu devrais même pouvoir supprimer un certain
nombre de modules (en copiant tes macros bien sûr) sans problème, par ex
pour regrouper les macros qui font le même genre d'actions. Tu en as 28
parce que tu as utilisé 28 fois l'enregistreur de macros et par défaut,
il colle chaque nouvelle macro dans un nouveau module.

J'ai mon Perso.xls, le problème, c'est que je ne sais pas ou coller les macros.
Dans la fenetre VBA Project j'ai :
-Eurotool
-VBA Project classeur1
Feuil1
Feuil2
Feuil3
This Workbook
-VBA Project Perso.xls
Feuill1
Il y a 28 modules
This Workbook
L'emplacement a t-il une importance ?





Re !

Avec l'enregistreur de macros, voici ce que j'obtiens :

- MEFC suivant valeur cellule :
Range("D7").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlBetween, _
Formula1:="1", Formula2:="10"
Selection.FormatConditions(1).Font.ColorIndex = 50
- MEFC suivant formule :
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="Â"
Selection.FormatConditions(1).Font.ColorIndex = 50

En créant une macro, même bidon, tu crées ton perso.xls (s'il n'existait
pas). A ce moment, dans l'éditeur vba, tu peux faire des copier-coller
de tes macros existantes dans le perso. Ainsi tu les retrouveras pour
tous tes classeurs.

Salut Thierry,
En fait c'est un peu plus compliqué que ça. Je souhaite colorié la cellule
active dans tous mes classeurs ( anciens ou nouveaux ) par l'intermédiaire
d'une macro. J'arrive à le faire sans macro selon la procédure suivante :
Dans le VBA de la feuille active j'écris le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Puis je selectionne toutes les cellules de ma feuille et je mets la forme
conditionnelle suivante :
=et(ligne()Îllule("ligne");colonne()Îllule("colonne"))
Ca marche.J'ai trouvé tout ça sur le forum, mais je n'arrive pas à
l'appliquer à l'aide d'une macro à tous mes classeurs.
Est-ce réalisable ? Je n'ai rien trouvé sur Excelabo !
D'avance merci pour ton aide.
Papounet26



Bonjour Papounet26,

Il faut enregistrer tes macros dans le classeur perso.xls, qui est créé
quand tu fais outil->macros->Nouvelle Macro, et là tu peux choisir où
l'enregistrer.

Bonjour tous le monde,
Y-a-t-il un emplacement précis ou écrire un code VBA afin de le retrouver à
l'ouverture de tous les classeurs ( anciens ou nouveaux )
D'avance merci.
Gilbert.
--



@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline

--




@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline




--


@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline





Avatar
gdubois
Ce qu'il faut faire à mon goût :

Créer un macro (même d'une ligne) avec l'enregristreur.
Spécifier qu'il faut enregristrer le macro dans le classeur de macro
personnelles
Ouvrir VBE (au passage supprimer bidon que tu a enregistrer avant)
Prendre ton code et le mettre dans le ThisWorkBook de ton fichier
perso.xls

Mais je peux me tromper.
Avatar
gdubois
Erratum :

Décidement j'ai un peu de mal en ce moment...

(au passage supprimer le macro bidon que tu as enregistrer avant)