Astuces
- 1ére Astuce : La date automatique
Si vous voulez avoir la date automatiquement à l'ouverture de votre fichier le matin :
- Faites alt+F11 pour placer ouvrir la fenêtre de code.
- Cliquez dans la page ThisWorkbook
- Copiez/collez-y le code suivant :
Private Sub Workbook_open()
'changement date
Dim ws As Worksheet
Set ws = Sheets("Feuil1")
Application.ScreenUpdating = False
ws.Range("A1").Value = DateValue(Now()) 'format texte
ws.Range("A1").NumberFormat = "m/d/yyyy" 'inversement date américaine
End Sub
Pour le résultat de la date de l'ouverture du fichier :
De la même façon, on peut faire une opération sur une page en cliquant sur le nom de l'onglet en bas de classeur. Vous pouvez m'en faire la demande gratuitement.
- 2éme Astuce : La ligne colorée
Pour une meilleure lecture, vous pouvez colorer la ligne cliquée d'un tableau structuré.
Pour avoir un tableau structuré :
- Faites insertion/tableau sur la zone qu'occupe votre tableau.
- Donnez un nom à votre tableau.
- Faites alt+F11 pour ouvrir la fenêtre de code.
- Cliquez dans la page ThisWorkbook
- Copiez/collez-y le code suivant :
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
'ligne coloree
Dim tb As ListObject, ws As Worksheet
Set ws = Sheets("Salariés") 'Nom de l'onglet du tableau
Set tb = ws.ListObjects("Salars") 'Nom donné à la feuille
Cells.EntireRow.Interior.Pattern = xlNone
If Target.Row < 2 Then Exit Sub
If Not Intersect(Range("A:U"), Target) Is Nothing Then
Range(Range("A" & Target.Row), Cells(Target.Row, tb.ListColumns.Count)).Interior.Color = RGB(0, 255, 255)
End If
End Sub
Pour le résultat suivant :
Le fichier Excel pour les astuces