Discussion :

[chuspyto]

bonjour,
j'ai 8 feuilles et j'amerais savoir comment faire pour des que j'ouvre une feuille aléatoire la date s'affiche.dans un module j'ai deja ce code qui fonctionne seulement dans la feuille 1.

Public derl As Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub auto_open()
Dim i As Range
 'MODIFIER la ligne suivante le "A" en fonction de la colonne
 'prévu pour contenir la date
 Set i = ThisWorkbook.Sheets("Feuil1").Range("A1")
 If i <> "" Then
    If i.Offset(1, 0) = "" Then
      Set i = i.Offset(1, 0)
    Else
      Set i = i.End(xlDown).Offset(1, 0)
    End If
 End If
 i = Now
 
 End Sub

de plus j'ai ceci dans thisworkbook et j'aimerais que cela fonctionne dans toutes les feuilles en même temps que les dates.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub workbook_beforeclose(cancel As Boolean)
If Sheets("feuil1").Range("c" & derl).Value = "" Then
MsgBox "saisie incomplète" & derl
cancel = True
Else
 
Application.DisplayAlerts = True
End If
End Sub
 
Private Sub workbook_open()
With Sheets("feuil1")
If .Range("c1") = "" Then
derl = 1
Else
derl = .Range("c" & Rows.Count).End(xlUp)(2).Row
End If
End With
End Sub

pour résumé les codes que j'ai ci dessus ,j'aimrais que cela fonctionne quelque soit la feuille ouverte

merci d'avance

[casefayere]

Bonjour chuspyto, re le forum,

si tes codes sont dans un ou des module(s), à mon avis il suffit de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("A1")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activesheet.Range("A1")

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("feuil1").Range("c" & derl).Value

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activesheet.Range("c" & derl).Value

Bonne journée

[chuspyto]

j'ai fait les remplacements,mais il ne se passe rien

[casefayere]

Le code fonctionne t'il dans feuil1 ?
si oui, c'est parce que les autres feuilles n'ont pas les conditions requises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If i <> "" Then
    If i.Offset(1, 0) = "" Then

à mon avis...

[chuspyto]

en fait l'heure s'affiche dans la 1er feuille quand lee classeur s'ouvre mais ce que je desire c'est qu'elle s'affiche automatiquement quand je change de feuille.
si non si tu regarde bien le bout de code que tu me demande de rajouter apparait deja dans le mien (d'origine)

[casefayere]

je crois qu'on ne se comprends pas.

1 - veux-tu voir l'heure dans chaque feuille ?
2 - le petit bout de code que j'ai mis (qui est le tien), c'est uniquement pour expliquer une raison possible à la défaillance du code
3- le mieux aurait été d'envoyer un fichier meme raccourci

Bonne fin de journée