Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Fr@ncis
Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Fr@ncis
Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Le 08/05/2013 09:42, gtoukc a écrit :Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Je ne sais pas si ça répond à la question, mais mes
corrections automatiques sont stockées dans un addins
excel (sur une feuille à deux colonnes donc) et :
With Excel.Application.AutoCorrect
J'utilise les méthodes
.DeleteReplacement What:=<l'entrée de la 1ere colonne>
et .AddReplacement What:=<1ere colonne>, Replacement:=<2è colonne>
Cordialement.
Le 08/05/2013 09:42, gtoukc a écrit :
Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Fr@ncis
Je ne sais pas si ça répond à la question, mais mes
corrections automatiques sont stockées dans un addins
excel (sur une feuille à deux colonnes donc) et :
With Excel.Application.AutoCorrect
J'utilise les méthodes
.DeleteReplacement What:=<l'entrée de la 1ere colonne>
et .AddReplacement What:=<1ere colonne>, Replacement:=<2è colonne>
Cordialement.
Le 08/05/2013 09:42, gtoukc a écrit :Bonjour à tous,
Je me suis escagassé, sur les forums de Microsoft,
sans trouver le réponse ou du moins il y aurait une
macro à installer, c'est la raison pour laquelle j'en
parle sur ce forum car ici se trouve les rois de la macro.
Mais bon, comme tout flatteur vit au dépend de celui
qui l'écoute..... Je vais y aller mollo.
J'aimerai sauvegarder voire le modifier avec un éditeur
de texte, mon fichier "correction automatique" que j'ai
commencer à enrichir sous Office 2010.
Je sais par exemple que le fichier de mon dico personnel
que j'ai créé en place de "custom.dic
se nomme "Francis.dic" et je n'ai pas de difficulté pour la
sauvegarde de ce fichier. Mais je ne sais pas par contre
comment se nomme et surtout quelle est l'extension a le
fichier de "correction automatique" .
J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le
fichier qui m'intéresse.
qq peut-il-m' éclairer ???
Bonne journée
Je ne sais pas si ça répond à la question, mais mes
corrections automatiques sont stockées dans un addins
excel (sur une feuille à deux colonnes donc) et :
With Excel.Application.AutoCorrect
J'utilise les méthodes
.DeleteReplacement What:=<l'entrée de la 1ere colonne>
et .AddReplacement What:=<1ere colonne>, Replacement:=<2è colonne>
Cordialement.
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux
créer un classeur de sauvegarde. Tu peux modifier la liste et la
réimporter à l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux
créer un classeur de sauvegarde. Tu peux modifier la liste et la
réimporter à l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux
créer un classeur de sauvegarde. Tu peux modifier la liste et la
réimporter à l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
J'imagine qu'un "addins ou macro automatique si j'ai bien compris,
se crée à partir d'une feuil1 dont les colonnes A et B sont
renseignées et qu'ensuite on enregistre ce classeur sous:
addins.xlma ou addins.xla ???
mais ensuite :
1) où insert-on ces formules
DeleteReplacement What:=<l'entrée de la 1ere colonne>
AddReplacement What:=<l'entrée de la 1ere colonne>
2) Et dans ce cas, quelles sont les références
.<l'entrée de la 1ere colonne>
<1ere colonne>, Replacement:=<2è colonne>
3) Comment mettre en application automatiquement
ces formules ???
J'imagine qu'un "addins ou macro automatique si j'ai bien compris,
se crée à partir d'une feuil1 dont les colonnes A et B sont
renseignées et qu'ensuite on enregistre ce classeur sous:
addins.xlma ou addins.xla ???
mais ensuite :
1) où insert-on ces formules
DeleteReplacement What:=<l'entrée de la 1ere colonne>
AddReplacement What:=<l'entrée de la 1ere colonne>
2) Et dans ce cas, quelles sont les références
.<l'entrée de la 1ere colonne>
<1ere colonne>, Replacement:=<2è colonne>
3) Comment mettre en application automatiquement
ces formules ???
J'imagine qu'un "addins ou macro automatique si j'ai bien compris,
se crée à partir d'une feuil1 dont les colonnes A et B sont
renseignées et qu'ensuite on enregistre ce classeur sous:
addins.xlma ou addins.xla ???
mais ensuite :
1) où insert-on ces formules
DeleteReplacement What:=<l'entrée de la 1ere colonne>
AddReplacement What:=<l'entrée de la 1ere colonne>
2) Et dans ce cas, quelles sont les références
.<l'entrée de la 1ere colonne>
<1ere colonne>, Replacement:=<2è colonne>
3) Comment mettre en application automatiquement
ces formules ???
Petite question...
cette macro Lit le fichier MSO1036.acl
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
et l'écrit avec la macro suivante
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
comment adapter la macro ( si c'est possible ) pour faire
la même chose avec le fichier MSO 0127.acl. ???
et pourquoi pas le fichier MSO1033.acl ???
cordialement
"DanielCo" a écrit dans le message de news:
kmd3mm$hkp$Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux créer
un classeur de sauvegarde. Tu peux modifier la liste et la réimporter à
l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
Petite question...
cette macro Lit le fichier MSO1036.acl
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
et l'écrit avec la macro suivante
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
comment adapter la macro ( si c'est possible ) pour faire
la même chose avec le fichier MSO 0127.acl. ???
et pourquoi pas le fichier MSO1033.acl ???
cordialement
Fr@ncis
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
kmd3mm$hkp$1@speranza.aioe.org...
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux créer
un classeur de sauvegarde. Tu peux modifier la liste et la réimporter à
l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
Petite question...
cette macro Lit le fichier MSO1036.acl
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
et l'écrit avec la macro suivante
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
comment adapter la macro ( si c'est possible ) pour faire
la même chose avec le fichier MSO 0127.acl. ???
et pourquoi pas le fichier MSO1033.acl ???
cordialement
"DanielCo" a écrit dans le message de news:
kmd3mm$hkp$Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux créer
un classeur de sauvegarde. Tu peux modifier la liste et la réimporter à
l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
Option Explicit
Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value =
TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure)
8) Vous retournez à Excel et voyez la liste des corrections automatiques
sur 2 colonnes.
-----------------------------------------------------------------------
Si vous voulez ajouter des corrections automatiques allez sur la "Feuil2"
et renommez la en "AutoCorrections"
Vous entrez là vos corrections automatiques supplémentaires,
par exemple :
En A2 : alpha en B2 : le caractère ?
caractère que vous obtenez en allant dans "Insertion" "Symboles" et
choisissez le caractère unicode "03B1"
Je vous conseille de mettre en C2 : VRAI
Comme cela, pour les corrections que vous voudriez supprimer, vous
mettrez "FAUX", pour celles que vous voulez actives vous mettrez "VRAI"
Donc votre feuille "AutoCorrections" ressemble à ceci :
What Replacement Actif % => ligne A1:C1
alpha ? VRAI % => ligne A2:C2
beta ? VRAI % => ligne A3:C3
De retour dans l'éditeur VBA ("ALT+F11") vous insérez dans le Module1
du "VBAProject(MyAddin.xlam)" :
______________________________________________
Public Sub Auto_Open() ' Automatically executed at startup
Call MakeAutoCorrect
End Sub
Private Sub MakeAutoCorrect(Optional Remove As Boolean = False)
Dim TabList, N&
N = Evaluate("=CountA(" &
ThisWorkbook.Worksheets("AutoCorrect").Range("A:A").Address(True, True,
xlA1, True) & ")")
TabList = ThisWorkbook.Worksheets("AutoCorrect").Range("A2:C" & N -
1).Value
On Error Resume Next
If Remove Then
For N = LBound(TabList, 1) To UBound(TabList, 1):
Excel.Application.AutoCorrect.DeleteReplacement what:=TabList(N, 1): Next
N
Else
For N = LBound(TabList, 1) To UBound(TabList, 1)
If TabList(N, 3) Then
Excel.Application.AutoCorrect.AddReplacement
what:=TabList(N, 1), replacement:=TabList(N, 2)
Else: Excel.Application.AutoCorrect.DeleteReplacement
what:=TabList(N, 1)
End If
Next N
End If
On Error Goto 0
End Sub
Private Sub SaveThisWorkbook()
ThisWorkbook.IsAddin = True
ThisWorkbook.Save
End Sub
Pour sauvegarder le classeur "MonAddin.xlam" vous lancerez la procédure
SaveThisWorkbook (en tapant sur "F5" lorsque le curseur est dedans).
Pour supprimer toutes vos corrections automatiques personnalisées,
vous pouvez appeler "MakeAutoCorrect" avec :
MakeAutoCorrect Remove:=True
Pour les appliquer au contraire, vous lancerez simplement la macro
"Auto_Open", qui de toutes façon s'exécutera automatiquement, à chaque
fois que le classeur "MonAddin.xlam" est ouvert, donc à chaque fois
que vous lancerez Excel puisqu'il a été enregistré dans les "Compléments"
chargés.
Cordialement.
Option Explicit
Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value =
TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure)
8) Vous retournez à Excel et voyez la liste des corrections automatiques
sur 2 colonnes.
-----------------------------------------------------------------------
Si vous voulez ajouter des corrections automatiques allez sur la "Feuil2"
et renommez la en "AutoCorrections"
Vous entrez là vos corrections automatiques supplémentaires,
par exemple :
En A2 : alpha en B2 : le caractère ?
caractère que vous obtenez en allant dans "Insertion" "Symboles" et
choisissez le caractère unicode "03B1"
Je vous conseille de mettre en C2 : VRAI
Comme cela, pour les corrections que vous voudriez supprimer, vous
mettrez "FAUX", pour celles que vous voulez actives vous mettrez "VRAI"
Donc votre feuille "AutoCorrections" ressemble à ceci :
What Replacement Actif % => ligne A1:C1
alpha ? VRAI % => ligne A2:C2
beta ? VRAI % => ligne A3:C3
De retour dans l'éditeur VBA ("ALT+F11") vous insérez dans le Module1
du "VBAProject(MyAddin.xlam)" :
______________________________________________
Public Sub Auto_Open() ' Automatically executed at startup
Call MakeAutoCorrect
End Sub
Private Sub MakeAutoCorrect(Optional Remove As Boolean = False)
Dim TabList, N&
N = Evaluate("=CountA(" &
ThisWorkbook.Worksheets("AutoCorrect").Range("A:A").Address(True, True,
xlA1, True) & ")")
TabList = ThisWorkbook.Worksheets("AutoCorrect").Range("A2:C" & N -
1).Value
On Error Resume Next
If Remove Then
For N = LBound(TabList, 1) To UBound(TabList, 1):
Excel.Application.AutoCorrect.DeleteReplacement what:=TabList(N, 1): Next
N
Else
For N = LBound(TabList, 1) To UBound(TabList, 1)
If TabList(N, 3) Then
Excel.Application.AutoCorrect.AddReplacement
what:=TabList(N, 1), replacement:=TabList(N, 2)
Else: Excel.Application.AutoCorrect.DeleteReplacement
what:=TabList(N, 1)
End If
Next N
End If
On Error Goto 0
End Sub
Private Sub SaveThisWorkbook()
ThisWorkbook.IsAddin = True
ThisWorkbook.Save
End Sub
Pour sauvegarder le classeur "MonAddin.xlam" vous lancerez la procédure
SaveThisWorkbook (en tapant sur "F5" lorsque le curseur est dedans).
Pour supprimer toutes vos corrections automatiques personnalisées,
vous pouvez appeler "MakeAutoCorrect" avec :
MakeAutoCorrect Remove:=True
Pour les appliquer au contraire, vous lancerez simplement la macro
"Auto_Open", qui de toutes façon s'exécutera automatiquement, à chaque
fois que le classeur "MonAddin.xlam" est ouvert, donc à chaque fois
que vous lancerez Excel puisqu'il a été enregistré dans les "Compléments"
chargés.
Cordialement.
Option Explicit
Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value =
TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure)
8) Vous retournez à Excel et voyez la liste des corrections automatiques
sur 2 colonnes.
-----------------------------------------------------------------------
Si vous voulez ajouter des corrections automatiques allez sur la "Feuil2"
et renommez la en "AutoCorrections"
Vous entrez là vos corrections automatiques supplémentaires,
par exemple :
En A2 : alpha en B2 : le caractère ?
caractère que vous obtenez en allant dans "Insertion" "Symboles" et
choisissez le caractère unicode "03B1"
Je vous conseille de mettre en C2 : VRAI
Comme cela, pour les corrections que vous voudriez supprimer, vous
mettrez "FAUX", pour celles que vous voulez actives vous mettrez "VRAI"
Donc votre feuille "AutoCorrections" ressemble à ceci :
What Replacement Actif % => ligne A1:C1
alpha ? VRAI % => ligne A2:C2
beta ? VRAI % => ligne A3:C3
De retour dans l'éditeur VBA ("ALT+F11") vous insérez dans le Module1
du "VBAProject(MyAddin.xlam)" :
______________________________________________
Public Sub Auto_Open() ' Automatically executed at startup
Call MakeAutoCorrect
End Sub
Private Sub MakeAutoCorrect(Optional Remove As Boolean = False)
Dim TabList, N&
N = Evaluate("=CountA(" &
ThisWorkbook.Worksheets("AutoCorrect").Range("A:A").Address(True, True,
xlA1, True) & ")")
TabList = ThisWorkbook.Worksheets("AutoCorrect").Range("A2:C" & N -
1).Value
On Error Resume Next
If Remove Then
For N = LBound(TabList, 1) To UBound(TabList, 1):
Excel.Application.AutoCorrect.DeleteReplacement what:=TabList(N, 1): Next
N
Else
For N = LBound(TabList, 1) To UBound(TabList, 1)
If TabList(N, 3) Then
Excel.Application.AutoCorrect.AddReplacement
what:=TabList(N, 1), replacement:=TabList(N, 2)
Else: Excel.Application.AutoCorrect.DeleteReplacement
what:=TabList(N, 1)
End If
Next N
End If
On Error Goto 0
End Sub
Private Sub SaveThisWorkbook()
ThisWorkbook.IsAddin = True
ThisWorkbook.Save
End Sub
Pour sauvegarder le classeur "MonAddin.xlam" vous lancerez la procédure
SaveThisWorkbook (en tapant sur "F5" lorsque le curseur est dedans).
Pour supprimer toutes vos corrections automatiques personnalisées,
vous pouvez appeler "MakeAutoCorrect" avec :
MakeAutoCorrect Remove:=True
Pour les appliquer au contraire, vous lancerez simplement la macro
"Auto_Open", qui de toutes façon s'exécutera automatiquement, à chaque
fois que le classeur "MonAddin.xlam" est ouvert, donc à chaque fois
que vous lancerez Excel puisqu'il a été enregistré dans les "Compléments"
chargés.
Cordialement.
7) Dans ce "Module1" rattaché à "MonAddin.xlam" vous entrez ces lignes
Option Private Module
Option Explicit
Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value
= TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure
Jusqu'au point 6... tout est nickel
lors de l'execution de la macro ( F 5 )
il y a un bugue à
=TabList
qui se surligne en bleu et la macro s'arréte....
7) Dans ce "Module1" rattaché à "MonAddin.xlam" vous entrez ces lignes
Option Private Module
Option Explicit
Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value
= TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure
Jusqu'au point 6... tout est nickel
lors de l'execution de la macro ( F 5 )
il y a un bugue à
=TabList
qui se surligne en bleu et la macro s'arréte....
7) Dans ce "Module1" rattaché à "MonAddin.xlam" vous entrez ces lignes
Option Private Module
Option Explicit
Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value
= TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure
Jusqu'au point 6... tout est nickel
lors de l'execution de la macro ( F 5 )
il y a un bugue à
=TabList
qui se surligne en bleu et la macro s'arréte....