Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a pas été sélectionnée?
Merci
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "" Then
[A1] = "."
Else
If [A1] = "." Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
http://cjoint.com/?ddtAAxnMxm
JB
On 3 mar, 19:10, "Jacques" <none> wrote:
Bonjour,
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a
pas été sélectionnée?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a pas été sélectionnée?
Merci
Jacques
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a pas été sélectionnée?
Merci
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune
macro... est-elle masquée?
"JB" <boisgontier@hotmail.com> a écrit dans le message de groupe de
discussion :
0ebb0cdb-12b8-45ca-ae18-e5765b126e69@q33g2000hsh.googlegroups.com...
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "" Then
[A1] = "."
Else
If [A1] = "." Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
http://cjoint.com/?ddtAAxnMxm
JB
On 3 mar, 19:10, "Jacques" <none> wrote:
Bonjour,
Comme rendre la saisie dans une cellule obligatoire, même si la cellule
n'a
pas été sélectionnée?
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a pas été sélectionnée?
Merci
JB
Double-cliquer sur ThisWorkBook.
JB On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellul e n'a pas été sélectionnée?
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Double-cliquer sur ThisWorkBook.
JB
On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune
macro... est-elle masquée?
"JB" <boisgont...@hotmail.com> a écrit dans le message de groupe de
discussion :
0ebb0cdb-12b8-45ca-ae18-e5765b126...@q33g2000hsh.googlegroups.com...
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "" Then
[A1] = "."
Else
If [A1] = "." Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
http://cjoint.com/?ddtAAxnMxm
JB
On 3 mar, 19:10, "Jacques" <none> wrote:
Bonjour,
Comme rendre la saisie dans une cellule obligatoire, même si la cellul e
n'a
pas été sélectionnée?
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellul e n'a pas été sélectionnée?
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Jacques
pax compris
"JB" a écrit dans le message de groupe de discussion :
Double-cliquer sur ThisWorkBook.
JB On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a pas été sélectionnée?
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
pax compris
"JB" <boisgontier@hotmail.com> a écrit dans le message de groupe de
discussion :
b4ad1d87-ccb1-4a2f-bdd8-e1fc01919fc1@f47g2000hsd.googlegroups.com...
Double-cliquer sur ThisWorkBook.
JB
On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune
macro... est-elle masquée?
"JB" <boisgont...@hotmail.com> a écrit dans le message de groupe de
discussion :
0ebb0cdb-12b8-45ca-ae18-e5765b126...@q33g2000hsh.googlegroups.com...
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "" Then
[A1] = "."
Else
If [A1] = "." Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
http://cjoint.com/?ddtAAxnMxm
JB
On 3 mar, 19:10, "Jacques" <none> wrote:
Bonjour,
Comme rendre la saisie dans une cellule obligatoire, même si la cellule
n'a
pas été sélectionnée?
"JB" a écrit dans le message de groupe de discussion :
Double-cliquer sur ThisWorkBook.
JB On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cellule n'a pas été sélectionnée?
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
-Alt+F11 -Double-click sur ThisWorkBook pour voir le code
JB On 3 mar, 20:51, "Jacques" <none> wrote:
pax compris
"JB" a écrit dans le message de groupe de discussion :
Double-cliquer sur ThisWorkBook.
JB On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Comme rendre la saisie dans une cellule obligatoire, même si la cell ule n'a pas été sélectionnée?
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
-Alt+F11
-Double-click sur ThisWorkBook pour voir le code
JB
On 3 mar, 20:51, "Jacques" <none> wrote:
pax compris
"JB" <boisgont...@hotmail.com> a écrit dans le message de groupe de
discussion :
b4ad1d87-ccb1-4a2f-bdd8-e1fc01919...@f47g2000hsd.googlegroups.com...
Double-cliquer sur ThisWorkBook.
JB
On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune
macro... est-elle masquée?
"JB" <boisgont...@hotmail.com> a écrit dans le message de groupe de
discussion :
0ebb0cdb-12b8-45ca-ae18-e5765b126...@q33g2000hsh.googlegroups.com...
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "" Then
[A1] = "."
Else
If [A1] = "." Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
http://cjoint.com/?ddtAAxnMxm
JB
On 3 mar, 19:10, "Jacques" <none> wrote:
Bonjour,
Comme rendre la saisie dans une cellule obligatoire, même si la cell ule
n'a
pas été sélectionnée?
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
-Alt+F11 -Double-click sur ThisWorkBook pour voir le code
JB On 3 mar, 20:51, "Jacques" <none> wrote:
pax compris
"JB" a écrit dans le message de groupe de discussion :
Double-cliquer sur ThisWorkBook.
JB On 3 mar, 20:12, "Jacques" <none> wrote:
Merci
mais quand je vais dans outils/macros du fichier je ne trouve aucune macro... est-elle masquée?
"JB" a écrit dans le message de groupe de discussion :
Bonsoir,
Vérif à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "" Then [A1] = "." Else If [A1] = "." Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub