AIDE AVEC VBA

Résolu/Fermé
jbg85 Messages postés 6 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 23 avril 2008 - 23 avril 2008 à 15:46
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 23 avril 2008 à 16:33
Bonjour,
J'ai posté un message il y a 40 min sur le fonctionnement de VBA.
Est ce qu'il y a quelqu'un qui peut me répondre car c'est urgent.
Merci par avance,

J-baptiste

2 réponses

arrial Messages postés 1756 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 29 mars 2025 251
23 avril 2008 à 15:51
Alt F11 = éditeur
F1 ou F3 selon contexte = aide ?

Quelle est la question ?
0
jbg85 Messages postés 6 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 23 avril 2008
23 avril 2008 à 15:55
Bonjour,
Comment fait-on pour que dans une cellule d'excel s'affiche la date de modification du classeur. J'ai vu qu'il fallait mettre ce programme dans this workbook:
Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Mais comment on fait dans VBA et comment ensuite on fait pour que ça marche dans le classeur.

Merci par avance

Configuration: Windows XP
Firefox 2.0.0.14
0
jbg85 Messages postés 6 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 23 avril 2008
23 avril 2008 à 16:25
AVEZ-VOUS UNE SOLUTION?

Bonjour,
Comment fait-on pour que dans une cellule d'excel s'affiche la date de modification du classeur. J'ai vu qu'il fallait mettre ce programme dans this workbook:
Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Mais comment on fait dans VBA et comment ensuite on fait pour que ça marche dans le classeur.

Merci par avance

Configuration: Windows XP
Firefox 2.0.0.14
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 avril 2008 à 16:33
bonjour,

tu ouvres l'éditeur VB (alt+F11), tu doubles cliques sur thisWorkbook. Ensuite tu fais un copier/coller du code que tu as mis. Tu sauvegardes ton fichier, tu le fermes et ensuite tu le relances.

La date se mettra automatiquement dans la première cellule de la première feuille Excel de ton classeur après chaque modif, sans que tu fasses autre chose.

;o)

polux
0