Macrothèque

Salut tout le monde

J'ai un peu fouiné sans trouver de sujet qui traite de ce que j'aimerai faire. Peut être que je me trompe, mais si ce n'est pas le cas, je vous expose mon idée.

Je me bricole des procédures pour améliorer et automatiser mes actions dans excel. Ces procédures me sont utiles au quotidien et c'est à partir de quelques lignes de codes utiles trouvées à droite à gauche que je suis en train de me lancer plus profondément dans VBA afin de mieux maîtriser l'outil. En voyant l'intérêt chaque jour de ce que cela apporte, j'ai fait grandir mon envie de connaissance.

Cela pourrait être convivial et utile pour tous (et surtout aux débutants) si on avait un sujet sur le blog ou le forum afin d'avoir une liste de macros utiles et pratiques.

Je me lance avec quelques unes des miennes afin que tout le monde comprenne l'idée :

Afficher / Masquer les lignes :

Sub affiche_ligne()
    'permet d'afficher les lignes masquées dans la sélection
    Selection.EntireRow.Hidden = False
End Sub

Sub masque_ligne()
    'permet de masquer les lignes dans la sélection
    Selection.EntireRow.Hidden = True
End Sub

C'est sympas en raccourcis sur la barre d'outil avec l'icone oeil ouvert/fermé par exemple :

Et en voici d'autres :

Sub Centrer_sur_plusieurs_colonnes()

    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With

End Sub

Sub Majuscule()
'Met en majuscule la sélection
Dim cellule As Range
For Each cellule In Selection
cellule = UCase(cellule)
Next
End Sub

Sub Minuscule()
'Met en minuscule la sélection
Dim cellule As Range
For Each cellule In Selection
cellule = LCase(cellule)
Next
End Sub

Sub Nom_propre()
'Met en nom propre la sélection
Dim cellule As Range
For Each cellule In Selection
cellule = Application.Proper(cellule)
Next
End Sub

Sub Supr_espace()
'Supprime les doubles espaces dans la selection
Dim cellule As Range
For Each cellule In Selection
cellule = Application.Trim(cellule)
Next
End Sub

Sub Minuscule()
'Convertir en nombre la sélection
Dim cellule As Range
For Each cellule In Selection
cellule = Cnum(cellule)
Next
End Sub

Donc voila l'idée, un post permanent ou un article sur le site pour partager nos macros pratiques, faciles et utiles au quotidien.

Merci beaucoup