macro quand on active une feuiile

Le
André free
Bonjour,
J'ai besoin de vérifier que dans une feuille, l'utilisateur a bien renseigné
une cellule:
If Range("B5").Value
où dois-je mettre la macro et comment la nommer pour que à chaque sélection
de la feuille elle s'exécute ?
Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4254491
Bonsoir,

L'événement SheetActivate?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "coucou"
End Sub

JB
On 22 mar, 20:15, "André free"
Bonjour,
J'ai besoin de vérifier que dans une feuille, l'utilisateur a bien rens eigné
une cellule:
If Range("B5").Value...
où dois-je mettre la macro et comment la nommer pour que à chaque s élection
de la feuille elle s'exécute ?
Merci de votre aide


André free
Le #4254451
Oui,
et si je ne veux que pour une feuille, tout simplement:

Private Sub Worksheet_Activate()

Merci !

"JB" news:
Bonsoir,

L'événement SheetActivate?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "coucou"
End Sub

JB
On 22 mar, 20:15, "André free"
Bonjour,
J'ai besoin de vérifier que dans une feuille, l'utilisateur a bien
renseigné

une cellule:
If Range("B5").Value...
où dois-je mettre la macro et comment la nommer pour que à chaque
sélection

de la feuille elle s'exécute ?
Merci de votre aide


LSteph
Le #4254401
Bonjour,
Donc s'il y a déjà une valeur en B5 il n' y aura plus jamais besoin
de renseigner cette cellule...§?!
Alors voici mais il suffirait de désactiver les macros:

http://cjoint.com/?dwvkOcwWHa

où dois-je mettre la macro et comment la nommer pour que à chaque sélection
'''''****dans code Feuil1**************

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty([b5]) Then

[b5].Select
MsgBox "désolé impossible de laisser b5 vide"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin
Application.enablecancelkey=true
If IsEmpty([b5]) Then
Application.EnableEvents = False
MsgBox ("Vous devez impérativement renseigner b5")
[b5].Select
End If
fin:
Application.EnableEvents = True
End Sub

'''''**********dans Thisworkbook***********

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If IsEmpty(Feuil1.[b5]) Then
Cancel = True
MsgBox "désolé vous devez renseigner b5"
End If
End Sub

Private Sub Workbook_Open()
Feuil1.[a1].Select
End Sub



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo fin
Application.EnableEvents = False
If IsEmpty(Feuil1.[b5]) Then
Feuil1.Activate
[b5].Select

End If
fin:

Application.EnableEvents = True
End Sub



'*********************

'Cordialement

'lSteph

Bonjour,
J'ai besoin de vérifier que dans une feuille, l'utilisateur a bien renseigné
une cellule:
If Range("B5").Value...
où dois-je mettre la macro et comment la nommer pour que à chaque sélection
de la feuille elle s'exécute ?
Merci de votre aide




André free
Le #4254341
Oui, LSteph !

Quand l'utilisateur ouvre la feuille la première fois cette cellule est vide
et son renseignement est nécessaire pour la justesse des calculs
Ta proposition est top, puisque l'utilisateur ne peut pas fermer sans
renseigner la cellule !
Alors voici mais il suffirait de désactiver les macros:
Certes, mais s'il désactive les macros, le classeur n'a plus d'intérêt...


merci !

"LSteph" news:
Bonjour,
Donc s'il y a déjà une valeur en B5 il n' y aura plus jamais besoin
de renseigner cette cellule...§?!
Alors voici mais il suffirait de désactiver les macros:

http://cjoint.com/?dwvkOcwWHa

où dois-je mettre la macro et comment la nommer pour que à chaque
sélection


'''''****dans code Feuil1**************
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty([b5]) Then

[b5].Select
MsgBox "désolé impossible de laisser b5 vide"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin
Application.enablecancelkey=true
If IsEmpty([b5]) Then
Application.EnableEvents = False
MsgBox ("Vous devez impérativement renseigner b5")
[b5].Select
End If
fin:
Application.EnableEvents = True
End Sub

'''''**********dans Thisworkbook***********

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If IsEmpty(Feuil1.[b5]) Then
Cancel = True
MsgBox "désolé vous devez renseigner b5"
End If
End Sub

Private Sub Workbook_Open()
Feuil1.[a1].Select
End Sub



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo fin
Application.EnableEvents = False
If IsEmpty(Feuil1.[b5]) Then
Feuil1.Activate
[b5].Select

End If
fin:

Application.EnableEvents = True
End Sub



'*********************

'Cordialement

'lSteph

Bonjour,
J'ai besoin de vérifier que dans une feuille, l'utilisateur a bien
renseigné


une cellule:
If Range("B5").Value...
où dois-je mettre la macro et comment la nommer pour que à chaque
sélection


de la feuille elle s'exécute ?
Merci de votre aide






Publicité
Poster une réponse
Anonyme