pas testé mais rajoutes application.EnableEventsúlse en début
application.EnableEvents=true à la fin -- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Merci.
Philippe.R
Bonjour, Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub If Target <= 1 Then Target = Target & " Boite" Else Target = Target & " Boites" End If End Sub
C'est mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Merci.
Bonjour,
Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub
If Target <= 1 Then
Target = Target & " Boite"
Else
Target = Target & " Boites"
End If
End Sub
C'est mieux ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"azza" <azaz@aaz.az> a écrit dans le message de news:ulpQa%23hnEHA.396@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
j'ai ce bout de code qui controle une colone dans feuil1
pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target<=1 then
Target=Target & " Boite"
else
Target=Target & " Boites"
endif
End Sub
il m'affiche:
( 1er cas <=1) Boite Boites Boites Boites Boites Boites......
( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub If Target <= 1 Then Target = Target & " Boite" Else Target = Target & " Boites" End If End Sub
C'est mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Merci.
azza
Re,
La réponse de ru-th ca marche mais à chaque fois que je supprime le contenu de la cellule, " Boite" existe tjrs, cad: que meme si la cellule est vide apres effacement ou F2 + Echap la cellule contien "Boite"
Pour Philippe.R ton controle est impecable ( franchement tu pense à tous) et la procedure fonctionne correctement.
Merci à vous. "Philippe.R" a écrit dans le message de news:
Bonjour, Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub If Target <= 1 Then Target = Target & " Boite" Else Target = Target & " Boites" End If End Sub
C'est mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Merci.
Re,
La réponse de ru-th ca marche mais à chaque fois que je supprime le contenu
de la cellule, " Boite" existe tjrs, cad: que meme si la cellule est vide
apres effacement ou F2 + Echap la cellule contien "Boite"
Pour Philippe.R ton controle est impecable ( franchement tu pense à tous) et
la procedure fonctionne correctement.
Merci à vous.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
e92xdQinEHA.3628@TK2MSFTNGP09.phx.gbl...
Bonjour,
Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub
If Target <= 1 Then
Target = Target & " Boite"
Else
Target = Target & " Boites"
End If
End Sub
C'est mieux ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"azza" <azaz@aaz.az> a écrit dans le message de
news:ulpQa%23hnEHA.396@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
j'ai ce bout de code qui controle une colone dans feuil1
pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target<=1 then
Target=Target & " Boite"
else
Target=Target & " Boites"
endif
End Sub
il m'affiche:
( 1er cas <=1) Boite Boites Boites Boites Boites Boites......
( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
La réponse de ru-th ca marche mais à chaque fois que je supprime le contenu de la cellule, " Boite" existe tjrs, cad: que meme si la cellule est vide apres effacement ou F2 + Echap la cellule contien "Boite"
Pour Philippe.R ton controle est impecable ( franchement tu pense à tous) et la procedure fonctionne correctement.
Merci à vous. "Philippe.R" a écrit dans le message de news:
Bonjour, Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub If Target <= 1 Then Target = Target & " Boite" Else Target = Target & " Boites" End If End Sub
C'est mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Merci.
Philippe.R
Re, Ceci dit, cette affaire pourrait aussi se régler (plus simplement ?) par un format personnalisé : [<2]0" Boite";0" Boites" En tout cas, c'est avec plaisir que je pense à tous même si je ne pense pas à tout ;o)) -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:%23gKV$
Re,
La réponse de ru-th ca marche mais à chaque fois que je supprime le contenu de la cellule, " Boite" existe tjrs, cad: que meme si la cellule est vide apres effacement ou F2 + Echap la cellule contien "Boite"
Pour Philippe.R ton controle est impecable ( franchement tu pense à tous) et la procedure fonctionne correctement.
Merci à vous. "Philippe.R" a écrit dans le message de news:
Bonjour, Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub If Target <= 1 Then Target = Target & " Boite" Else Target = Target & " Boites" End If End Sub
C'est mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Merci.
Re,
Ceci dit, cette affaire pourrait aussi se régler (plus simplement ?) par un format personnalisé :
[<2]0" Boite";0" Boites"
En tout cas, c'est avec plaisir que je pense à tous même si je ne pense pas à tout ;o))
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"azza" <azaz@aaz.az> a écrit dans le message de news:%23gKV$QjnEHA.2340@TK2MSFTNGP11.phx.gbl...
Re,
La réponse de ru-th ca marche mais à chaque fois que je supprime le contenu
de la cellule, " Boite" existe tjrs, cad: que meme si la cellule est vide
apres effacement ou F2 + Echap la cellule contien "Boite"
Pour Philippe.R ton controle est impecable ( franchement tu pense à tous) et
la procedure fonctionne correctement.
Merci à vous.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
e92xdQinEHA.3628@TK2MSFTNGP09.phx.gbl...
Bonjour,
Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub
If Target <= 1 Then
Target = Target & " Boite"
Else
Target = Target & " Boites"
End If
End Sub
C'est mieux ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"azza" <azaz@aaz.az> a écrit dans le message de
news:ulpQa%23hnEHA.396@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
j'ai ce bout de code qui controle une colone dans feuil1
pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target<=1 then
Target=Target & " Boite"
else
Target=Target & " Boites"
endif
End Sub
il m'affiche:
( 1er cas <=1) Boite Boites Boites Boites Boites Boites......
( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
Re, Ceci dit, cette affaire pourrait aussi se régler (plus simplement ?) par un format personnalisé : [<2]0" Boite";0" Boites" En tout cas, c'est avec plaisir que je pense à tous même si je ne pense pas à tout ;o)) -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:%23gKV$
Re,
La réponse de ru-th ca marche mais à chaque fois que je supprime le contenu de la cellule, " Boite" existe tjrs, cad: que meme si la cellule est vide apres effacement ou F2 + Echap la cellule contien "Boite"
Pour Philippe.R ton controle est impecable ( franchement tu pense à tous) et la procedure fonctionne correctement.
Merci à vous. "Philippe.R" a écrit dans le message de news:
Bonjour, Et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not (IsNumeric(Target)) Or IsEmpty(Target) Then Exit Sub If Target <= 1 Then Target = Target & " Boite" Else Target = Target & " Boites" End If End Sub
C'est mieux ? -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"azza" a écrit dans le message de news:ulpQa%
Bonjour à tous, j'ai ce bout de code qui controle une colone dans feuil1 pour juste ajouter Boite ou Boites le voila:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target<=1 then Target=Target & " Boite" else Target=Target & " Boites" endif End Sub
il m'affiche: ( 1er cas <=1) Boite Boites Boites Boites Boites Boites...... ( 2eme cas >1 ) Boites Boites Boites Boites Boites Boites Boites....
PS: Si j'enleve le Else ca marche bien pour le 1er cas.
