Validation de cellule dans VBA

Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je m'explique :
imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible d'y
mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

Salut Yann,

Merci pour ton aide, mais le code ne fait rien du tout.

Je m'explique, j'ai une cellule (imaginons A6) qui se remplit
automatiquement grâce à un code de double clic. Parallèlement à cela, j'au
un autre code, qui quand la cellule A6 change, une photo s'insère en A8.
Mais le problème, quand je fais mon double clic, A6 se remplit correctement,
mais je dois sélectionner A6, aller dans la barre de formules et Entrée afin
que l'image s'insère.

J'espère que cette petite explication permettre à quelqu'un de m'aider.

Encore merci ...

<anonymous@discussions.microsoft.com> a écrit dans le message de
news:296601c48699$34ffbcb0$a301280a@phx.gbl...
Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je m'explique :
imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible d'y
mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

Re-,
Ne pourrais-tu pas alors faire appel, directement dans
ton code, à la procédure liée au changement de valeur
dans A6 ?

Bye
Yann

-----Message d'origine-----
Salut Yann,

Merci pour ton aide, mais le code ne fait rien du tout.

Je m'explique, j'ai une cellule (imaginons A6) qui se
remplit

automatiquement grâce à un code de double clic.
Parallèlement à cela, j'au

un autre code, qui quand la cellule A6 change, une photo
s'insère en A8.

Mais le problème, quand je fais mon double clic, A6 se
remplit correctement,

mais je dois sélectionner A6, aller dans la barre de
formules et Entrée afin

que l'image s'insère.

J'espère que cette petite explication permettre à
quelqu'un de m'aider.

Encore merci ...

<anonymous@discussions.microsoft.com> a écrit dans le
message de

news:296601c48699$34ffbcb0$a301280a@phx.gbl...
Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je m'explique :
imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible d'y
mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

.

Re bonjour,

Le problème est que pour l'insertion de l'image, j'ai déjà un code lié au
changement de A6, mon code commence par ça :

Private Sub Worksheet_Change(ByVal target As Range)
...
If Not Intersect (Target, Range("A6")) Is Nothing Then
bla bla bla

Lorsque je change manuellement la valeur de A6, ça marche impec. Mais
lorsque la valeur de A6 change suite à un double clique sur une autre
cellule, l'image s'insère n'importe où (et je sais pas pourquoi), et
seulement lorsque je fais entrée dans la cellule, l'image s'insère là où il
faut, c'est pourquoi j'avais pensé à insérer dans le code d'insertion
d'image (où dans une macro à part) la validation de la cellule.

Aurais-tu une idée ou saurais-tu pourquoi l'image s'insère n'importe comment
?

Merci d'avance pour ton aide,

Amicalement

"Yann" <ypelissier@yahoo.Com> a écrit dans le message de
news:9ba301c486a0$ea059420$a401280a@phx.gbl...
Re-,
Ne pourrais-tu pas alors faire appel, directement dans
ton code, à la procédure liée au changement de valeur
dans A6 ?

Bye
Yann

-----Message d'origine-----
Salut Yann,

Merci pour ton aide, mais le code ne fait rien du tout.

Je m'explique, j'ai une cellule (imaginons A6) qui se
remplit

automatiquement grâce à un code de double clic.
Parallèlement à cela, j'au

un autre code, qui quand la cellule A6 change, une photo
s'insère en A8.

Mais le problème, quand je fais mon double clic, A6 se
remplit correctement,

mais je dois sélectionner A6, aller dans la barre de
formules et Entrée afin

que l'image s'insère.

J'espère que cette petite explication permettre à
quelqu'un de m'aider.

Encore merci ...

<anonymous@discussions.microsoft.com> a écrit dans le
message de

news:296601c48699$34ffbcb0$a301280a@phx.gbl...
Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je m'explique :
imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible d'y
mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

.

Re-Re-,
Je ne connais pas cette instruction... Intersect...
Mais on dirait que ça cherche l'intersection entre 2
plages de célulle(s).

Bon, OK...

Maintenant, pour ton petit bout de code que tu m'as
montré, le "Target" correspond à la céllule qui vient
d'être modifiée. Vérifie déjà si ton objet "Target"
correspond bien à ta célulle A6 (je pense que oui) ?
Ensuite, vérifie que tu ne fais pas ton opération de
mettre l'image avec ActiveCell sinon, il te la met la où
tu as ta célulle active, qui n'est pas forcément A6
lorsque tu programmes, mais qui l'est lorsque tu sors de
la barre de formule (ben oui car pour y entré, tu l'as
sélectionnée)

Yann

-----Message d'origine-----
Re bonjour,

Le problème est que pour l'insertion de l'image, j'ai
déjà un code lié au

changement de A6, mon code commence par ça :

Private Sub Worksheet_Change(ByVal target As Range)
....
If Not Intersect (Target, Range("A6")) Is Nothing Then
bla bla bla

Lorsque je change manuellement la valeur de A6, ça
marche impec. Mais

lorsque la valeur de A6 change suite à un double clique
sur une autre

cellule, l'image s'insère n'importe où (et je sais pas
pourquoi), et

seulement lorsque je fais entrée dans la cellule,
l'image s'insère là où il

faut, c'est pourquoi j'avais pensé à insérer dans le
code d'insertion

d'image (où dans une macro à part) la validation de la
cellule.

Aurais-tu une idée ou saurais-tu pourquoi l'image
s'insère n'importe comment

?

Merci d'avance pour ton aide,

Amicalement

"Yann" <ypelissier@yahoo.Com> a écrit dans le message de
news:9ba301c486a0$ea059420$a401280a@phx.gbl...
Re-,
Ne pourrais-tu pas alors faire appel, directement dans
ton code, à la procédure liée au changement de valeur
dans A6 ?

Bye
Yann

-----Message d'origine-----
Salut Yann,

Merci pour ton aide, mais le code ne fait rien du tout.

Je m'explique, j'ai une cellule (imaginons A6) qui se
remplit

automatiquement grâce à un code de double clic.
Parallèlement à cela, j'au

un autre code, qui quand la cellule A6 change, une photo
s'insère en A8.

Mais le problème, quand je fais mon double clic, A6 se
remplit correctement,

mais je dois sélectionner A6, aller dans la barre de
formules et Entrée afin

que l'image s'insère.

J'espère que cette petite explication permettre à
quelqu'un de m'aider.

Encore merci ...

<anonymous@discussions.microsoft.com> a écrit dans le
message de

news:296601c48699$34ffbcb0$a301280a@phx.gbl...
Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je m'explique :
imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible d'y
mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

.

.

Coucou Yann !!

Merci pour ton aide, je vais voir ça !!

Amicalement

"Yann" <ypelissier@yahoo.com> a écrit dans le message de
news:9a5c01c486b1$79712c90$a501280a@phx.gbl...
Re-Re-,
Je ne connais pas cette instruction... Intersect...
Mais on dirait que ça cherche l'intersection entre 2
plages de célulle(s).

Bon, OK...

Maintenant, pour ton petit bout de code que tu m'as
montré, le "Target" correspond à la céllule qui vient
d'être modifiée. Vérifie déjà si ton objet "Target"
correspond bien à ta célulle A6 (je pense que oui) ?
Ensuite, vérifie que tu ne fais pas ton opération de
mettre l'image avec ActiveCell sinon, il te la met la où
tu as ta célulle active, qui n'est pas forcément A6
lorsque tu programmes, mais qui l'est lorsque tu sors de
la barre de formule (ben oui car pour y entré, tu l'as
sélectionnée)

Yann

-----Message d'origine-----
Re bonjour,

Le problème est que pour l'insertion de l'image, j'ai
déjà un code lié au

changement de A6, mon code commence par ça :

Private Sub Worksheet_Change(ByVal target As Range)
....
If Not Intersect (Target, Range("A6")) Is Nothing Then
bla bla bla

Lorsque je change manuellement la valeur de A6, ça
marche impec. Mais

lorsque la valeur de A6 change suite à un double clique
sur une autre

cellule, l'image s'insère n'importe où (et je sais pas
pourquoi), et

seulement lorsque je fais entrée dans la cellule,
l'image s'insère là où il

faut, c'est pourquoi j'avais pensé à insérer dans le
code d'insertion

d'image (où dans une macro à part) la validation de la
cellule.

Aurais-tu une idée ou saurais-tu pourquoi l'image
s'insère n'importe comment

?

Merci d'avance pour ton aide,

Amicalement

"Yann" <ypelissier@yahoo.Com> a écrit dans le message de
news:9ba301c486a0$ea059420$a401280a@phx.gbl...
Re-,
Ne pourrais-tu pas alors faire appel, directement dans
ton code, à la procédure liée au changement de valeur
dans A6 ?

Bye
Yann

-----Message d'origine-----
Salut Yann,

Merci pour ton aide, mais le code ne fait rien du tout.

Je m'explique, j'ai une cellule (imaginons A6) qui se
remplit

automatiquement grâce à un code de double clic.
Parallèlement à cela, j'au

un autre code, qui quand la cellule A6 change, une photo
s'insère en A8.

Mais le problème, quand je fais mon double clic, A6 se
remplit correctement,

mais je dois sélectionner A6, aller dans la barre de
formules et Entrée afin

que l'image s'insère.

J'espère que cette petite explication permettre à
quelqu'un de m'aider.

Encore merci ...

<anonymous@discussions.microsoft.com> a écrit dans le
message de

news:296601c48699$34ffbcb0$a301280a@phx.gbl...
Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je m'explique :
imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible d'y
mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

.

.

3Re-
Ce n'est qu'une piste de recherche...
Tiens moi au courant...

Bye
Yann

-----Message d'origine-----
Coucou Yann !!

Merci pour ton aide, je vais voir ça !!

Amicalement

"Yann" <ypelissier@yahoo.com> a écrit dans le message de
news:9a5c01c486b1$79712c90$a501280a@phx.gbl...
Re-Re-,
Je ne connais pas cette instruction... Intersect...
Mais on dirait que ça cherche l'intersection entre 2
plages de célulle(s).

Bon, OK...

Maintenant, pour ton petit bout de code que tu m'as
montré, le "Target" correspond à la céllule qui vient
d'être modifiée. Vérifie déjà si ton objet "Target"
correspond bien à ta célulle A6 (je pense que oui) ?
Ensuite, vérifie que tu ne fais pas ton opération de
mettre l'image avec ActiveCell sinon, il te la met la où
tu as ta célulle active, qui n'est pas forcément A6
lorsque tu programmes, mais qui l'est lorsque tu sors de
la barre de formule (ben oui car pour y entré, tu l'as
sélectionnée)

Yann

-----Message d'origine-----
Re bonjour,

Le problème est que pour l'insertion de l'image, j'ai
déjà un code lié au

changement de A6, mon code commence par ça :

Private Sub Worksheet_Change(ByVal target As Range)
....
If Not Intersect (Target, Range("A6")) Is Nothing Then
bla bla bla

Lorsque je change manuellement la valeur de A6, ça
marche impec. Mais

lorsque la valeur de A6 change suite à un double clique
sur une autre

cellule, l'image s'insère n'importe où (et je sais pas
pourquoi), et

seulement lorsque je fais entrée dans la cellule,
l'image s'insère là où il

faut, c'est pourquoi j'avais pensé à insérer dans le
code d'insertion

d'image (où dans une macro à part) la validation de la
cellule.

Aurais-tu une idée ou saurais-tu pourquoi l'image
s'insère n'importe comment

?

Merci d'avance pour ton aide,

Amicalement

"Yann" <ypelissier@yahoo.Com> a écrit dans le message de
news:9ba301c486a0$ea059420$a401280a@phx.gbl...
Re-,
Ne pourrais-tu pas alors faire appel, directement dans
ton code, à la procédure liée au changement de valeur
dans A6 ?

Bye
Yann

-----Message d'origine-----
Salut Yann,

Merci pour ton aide, mais le code ne fait rien du tout.

Je m'explique, j'ai une cellule (imaginons A6) qui se
remplit

automatiquement grâce à un code de double clic.
Parallèlement à cela, j'au

un autre code, qui quand la cellule A6 change, une
photo

s'insère en A8.

Mais le problème, quand je fais mon double clic, A6 se
remplit correctement,

mais je dois sélectionner A6, aller dans la barre de
formules et Entrée afin

que l'image s'insère.

J'espère que cette petite explication permettre à
quelqu'un de m'aider.

Encore merci ...

<anonymous@discussions.microsoft.com> a écrit dans le
message de

news:296601c48699$34ffbcb0$a301280a@phx.gbl...
Salut aife1,
Tu peux remplacer ton 1er code par
Sub ValiderCellule()
Range("A6") = "Bonjour"
End Sub
mais cela ne te le vérifie pas, il te l'impose...

Pour le vérifier fait plutôt
Sub ValiderCellule()
If Range("A6") = "" Then MsgBox "Message d'erreur"
End Sub

Bye
Yann

-----Message d'origine-----
Bonjour à tous et à toutes !!

J'aimerais savoir comment valider le contenue d'une
cellule par une macro.

J'ai trouvé un code, mais il ne va pas, je
m'explique :

imaginons que je

veux valider la cellule A6 qui contient "Bonjour", le
code serait :

Sub ValiderCellule()
Range("A6").Select
ActiveCell.FormulaR1C1 = "Bonjour"
End Sub

Mais le problème est que je veux valider une cellule
dont le contenu peut

changer, donc dans le code il ne m'est pas possible
d'y

mettre le contenu de

la cellule, puisque je ne le sais pas à l'avance.
Je voudrais également savoir si je peux faire la même
chose, pas avec une

cellule, mais avec une plage nommée.

En espérant avoir été assez précise sur mon problème,

D'avance merci pour votre aide,

Salutations


.

.

.

.