transfert de correction automatique

Re bonjour

tant que j'y suis, y a-t-il moyen de fusionner ce fichier avec le même de ma machine du travail pour avoir toutes les abréviations partout dans un seul et même fichier ?

Re merci
Re Lebobib1

bonjour

j'espere que cet exemple pourra t'aider

la premiere macro( a utiliser dans un classeur de ton ancienne machine ) permet de recuperer toutes les données de l'option correction automatique


Sub listerOptionsAutoCorrection()
Dim Tableau()
Dim X As Integer

Tableau = Application.AutoCorrect.ReplacementList
For X = 1 To UBound(Tableau)
Cells(X, 1) = Tableau(X, 1)
Cells(X, 2) = Tableau(X, 2)
Next
End Sub


ensuite tu transferts le classeur contenant ces données sur ta nouvelle machine
et tu lances la 2eme macro
la procedure va controler si les données du classeur existent deja dans la liste des options automatiques de la nouvelle machine
si les données n'existent pas , elles vont etre ajoutées à la liste de la nouvelle machine

bien sur ce n'est qu'un exemple , et tu devras sans doute l'adapter à ton projet (remise en du tableau avant transfert …ect…)


Sub fusionOptionsAutocorrection()
Dim Tableau()
Dim X As Integer
Dim Cell As Range
Dim Cible As Boolean

Tableau = Application.AutoCorrect.ReplacementList

For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
Cible = False

For X = 1 To UBound(Tableau)
If Tableau(X, 1) = Cell Then
Cible = True
Exit For
End If
Next X

If Cible = False Then Application.AutoCorrect.AddReplacement Cell, Cell.Offset(0, 1)

Next Cell
End Sub



bonne journée
MichelXld

Merci MichelXLD,

je viens de faire la manip au bureau, ça a marché du tonnerre !

Encore merci et bon dimanche,
Bib1