Select Case course
Case 1 To 5:
note_course =3D "5"
Case 5.01 To 10:
note_course =3D "10"
Case "ne", "NE":
note_course =3D "NE"
Case Else:
note_course =3D ""
End Select
' pour la natation
Select Case natation
Case 0 To 50:
note_natation =3D "4"
Case 51 To 100:
note_natation =3D "8"
Case "ne", "NE":
note_natation =3D "NE"
Case Else:
note_natation =3D ""
End Select
Case 11 To 13: ' de 11 ans =E0 13 ans
' pour la course
Select Case course
Case 1 To 5:
note_course =3D "3"
Case 5.01 To 10:
note_course =3D "7"
Case "ne", "NE":
note_course =3D "NE"
Case Else:
note_course =3D ""
End Select
' pour la natation
Select Case natation
Case 0 To 50:
note_natation =3D "2"
Case 51 To 100:
note_natation =3D "4"
Case "ne", "NE":
note_natation =3D "NE"
Case Else:
note_natation =3D ""
End Select
End Select
End If
Next i
Select Case course Case 1 To 5: note_course = "5" Case 5.01 To 10: note_course = "10" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "4" Case 51 To 100: note_natation = "8" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select
Case 11 To 13: ' de 11 ans à 13 ans
' pour la course
Select Case course Case 1 To 5: note_course = "3" Case 5.01 To 10: note_course = "7" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "2" Case 51 To 100: note_natation = "4" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select End Select End If Next i
End Sub
bonjour magic,
tout fonctionne correctement chaque ligne est bien executé,
quel est le problème ?
que veut tu faire exactement ?
isabelle
bonjour
voici mon code qui ne marche pas, je trouve a bizarre d'autant plus
que c'est une ebauche de projet
je vous joint le code et le fichier
merci d'eclairer ma lanterne.
http://cjoint.com/?dgwgTNv0q0
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case course
Case 1 To 5:
note_course = "5"
Case 5.01 To 10:
note_course = "10"
Case "ne", "NE":
note_course = "NE"
Case Else:
note_course = ""
End Select
' pour la natation
Select Case natation
Case 0 To 50:
note_natation = "4"
Case 51 To 100:
note_natation = "8"
Case "ne", "NE":
note_natation = "NE"
Case Else:
note_natation = ""
End Select
Case 11 To 13: ' de 11 ans à 13 ans
' pour la course
Select Case course
Case 1 To 5:
note_course = "3"
Case 5.01 To 10:
note_course = "7"
Case "ne", "NE":
note_course = "NE"
Case Else:
note_course = ""
End Select
' pour la natation
Select Case natation
Case 0 To 50:
note_natation = "2"
Case 51 To 100:
note_natation = "4"
Case "ne", "NE":
note_natation = "NE"
Case Else:
note_natation = ""
End Select
End Select
End If
Next i
Select Case course Case 1 To 5: note_course = "5" Case 5.01 To 10: note_course = "10" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "4" Case 51 To 100: note_natation = "8" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select
Case 11 To 13: ' de 11 ans à 13 ans
' pour la course
Select Case course Case 1 To 5: note_course = "3" Case 5.01 To 10: note_course = "7" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "2" Case 51 To 100: note_natation = "4" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select End Select End If Next i
End Sub
magic-dd
bonsoir isabelle
he bien je n'ai pas l'impression que ca foctionne car en fonction de lage et de la categorie les notes devrais s'afficher dans les colonnes a dequat
j'ai rien qui ne se passe
bonsoir isabelle
he bien je n'ai pas l'impression que ca foctionne
car en fonction de lage et de la categorie
les notes devrais s'afficher dans les colonnes a dequat
he bien je n'ai pas l'impression que ca foctionne car en fonction de lage et de la categorie les notes devrais s'afficher dans les colonnes a dequat
j'ai rien qui ne se passe
isabelle
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande. les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple Range("D" & i) = MaVariable
isabelle
bonsoir isabelle
he bien je n'ai pas l'impression que ca foctionne car en fonction de lage et de la categorie les notes devrais s'afficher dans les colonnes a dequat
j'ai rien qui ne se passe
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande.
les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple
Range("D" & i) = MaVariable
isabelle
bonsoir isabelle
he bien je n'ai pas l'impression que ca foctionne
car en fonction de lage et de la categorie
les notes devrais s'afficher dans les colonnes a dequat
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande. les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple Range("D" & i) = MaVariable
isabelle
bonsoir isabelle
he bien je n'ai pas l'impression que ca foctionne car en fonction de lage et de la categorie les notes devrais s'afficher dans les colonnes a dequat
j'ai rien qui ne se passe
magic-dd
euh la je suis sous la vague
pourrais tu m'aider un peu stp
peut etre en corrigeant
je comorends mieux la lecture du vba que l'ecriture
donc en corrigant mon exemple cela m'aiderai bien.
si possible bien entendu
merci
On 6 mar, 22:34, isabelle wrote:
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande. les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple Range("D" & i) = MaVariable
isabelle
euh la je suis sous la vague
pourrais tu m'aider un peu stp
peut etre en corrigeant
je comorends mieux la lecture du vba que l'ecriture
donc en corrigant mon exemple cela m'aiderai bien.
si possible bien entendu
merci
On 6 mar, 22:34, isabelle <i@v> wrote:
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande.
les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple
Range("D" & i) = MaVariable
je comorends mieux la lecture du vba que l'ecriture
donc en corrigant mon exemple cela m'aiderai bien.
si possible bien entendu
merci
On 6 mar, 22:34, isabelle wrote:
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande. les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple Range("D" & i) = MaVariable
isabelle
isabelle
dit moi pour chaque Select Case dans quel cellule le résultat doit s'inscrire,
isabelle
euh la je suis sous la vague
pourrais tu m'aider un peu stp
peut etre en corrigeant
je comorends mieux la lecture du vba que l'ecriture
donc en corrigant mon exemple cela m'aiderai bien.
si possible bien entendu
merci
On 6 mar, 22:34, isabelle wrote:
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande. les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple Range("D" & i) = MaVariable
isabelle
dit moi pour chaque Select Case dans quel cellule le résultat doit s'inscrire,
isabelle
euh la je suis sous la vague
pourrais tu m'aider un peu stp
peut etre en corrigeant
je comorends mieux la lecture du vba que l'ecriture
donc en corrigant mon exemple cela m'aiderai bien.
si possible bien entendu
merci
On 6 mar, 22:34, isabelle <i@v> wrote:
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande.
les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple
Range("D" & i) = MaVariable
dit moi pour chaque Select Case dans quel cellule le résultat doit s'inscrire,
isabelle
euh la je suis sous la vague
pourrais tu m'aider un peu stp
peut etre en corrigeant
je comorends mieux la lecture du vba que l'ecriture
donc en corrigant mon exemple cela m'aiderai bien.
si possible bien entendu
merci
On 6 mar, 22:34, isabelle wrote:
dans la macro il n'y a aucune ligne de commande défini pour faire ce que tu demande. les variable sont bien alimentées mais c'est tout, il n'y a pas de ligne par exemple Range("D" & i) = MaVariable
ça devrait mieux répondre à ton attente, non ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "magic-dd" a écrit dans le message de news: bonjour
voici mon code qui ne marche pas, je trouve a bizarre d'autant plus que c'est une ebauche de projet
je vous joint le code et le fichier
merci d'eclairer ma lanterne.
http://cjoint.com/?dgwgTNv0q0
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case course Case 1 To 5: note_course = "5" Case 5.01 To 10: note_course = "10" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "4" Case 51 To 100: note_natation = "8" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select
Case 11 To 13: ' de 11 ans à 13 ans
' pour la course
Select Case course Case 1 To 5: note_course = "3" Case 5.01 To 10: note_course = "7" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "2" Case 51 To 100: note_natation = "4" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select End Select End If Next i
ça devrait mieux répondre à ton attente, non ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:92f27b3f-8239-4eaf-84e2-32e7bab18572@p73g2000hsd.googlegroups.com...
bonjour
voici mon code qui ne marche pas, je trouve a bizarre d'autant plus
que c'est une ebauche de projet
je vous joint le code et le fichier
merci d'eclairer ma lanterne.
http://cjoint.com/?dgwgTNv0q0
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case course
Case 1 To 5:
note_course = "5"
Case 5.01 To 10:
note_course = "10"
Case "ne", "NE":
note_course = "NE"
Case Else:
note_course = ""
End Select
' pour la natation
Select Case natation
Case 0 To 50:
note_natation = "4"
Case 51 To 100:
note_natation = "8"
Case "ne", "NE":
note_natation = "NE"
Case Else:
note_natation = ""
End Select
Case 11 To 13: ' de 11 ans à 13 ans
' pour la course
Select Case course
Case 1 To 5:
note_course = "3"
Case 5.01 To 10:
note_course = "7"
Case "ne", "NE":
note_course = "NE"
Case Else:
note_course = ""
End Select
' pour la natation
Select Case natation
Case 0 To 50:
note_natation = "2"
Case 51 To 100:
note_natation = "4"
Case "ne", "NE":
note_natation = "NE"
Case Else:
note_natation = ""
End Select
End Select
End If
Next i
ça devrait mieux répondre à ton attente, non ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "magic-dd" a écrit dans le message de news: bonjour
voici mon code qui ne marche pas, je trouve a bizarre d'autant plus que c'est une ebauche de projet
je vous joint le code et le fichier
merci d'eclairer ma lanterne.
http://cjoint.com/?dgwgTNv0q0
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case course Case 1 To 5: note_course = "5" Case 5.01 To 10: note_course = "10" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "4" Case 51 To 100: note_natation = "8" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select
Case 11 To 13: ' de 11 ans à 13 ans
' pour la course
Select Case course Case 1 To 5: note_course = "3" Case 5.01 To 10: note_course = "7" Case "ne", "NE": note_course = "NE" Case Else: note_course = "" End Select
' pour la natation Select Case natation Case 0 To 50: note_natation = "2" Case 51 To 100: note_natation = "4" Case "ne", "NE": note_natation = "NE" Case Else: note_natation = "" End Select End Select End If Next i
End Sub
magic-dd
bonjour
je n'y arrive toujours pas je ne sais pas ou mettre ces declaration.
est il possible de modifier mon code que je vomprenne la chose.
merci d'avance
bonjour
je n'y arrive toujours pas
je ne sais pas ou mettre ces declaration.
est il possible de modifier mon code que je vomprenne la chose.