Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H J,
que toutes les lignes soit saisi obligatoirement.
c'est a dire si je passe à une autre ligne et que ces champs ne sont pas
rempli je souhaite verrouiller toute les cellules pour écritures,avec un
message,et si ces champs sont rempli alors deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub
If Range("A" & Target.Row - 1).Value <> "" And Range("B" & Target.Row -
1).Value <> "" _
And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub
MsgBox "erreur de saisie"
End Sub
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
Patrick BASTARD
Bonjour, *rick* J'ai lu ton post avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Dis-moi si ça convient.
-- Bien cordialement, P. Bastard
bonjour,
Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H J, que toutes les lignes soit saisi obligatoirement. c'est a dire si je passe à une autre ligne et que ces champs ne sont pas rempli je souhaite verrouiller toute les cellules pour écritures,avec un message,et si ces champs sont rempli alors deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub If Range("A" & Target.Row - 1).Value <> "" And Range("B" & Target.Row - 1).Value <> "" _ And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub MsgBox "erreur de saisie" End Sub
Avez vous une idéé?
merci d'avance
Bonjour, *rick*
J'ai lu ton post 9BD3DDE5-7AD8-4214-9576-3C485BE6AB5D@microsoft.com
avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Dis-moi si ça convient.
--
Bien cordialement,
P. Bastard
bonjour,
Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H
J, que toutes les lignes soit saisi obligatoirement.
c'est a dire si je passe à une autre ligne et que ces champs ne sont
pas rempli je souhaite verrouiller toute les cellules pour
écritures,avec un message,et si ces champs sont rempli alors
deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub
If Range("A" & Target.Row - 1).Value <> "" And Range("B" &
Target.Row - 1).Value <> "" _
And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub
MsgBox "erreur de saisie"
End Sub
Bonjour, *rick* J'ai lu ton post avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Dis-moi si ça convient.
-- Bien cordialement, P. Bastard
bonjour,
Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H J, que toutes les lignes soit saisi obligatoirement. c'est a dire si je passe à une autre ligne et que ces champs ne sont pas rempli je souhaite verrouiller toute les cellules pour écritures,avec un message,et si ces champs sont rempli alors deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub If Range("A" & Target.Row - 1).Value <> "" And Range("B" & Target.Row - 1).Value <> "" _ And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub MsgBox "erreur de saisie" End Sub
Avez vous une idéé?
merci d'avance
rick
pour ma premiere ligne si j'oublie un champ je passe à la ligne suivante, sans message d'erreur, c'est seulement en saisissant sur la deuxieme ligne que j'ai le message, mais je souhaite savoir si je peux controler la premiere ligne ou il manque le champ, et le message serait attention vous avez oublié un champ.
car il est possible qu'on se saisissent qu'une ligne.
as tu une idéé?
merci d'avance
Bonjour, *rick* J'ai lu ton post avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Dis-moi si ça convient.
-- Bien cordialement, P. Bastard
bonjour,
Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H J, que toutes les lignes soit saisi obligatoirement. c'est a dire si je passe à une autre ligne et que ces champs ne sont pas rempli je souhaite verrouiller toute les cellules pour écritures,avec un message,et si ces champs sont rempli alors deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub If Range("A" & Target.Row - 1).Value <> "" And Range("B" & Target.Row - 1).Value <> "" _ And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub MsgBox "erreur de saisie" End Sub
Avez vous une idéé?
merci d'avance
pour ma premiere ligne si j'oublie un champ je passe à la ligne suivante,
sans message d'erreur, c'est seulement en saisissant sur la deuxieme ligne
que j'ai le message, mais je souhaite savoir si je peux controler la premiere
ligne ou il manque le champ, et le message serait attention vous avez oublié
un champ.
car il est possible qu'on se saisissent qu'une ligne.
as tu une idéé?
merci d'avance
Bonjour, *rick*
J'ai lu ton post 9BD3DDE5-7AD8-4214-9576-3C485BE6AB5D@microsoft.com
avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Dis-moi si ça convient.
--
Bien cordialement,
P. Bastard
bonjour,
Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H
J, que toutes les lignes soit saisi obligatoirement.
c'est a dire si je passe à une autre ligne et que ces champs ne sont
pas rempli je souhaite verrouiller toute les cellules pour
écritures,avec un message,et si ces champs sont rempli alors
deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub
If Range("A" & Target.Row - 1).Value <> "" And Range("B" &
Target.Row - 1).Value <> "" _
And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub
MsgBox "erreur de saisie"
End Sub
pour ma premiere ligne si j'oublie un champ je passe à la ligne suivante, sans message d'erreur, c'est seulement en saisissant sur la deuxieme ligne que j'ai le message, mais je souhaite savoir si je peux controler la premiere ligne ou il manque le champ, et le message serait attention vous avez oublié un champ.
car il est possible qu'on se saisissent qu'une ligne.
as tu une idéé?
merci d'avance
Bonjour, *rick* J'ai lu ton post avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Dis-moi si ça convient.
-- Bien cordialement, P. Bastard
bonjour,
Je souhaite sur chaque ligne de mon tableau, dans les colonne A D E H J, que toutes les lignes soit saisi obligatoirement. c'est a dire si je passe à une autre ligne et que ces champs ne sont pas rempli je souhaite verrouiller toute les cellules pour écritures,avec un message,et si ces champs sont rempli alors deverrouiller les cellules.
J'ai cette macro : mais elle n'est pas trop adapté. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub If Range("A" & Target.Row - 1).Value <> "" And Range("B" & Target.Row - 1).Value <> "" _ And Range("C" & Target.Row - 1).Value <> "" Then Exit Sub MsgBox "erreur de saisie" End Sub
Avez vous une idéé?
merci d'avance
Patrick BASTARD
Bonjour, *rick* J'ai lu ton post avec le plus grand intéret :
...mais je souhaite savoir si je peux controler la premiere ligne ou il manque le champ, et le message serait attention vous avez oublié un champ.
car il est possible qu'on se saisissent qu'une ligne.
as tu une idéé?
oui : change la formule dans données - validation...
merci d'avance
Je t'en prie.
Bonjour, *rick* J'ai lu ton post avec le plus grand intéret :
Une solution ici :
http://cjoint.com/?eftLHNmk5u
Avez vous une idéé?
merci d'avance
Bonjour, *rick*
J'ai lu ton post E3BBDB76-F5CB-432C-8798-BCC8ABE33B21@microsoft.com
avec le plus grand intéret :
...mais je souhaite savoir si je
peux controler la premiere ligne ou il manque le champ, et le message
serait attention vous avez oublié un champ.
car il est possible qu'on se saisissent qu'une ligne.
as tu une idéé?
oui : change la formule dans données - validation...
merci d'avance
Je t'en prie.
Bonjour, *rick*
J'ai lu ton post 9BD3DDE5-7AD8-4214-9576-3C485BE6AB5D@microsoft.com
avec le plus grand intéret :
