Ces liens qu’on ne retrouve jamais : la liste des boîtes de dialogue d’excel

C’est ici :

https://docs.microsoft.com/en-us/office/vba/api/excel.xlbuiltindialog

Et en Français :

https://docs.microsoft.com/fr-fr/office/vba/api/excel.xlbuiltindialog

L’u­til­i­sa­tion est très sim­ple, il suf­fit d’u­tilis­er un code comme celui-ci :

Sub AfficheAutoCorrection()
     Application.Dialogs(xlDialogAutoCorrect).Show
End Sub

Et rem­plac­er le nom de la boite de dia­logue qui est en par­en­thès­es.

Les plus clas­siques sont :

Sub AfficheOuvrir()
     Application.Dialogs(xlDialogOpen).Show
End Sub

ou encore celle-ci qui est une boîte de dia­logue dif­fi­cile à trou­ver:

Sub AfficheListesPersonnalisees()
     Application.Dialogs(xlDialogOptionsListsAdd).Show
End Sub

Evidem­ment, vous pou­vez aus­si ajouter ces fonc­tion­nal­ités à la barre d’ac­cès rapi­de, mais pour la créa­tion de vos appli­ca­tions, ca reste très intéres­sant à con­naitre.

Et en lien avec ce post, je vous invite à relire celui-ci qui liste cer­taines fonc­tion­nal­ités hyper cachées dans Excel :

A bien­tôt !

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel

Préparation d’un nouveau produit !

Bon­jour à tous,

Comme les mois de Juil­let et Août sont tra­di­tion­nelle­ment plus calmes, je suis en train de peaufin­er un nou­veau pro­duit.

Celui-ci va repren­dre une for­ma­tion com­binée à une nou­velle appli­ca­tion qui sera nom­mée XLer­a­teur !

Je vous tiens au courant pour la suite très prochaine­ment!

A bien­tôt.

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel

Suivre les changements dans une cellule

Bon­jour à tous,

Voici une petite macro qui pour­rait vous ren­dre de grands ser­vices.

L’ob­jec­tif est de suiv­re les mod­i­fi­ca­tions apportées dans une plage spé­ci­fique d’une feuille de cal­cul.

Ici, la cel­lule mod­i­fiée est mise en rouge et un com­men­taire avec l’his­torique des mod­i­fi­ca­tions est ajoutée.

Vous pou­vez télécharg­er le fichi­er ici :

Lien du fichi­er

Pour utilis­er le code dans vos appli­ca­tions, définis­sez une plage avec le nom “PlageA­Com­pleter”

Puis, clic droit sur la feuille, visu­alis­er le code et coller le code ci-dessous.
Le code est rel­a­tive­ment court, mais il reste encore un cer­tain nom­bre de cas non traités. Par exem­ple, on ne peut pas tra­vailler avec plusieurs cel­lules en même temps, le copi­er coller ne va pas bien fonc­tion­ner, ou encore l’ab­sence d’an­nu­la­tion.

Option Explicit
Public AncienneValeur As Variant
Public bNePasTraquerSuivi As Boolean
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
    If bNePasTraquerSuivi Then Exit Sub
    AncienneValeur = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If bNePasTraquerSuivi Or Selection.Cells.Count > 1 Then Exit Sub
    Dim strCommentText As String
    If Not Intersect(Target, Range("PlageACompleter")) Is Nothing Then
        Target.Interior.Color = RGB(255, 0, 0)
        If Not Target.Comment Is Nothing Then
            strCommentText = Target.Comment.Text
            Target.Comment.Text Text:=Date & " " & Time & " : " & CStr(AncienneValeur) & vbCrLf & strCommentText
        Else
            Target.AddComment Date & " " & Time & " : " & CStr(AncienneValeur)
        End If
    End If
End Sub

N’hésitez pas à me dire si ce code vous est utile.

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel