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

[Krovax]

d'après ce que j'ai compris
dans le code de chaque feuill (si le nombre est fixe, sinon ca sera un peu plus dur)

Code :

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

1
2
3
Private Sub Worksheet_Activate()
auto_open
End Sub

en faisant dans la suboroutine auto_open les modifications de casefayere
ou plus simplement

Code :

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

1
2
3
4
5
sub auto_open
dim DerniereLigne  integer
DerniereLigne = activesheet.Range("A65536").End(xlUp).Row
cells(DerniereLigne +1,1)=now
end sub

(en espérant que tu as un entête de colonne)

[chuspyto]

voila mon code:

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

il fonctionne sans probleme des que je click sur mon fichier excel,mais le probleme que je rencontre c'est que mon fichier s'ouvre a partir d'une action sur un bouton via access.mon fichier s'ouvre bien,mais je n'ai plus la date et l'heure qui s'affiche.quelqu'un aurrait une solution?

merci d'avance

[Krovax]

Bonjour
Est ce que la macro se lance au moins? si ce n'est pas le cas il faut que tu regarde l'évènement qui la déclenche.

[chuspyto]

oui,quand dans access je click sur mon bouton,j'ai mon fichier excell qui s'ouvre mais le remplissage de la date automatique ne se fait pas.je n'ai aucun message d'erreur.car si je prends mon meme fichier excell et que je double click dessus mon fichier s'ouvre et mon remplissage de la date s'effectue bien.

je ne vois pas d'ou vient le probleme

[LeForestier]

Bonjour tous,
Si j'ai bien compris tu veux actualiser toutes les feuilles du classeur ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub auto_open()
Dim Wkf As Worksheet, Cel  As Range
 'MODIFIER la ligne suivante le "A" en fonction de la colonne
 'prévu pour contenir la date
    For Each Wkf In ThisWorkbook.Sheets
        With Wkf
            If .Range("A1") <> "" Then
                .Range("A2") = Now
            Else
                .Range("A" & .Cells(65536, 1).End(xlUp).Row) = Now
            End If
        End With
    Next Wkf
End Sub

A adapter aux autre événements.
A+

[chuspyto]

en fait pour le moment j'aimerai ne m'occuper que d'une seule feuille.mais pour le moment cela ne fonctionne pas quand je click sur un bouton la date ne s'affiche pas dans la cellule quand la feuille s'ouvre
je ne veux pas ouvrir le fichier par un double click(j'aurrai plusieurs fichier associer a des boutons

[Krovax]

Tu n'as pas répondu a ma question est ce que la macro se lance?
tu met en première ligne du code

Code :

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

msgbox "C'est bon!"

Si le message s'affiche alors la macro se lance le problème vient de cette macro, sinon c'est que la macro ne s'exécute pas et dans ce cas la le problème vient de l'évènement qui déclenche la macro.

[ouskel'n'or]

j'ai 8 feuilles et j'amerais savoir comment faire pour des que j'ouvre une feuille aléatoire la date s'affiche

Ce que j'ai compris c'est que : Chaque fois que tu passe d'une feuille de calculs dans une autre, le jour doit s'afficher.
Si c'est seulement ça, teste ce code à placer dans Thisworkbook (deux clics sur Thisworkbook dans l'éditeur VBA)

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Il est " & Time & " dans " & Sh.Name
End Sub

Bonne soirée