A voir également:
- Compilation de dates
- Nombre de jours entre deux dates excel - Guide
- Airpods 3 date de sortie - Guide
- Breach compilation c'est quoi - Guide
- Somme si entre deux dates ✓ - Forum Excel
- Trouver une date de naissance gratuit ✓ - Forum Google Chrome
3 réponses
Bonjour
Copiez ceci dans le module "ThisWorkbook" et supprimez ce que vous avez saisi dans le module de la feuille 18
Copiez ceci dans le module "ThisWorkbook" et supprimez ce que vous avez saisi dans le module de la feuille 18
Private Sub Workbook_Open()
Feuil18.Select
Set c = Columns("D").Find(Date, LookIn:=xlValues)
If c Is Nothing Then Exit Sub
c.Select
End Sub
Cdlt
Bonjour.
Question 3 =
"Possibilité d'atteindre la date du jour à chaque ouverture du document ?" :
=AUJOURDHUI()
Question 3 =
"Possibilité d'atteindre la date du jour à chaque ouverture du document ?" :
=AUJOURDHUI()
Pour le point 3: Solution trouvée en cherchant un peu sur des forums
Double clic sur la case A1,
recherche le contenu de A1 dans la plage D6:D300 et sélection de la cellule si présent
Double clic sur la case A1,
recherche le contenu de A1 dans la plage D6:D300 et sélection de la cellule si présent
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range
Dim cellule As Range
Set plage = Range("D6:D300")
Set cellule = Range("A1")
Dim add As Range
Set add = plage.Find(cellule, LookIn:=xlValues, lookat:=xlWhole)
If Not add Is Nothing Then
MsgBox add.Address
add.Select
Else
MsgBox "non présent"
End If
End Sub
Merci Frenchie !