Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
e3zFAECOGHA.3576@TK2MSFTNGP15.phx.gbl...
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
e3zFAECOGHA.3576@TK2MSFTNGP15.phx.gbl...
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
e3zFAECOGHA.3576@TK2MSFTNGP15.phx.gbl...
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" a écrit dans le message de news:
#XHI$Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modificationsne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
eK8SU5JOGHA.1288@TK2MSFTNGP09.phx.gbl...
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#XHI$2COGHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
e3zFAECOGHA.3576@TK2MSFTNGP15.phx.gbl...
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" a écrit dans le message de news:
#XHI$Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modificationsne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" a écrit dans le message de news:
#XHI$Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modificationsne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
eK8SU5JOGHA.1288@TK2MSFTNGP09.phx.gbl...
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#XHI$2COGHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
e3zFAECOGHA.3576@TK2MSFTNGP15.phx.gbl...
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." a écrit dans le message de news:
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" a écrit dans le message de news:
#XHI$Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modificationsne sera possible sur cette ligne. Je veux donc empêcher de supprimer ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
... il est seulement là pour limiter le type
de données qu'un usager peut entrer !
Bonjour Caroline,
| je peux faire Delete et cela fonctionne
Un critère de validatation ne peut pas empêcher la suppression
du contenu de la cellule... il est seulement là pour limiter le type
de données qu'un usager peut entrer !
Si tu désires autre chose, il faudra spécifier...
Salutations!
"Caroline L." a écrit dans le message de news:
J'ai essayé ta formule et j'ignore ce que je fait de pas correct mais je
peux faire Delete et cela fonctionne. Par contre, pour interdire les
entrées
non numériques cela fonctionne. C'est encore le code E5<>"" qui ne
fonctionne pas.
As-tu une idée ?
Merci
"michdenis" a écrit dans le message de news:
#Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
videet que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenude la cellule n'autorise pas les nombres inférieurs à 1000 mais la
premièrepartie de ma formule ne fonctionne pas, je veux dire qu'il est possible
en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" a écrit dans le message de news:
#XHI$Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode
d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modificationsne sera possible sur cette ligne. Je veux donc empêcher de supprimer
ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veuxpas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
... il est seulement là pour limiter le type
de données qu'un usager peut entrer !
Bonjour Caroline,
| je peux faire Delete et cela fonctionne
Un critère de validatation ne peut pas empêcher la suppression
du contenu de la cellule... il est seulement là pour limiter le type
de données qu'un usager peut entrer !
Si tu désires autre chose, il faudra spécifier...
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
O3Q7xaKOGHA.1028@TK2MSFTNGP11.phx.gbl...
J'ai essayé ta formule et j'ignore ce que je fait de pas correct mais je
peux faire Delete et cela fonctionne. Par contre, pour interdire les
entrées
non numériques cela fonctionne. C'est encore le code E5<>"" qui ne
fonctionne pas.
As-tu une idée ?
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#AkOyKKOGHA.3936@TK2MSFTNGP10.phx.gbl...
Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
eK8SU5JOGHA.1288@TK2MSFTNGP09.phx.gbl...
Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
vide
et que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenu
de la cellule n'autorise pas les nombres inférieurs à 1000 mais la
première
partie de ma formule ne fonctionne pas, je veux dire qu'il est possible
en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#XHI$2COGHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,
la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode
d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
e3zFAECOGHA.3576@TK2MSFTNGP15.phx.gbl...
Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modifications
ne sera possible sur cette ligne. Je veux donc empêcher de supprimer
ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veux
pas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
... il est seulement là pour limiter le type
de données qu'un usager peut entrer !
Bonjour Caroline,
| je peux faire Delete et cela fonctionne
Un critère de validatation ne peut pas empêcher la suppression
du contenu de la cellule... il est seulement là pour limiter le type
de données qu'un usager peut entrer !
Si tu désires autre chose, il faudra spécifier...
Salutations!
"Caroline L." a écrit dans le message de news:
J'ai essayé ta formule et j'ignore ce que je fait de pas correct mais je
peux faire Delete et cela fonctionne. Par contre, pour interdire les
entrées
non numériques cela fonctionne. C'est encore le code E5<>"" qui ne
fonctionne pas.
As-tu une idée ?
Merci
"michdenis" a écrit dans le message de news:
#Et si tu veux aussi interdire les entrées non numériques
=ET(ESTNUM(E5)*(E5<>"")*(E5>1000))
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour michdenis,
Merci pour ton code.
Je cherche maintenant à ajouter une validation (avec le menu Données,
Validation). Je cherche la formule qui va "empêcher que la cellule soit
videet que le nombre entier soit supérieur à 1000".
J'ai essayé la formule suivante (pour la cellule E5):
=ET(E5<>"")=(E5>1000)
Cela fonctionne pour la 2e partie de la formule, c'est-à-dire que le
contenude la cellule n'autorise pas les nombres inférieurs à 1000 mais la
premièrepartie de ma formule ne fonctionne pas, je veux dire qu'il est possible
en
ce moment avec ma formule, que le contenu soit vide alors que je veux
interdire cela.
Peux-tu m'aider à corriger ma formule ?
Merci
Caroline
"michdenis" a écrit dans le message de news:
#XHI$Bonjour Caroline,
Essaie ceci dans la feuille module où l'action se déroule :
Attention : Dès qu'une cellule de la ligne passe en mode "édition" UNE
FOIS,la procédure ne permettra pas aucune modification à cette ligne...
Sauf que la valeur d'une cellule n'a pas besoin d'être modifiée..
Pour passer en mode édition, l'usager peut :
A ) utiliser la touche F2
B ) faire un double-clic dans la cellule
C ) Inscrire une donnée lorsque la cellule est sélectionnée.
La procédure qui suit ne fait aucune distinction quant au mode
d'édition
que l'usager a utilisé....Conséquence: la valeur de la cellule n'a pas
nécessairement été modifiée... pour que la procédure s'exécute...
'à déclarer dans le haut dudit module feuille.
Dim Ok As Boolean
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
Ok = True
End If
End Sub
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Target, Range("5:5"))
If Not Rg Is Nothing Then
If Ok = True Then
Me.Protect DrawingObjects:=True, Contents:=True
End If
Else
Me.Unprotect
End If
End Sub
'--------------------------
Salutations!
"Caroline L." a écrit dans le message de news:Bonjour à vous !
Je cherche à solutionner la chose suivante mais j'ignore si cela est
possible (sûrement...)...
Assitôt qu'une donnée sera saisie sur la ligne 5, plus aucune
modificationsne sera possible sur cette ligne. Je veux donc empêcher de supprimer
ou
modifier une donnée sur cette fameuse ligne 5. Mais attention : je ne
veuxpas appliquer cette règle à l'ensemble de la feuille. Aussi, j'ai la
restriction que la feuille ne doit pas être protégée avec la commande
"Protéger la feuille".
Alors, qu'en dites-vous ?
Merci à l'avance pour vos idées.
Caroline
