Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub etc....
AV
Guy72
Merci, mais ça me pose un problème quand je me sert de la liste déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34". Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count > 1) qui est surligné. Cordialement Guy
"AV" a écrit dans le message de news: O$
Mais ou je met ça ?
On première instruction :
Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub etc....
AV
Merci, mais ça me pose un problème quand je me sert de la liste déroulante
(qui comprend des nombres de 0 à 20 ) qui est en "C34".
Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count >
1) qui est surligné.
Cordialement
Guy
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
O$Q3w9ooHHA.4552@TK2MSFTNGP04.phx.gbl...
Mais ou je met ça ?
On première instruction :
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target <> Range("C34") Then Exit Sub
etc....
Merci, mais ça me pose un problème quand je me sert de la liste déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34". Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count > 1) qui est surligné. Cordialement Guy
"AV" a écrit dans le message de news: O$
Mais ou je met ça ?
On première instruction :
Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub etc....
AV
AV
Merci, mais ça me pose un problème quand je me sert de la liste déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34". Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count > 1) qui est surligné.
Sauf infos suplémentaires, je ne vois pas de cause d'erreur...
http://cjoint.com/?fEkTK61mVc
AV
Merci, mais ça me pose un problème quand je me sert de la liste déroulante
(qui comprend des nombres de 0 à 20 ) qui est en "C34".
Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count > 1)
qui est surligné.
Sauf infos suplémentaires, je ne vois pas de cause d'erreur...
Merci, mais ça me pose un problème quand je me sert de la liste déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34". Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count > 1) qui est surligné.
Sauf infos suplémentaires, je ne vois pas de cause d'erreur...
http://cjoint.com/?fEkTK61mVc
AV
Guy72
regarde avec mon fichier, peut être qu'il y a autre chose. http://cjoint.com/?fEk5ENBsOs Cordialement Guy
"AV" a écrit dans le message de news: ur$
Merci, mais ça me pose un problème quand je me sert de la liste déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34". Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count
1) qui est surligné.
Sauf infos suplémentaires, je ne vois pas de cause d'erreur...
http://cjoint.com/?fEkTK61mVc
AV
regarde avec mon fichier, peut être qu'il y a autre chose.
http://cjoint.com/?fEk5ENBsOs
Cordialement
Guy
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
ur$xncpoHHA.4032@TK2MSFTNGP02.phx.gbl...
Merci, mais ça me pose un problème quand je me sert de la liste
déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34".
Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count
1) qui est surligné.
Sauf infos suplémentaires, je ne vois pas de cause d'erreur...
regarde avec mon fichier, peut être qu'il y a autre chose. http://cjoint.com/?fEk5ENBsOs Cordialement Guy
"AV" a écrit dans le message de news: ur$
Merci, mais ça me pose un problème quand je me sert de la liste déroulante (qui comprend des nombres de 0 à 20 ) qui est en "C34". Quand je sélectionne un chiffre dans la liste, c'est (If Selection.Count
1) qui est surligné.
Sauf infos suplémentaires, je ne vois pas de cause d'erreur...
http://cjoint.com/?fEkTK61mVc
AV
AV
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet
range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle
Tu dois donc modifier là
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
Guy72
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas faire autrement ? Comment peut on changer un objet "Shape" en objet "range" ? Cordialement Guy
"AV" a écrit dans le message de news: OA%
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas
faire autrement ?
Comment peut on changer un objet "Shape" en objet "range" ?
Cordialement
Guy
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
OA%23xAxpoHHA.1216@TK2MSFTNGP03.phx.gbl...
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un
objet range d'où l'erreur du "Selection.Count" au cours de la proc
évènementielle
Tu dois donc modifier là
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas faire autrement ? Comment peut on changer un objet "Shape" en objet "range" ? Cordialement Guy
"AV" a écrit dans le message de news: OA%
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
MichDenis
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub Select Case [Target] Case 1 Call iti1 Case 2 Call iti2 Case 3 Call iti3 Case Else Call raz End Select End Sub
"Guy72" a écrit dans le message de news:
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas faire autrement ? Comment peut on changer un objet "Shape" en objet "range" ? Cordialement Guy
"AV" a écrit dans le message de news: OA%
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("C34") Then Exit Sub
Select Case [Target]
Case 1
Call iti1
Case 2
Call iti2
Case 3
Call iti3
Case Else
Call raz
End Select
End Sub
"Guy72" <guy72@bonjour.net> a écrit dans le message de news:
ehZMH7poHHA.4132@TK2MSFTNGP02.phx.gbl...
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas
faire autrement ?
Comment peut on changer un objet "Shape" en objet "range" ?
Cordialement
Guy
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
OA%23xAxpoHHA.1216@TK2MSFTNGP03.phx.gbl...
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un
objet range d'où l'erreur du "Selection.Count" au cours de la proc
évènementielle
Tu dois donc modifier là
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub Select Case [Target] Case 1 Call iti1 Case 2 Call iti2 Case 3 Call iti3 Case Else Call raz End Select End Sub
"Guy72" a écrit dans le message de news:
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas faire autrement ? Comment peut on changer un objet "Shape" en objet "range" ? Cordialement Guy
"AV" a écrit dans le message de news: OA%
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
Guy72
Bonjour Impeccable ça fonctionne.
Merci de ton aide
J'en profite pour te poser une autre question :
Est-il possible que le bouton avec la flèche d'une liste déroulante puisse rester visible ?
Cordialement Guy
"MichDenis" a écrit dans le message de news:
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub Select Case [Target] Case 1 Call iti1 Case 2 Call iti2 Case 3 Call iti3 Case Else Call raz End Select End Sub
"Guy72" a écrit dans le message de news:
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas faire autrement ? Comment peut on changer un objet "Shape" en objet "range" ? Cordialement Guy
"AV" a écrit dans le message de news: OA%
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là
AV
Bonjour
Impeccable ça fonctionne.
Merci de ton aide
J'en profite pour te poser une autre question :
Est-il possible que le bouton avec la flèche d'une liste déroulante puisse
rester visible ?
Cordialement
Guy
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
e5elQ3qoHHA.3968@TK2MSFTNGP06.phx.gbl...
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("C34") Then Exit Sub
Select Case [Target]
Case 1
Call iti1
Case 2
Call iti2
Case 3
Call iti3
Case Else
Call raz
End Select
End Sub
"Guy72" <guy72@bonjour.net> a écrit dans le message de news:
ehZMH7poHHA.4132@TK2MSFTNGP02.phx.gbl...
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas
faire autrement ?
Comment peut on changer un objet "Shape" en objet "range" ?
Cordialement
Guy
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
OA%23xAxpoHHA.1216@TK2MSFTNGP03.phx.gbl...
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non
un
objet range d'où l'erreur du "Selection.Count" au cours de la proc
évènementielle
Tu dois donc modifier là
Est-il possible que le bouton avec la flèche d'une liste déroulante puisse rester visible ?
Cordialement Guy
"MichDenis" a écrit dans le message de news:
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target <> Range("C34") Then Exit Sub Select Case [Target] Case 1 Call iti1 Case 2 Call iti2 Case 3 Call iti3 Case Else Call raz End Select End Sub
"Guy72" a écrit dans le message de news:
D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas faire autrement ? Comment peut on changer un objet "Shape" en objet "range" ? Cordialement Guy
"AV" a écrit dans le message de news: OA%
regarde avec mon fichier, peut être qu'il y a autre chose.
C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non un objet range d'où l'erreur du "Selection.Count" au cours de la proc évènementielle Tu dois donc modifier là