Ortographe

Correction automatique

Lister tous les remplacements pré-disponibles sous votre version d'Excel (924 sous Excel 97)

Sub test()
dim repl
dim rng As range
Set rng = worksheets(1).[a1]
repl = application.AutoCorrect.ReplacementList
Debug.Print LBound(repl); ubound(repl)
range(rng(1, 1), rng(ubound(repl) + 1, 2)).value = repl
end Su

Valeur cible

Instruction VBA : range("B4").GoalSeek Goal:=0, ChangingCell:=range("B5")
Cette instruction permet d'effectuer la recherche sur la cellule B4, d'indiquer le résultat recherché et la cellule à modifier.

Remarque : enregistrer une macro en effectuant vos manipulations dans excel, vous verrez alors le code généré.

Outils/Options/ Onglet Général/

Dans les paramètres, l'option Style de référence L1C1 peut vous servir.
Je cherche d'ailleurs une explication claire à ce sujet :

Si l'option Style de référence L1C1 est choisie, une formule du type A1= A2+ A3 devra s'écrire : A1=L(1)C+L(2)C, ce qui signifie que l'on reste sur la même colonne mais que l'on se déplace d'une ligne pour atteindre la valeur d'A2 et de deux lignes pour atteindre A3. A3 est dans la même colonne mais deux lignes en dessous.

Autre exemple, soit A3=A1+A2,
en référence L1C1, cela correspond à =L(-2)C+L(-1)C,
on se déplace en amont d'A3 d'où le signe négatif.  (L(-2)C=A1; L(-1)C=A2).

Vous pouvez définir notamment le nom d'utilisateur, le nombre de feuilles par défaut dans un classeur, le chemin par défaut, désactiver l'alerte macros ... et même faire en sorte qu'Excel ignore les autres applis.

Afficher le dialogue options d'environnement (reprenant certaines choses à différents onglets) : application.Dialogs(Excel.XlBuiltInDialog.xlDialogWorkspace).Show

Outils/Options/ Onglet Calcul/

application.Calculation = xlCalculationManual           'calcul manuel
application.Calculation = xlCalculationAutomatic       'calcul automatique
application.calculate    'calculer le document excel sans pour autant passer en mode automatique

Afficher seulement l'onglet Calcul de la boîte d'options (boîte simplifiée)application.Dialogs(Excel.XlBuiltInDialog.xlDialogCalculation).Show

Outils/Options/ Onglet Affichage/

des options intéressantes dans le sous-menu  Fenêtre : Remplacer les valeurs par les formules;
les onglets, les barres de défilement, les en-têtes de lignes &colonnes DISPARAISSENT, les valeurs zéro aussi.

Vous trouverez dans Outils/Options/ Onglet Affichage/ le moyen d'enlever la barre de formule, la barre d'état, etc.
Quelques éléments résumés sur le tableau, avec dans la troisième colonne l'objet concerné. => application.displaystatusbar=false/true

La barre de formule La barre de statut La barre de défilement horizontale La barre de défilement verticale Les barres de défilement Les en-têtes de ligne et de colonne Les onglets Les barres d'outils

displayformulabar displaystatusbar displayhorizontalscrollbar displayverticalscrollbar displayscrollbars displayheadings displayworkbooktabs displayfullscreen

application application window window application window window application

!!!! Par le biais de ces options notamment, vous personnalisez votre affichage :
      => passez ensuite par le menu Affichage/ Affichages personnalisés pour sauvegarder cet affichage puis le réutiliser

'Basculer de l'affichage au masque des en-têtes de colonnes et de lignes

Sub toggleRC()
    with activewindow
    .displayHeadings = Not .displayHeadings
    end with
end Sub

'Basculer du mode normal au mode plein écran avec désactivation barre d'outils standards (il y a peut être une ou deux lignes inutiles)

Sub HideShowMenus()
    With application
        .msgbox = Not .msgbox
        .displayfullscreen = Not .displayfullscreen
        .activewindow.displayWorkbookTabs = Not .activewindow.displayWorkbookTabs
        .activewindow.displayHeadings = Not .activewindow.displayHeadings
        .activewindow.displayHorizontalScrollBar = Not .activewindow.displayHorizontalScrollBar
        .activewindow.displayVerticalScrollBar = Not .activewindow.displayVerticalScrollBar
        .CommandBars("Worksheet Menu Bar").Enabled = Not .CommandBars("Worksheet Menu Bar").Enabled
        .msgbox = Not .msgbox
    End With
    HideMenus = true
End Sub

'Afficher seulement l'onglet Affichage de la boîte d'options (boîte simplifiée): application.Dialogs(Excel.XlBuiltInDialog.xlDialogdisplay).Show

'Afficher les formules ou les masquer en conservant la taille des colonnes, par JL

Sub Affichage_Valeurs_Ou_Formules()

Static SngLargeurs() As Single, IntCol As Integer
On Error GoTo gesterr

If activewindow.displayformulas = false Then
ReDim SngLargeurs(activeSheet.usedrange.columns.count)
For IntCol = 1 To activeSheet.usedrange.columns.count
SngLargeurs(IntCol) = activeSheet.usedrange.columns(IntCol).columnwidth
Next IntCol
activewindow.displayformulas = true
activeSheet.cells.EntireColumn.AutoFit
Else
For IntCol = 1 To activeSheet.usedrange.columns.count
activeSheet.usedrange.columns(IntCol).columnwidth = SngLargeurs(IntCol)
Next IntCol
activewindow.displayformulas = false


End If
Exit Sub
gesterr:
msgbox Err.Number & Err.Description
End Sub