Selon cas

gothikth Messages postés 80 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 11 mai 2007 - 14 avril 2007 à 17:38
gothikth Messages postés 80 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 11 mai 2007 - 15 avril 2007 à 14:23

alors voila je ne comprend ma variable bien declarer en public, je verifie son contenu mais elle ne passe pas dans mes cas ni café ni chocolas alors qu'elle est bien soit chocolat soit café

alors je suis bloquer sa mais jamais arriver cela si vous avait une idee

merci

Select Case donneeFacture

    Case "Chocolat"

        LigneExcel = 29
        ' Affecte les données dans les cellules de la feuille
        With ActiveWorkbook.Worksheets("Feuil1")
        .Cells(LigneExcel, 4) = 1
        End With

    Case "Café"
        LigneExcel = 29
        ' Affecte les données dans les cellules de la feuille
        With ActiveWorkbook.Worksheets("Feuil1")
        .Cells(LigneExcel, 3) = 1
        End With

End Select

A voir également:

Selon cas
$Variable variable selon le cas. - Forum PHP
Cas scrabble ✓ - Forum C# / .NET
Cas sql ✓ - Forum SQL
Cas when sql - Forum SQL
Php switch cas - Forum PHP

46 réponses

Réponse 41 / 46

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
14 avril 2007 à 22:52

Pardon !
pas
.Cells(29, 4) = 1
mais
.Cells(29, toto ) = 1

Réponse 42 / 46

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
14 avril 2007 à 22:57

Quest-ce qui ne fonctionne pas ?

fais ceci, donc

msgbox donneeFacture & "a"
donneeFacture = Trim(LCase(donnéefacture)
donneeFacture = Replace(donneeFacture, chr(10),"")
donneeFacture = Replace(donneeFacture, chr(13),"")
donneeFacture = Replace(donneeFacture, chr(1410),"")
msgbox donneeFacture & "a"
Select Case donneeFacture
    Case "chocolat"
         msgbox "chocolat"
    Case "café"
       msgbox "café"
End Select

lance et dis-pous ce qui s'affiche dans tes msgbox successives

Réponse 43 / 46

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
14 avril 2007 à 22:58

zut ...
pas
donneeFacture = Replace(donneeFacture, chr(1410),"")
mais
donneeFacture = Replace(donneeFacture, chr(0),"")
(j'ai des gros doigts)

Réponse 44 / 46

gothikth Messages postés 80 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 11 mai 2007
14 avril 2007 à 23:05

il affiche
2a

192.168.0.2a

a

a

a

café

cafe
a

a

chocolat

chocolat
a

a

chque bloc correspond à un nouveeau msgbox

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 45 / 46

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
14 avril 2007 à 23:34

2a ' 1ère msgbox : il y avait donc "2a" dans ta variable

192.168.0.2a ' 2ème msgbox : IMPOSSIBLE si tu as écrit mon code puisque rien n'était ajouté, bien au contraire !!!
pas de chocolat no café, donc, normal et on passe à la suivante
a
pas de chocolat no café, donc, normal et on passe à la suivante

a
pas de chocolat no café, donc, normal et on passe à la suivante

a
pas de chocolat no café, donc, normal et on passe à la suivante

café '1ère Msgbox impossible puisque je ne vois pas le "a" rajouté, sauf s'il y avait un caractère chr(0) de terminaison (comme je le pense depuis le début)

cafe 'et là je ne vois pas le "a" final attendu tout de suite après le é, mais je vois par contre un a à la kugne suivante, ce qui démontre que tu n'a pas inséré le code que je t'ai donné .....
a

a

chocolat

chocolat
a

a

Bref !
Montre-nous ton code, tel qu'il est, depuis le début de ta sub jusqu'à la fin de ta sub, qu'on y voie clair !

Réponse 46 / 46

gothikth Messages postés 80 Date d'inscription mardi 27 décembre 2005 Statut Membre Dernière intervention 11 mai 2007
15 avril 2007 à 14:23

Private Sub Form_Load()

Call prodecureAdresseIpClient

Randomize Timer
portClient = (Int((1000 * Rnd()) + 1))
portServeur = (Int((1000 * Rnd()) + 1))
Open "E:\TRAVAIL\Gestion cyberCafé\Serveur\fichier\port.txt" For Output As #2 'on ecrit dans le fichier les ports du serveur
'Open "[file://\\Kwartz-serv-ig\Commun\tsig2da\HerbinDelphine\port.txt \\Kwartz-serv-ig\Commun\tsig2da\HerbinDelphine\port.txt]" For Output As #2 'on ecrit dans le fichier les ports du serveur'pour le serveur du lycee
        Print #2, portClient
        Print #2, portServeur
Close #2

WinsockIPserveur.LocalPort = portClient 'On défini le port local du client
WinsockIPserveur.RemotePort = portServeur 'le port du serveur
WinsockIPserveur.Listen 'on ecoute une connexion

End Sub

Private Sub LabelValiderImpression_Click()

WinsockIPserveur.SendData "Votre demande d'impression vient d'être accepté"

End Sub

Private Sub WinsockIPserveur_ConnectionRequest(ByVal requestID As Long)

WinsockIPserveur.Close 'ferme le port
WinsockIPserveur.Accept requestID 'on accepte la connexion et on se connecte
MsgBox "Le poste client d'adresse IP : " & Chr(10) & WinsockIPserveur.RemoteHostIP & " vient de se connecté"
WinsockIPserveur.SendData "Vous êtes connecté au serveur" 'on envoie au client qu'il est connecté

End Sub

Private Sub WinsockIPserveur_DataArrival(ByVal bytesTotal As Long)

Dim donner1() As String
Dim i As Integer
i = 0

WinsockIPserveur.GetData messRecu 'on met ce que l'on reçoit dans la variable
MsgBox messRecu

donner1 = Split(messRecu, Chr(10))
j = 1
Call ecrireLaFacture

Do
MsgBox donner1(i)
donner2 = Split(donner1(i), ":")

If i < 3 Then
    donneeFacture = donner2(1)
Else
    donneeFacture = donner2(0)
End If

Select Case i

    Case 0

        LigneExcel = 3

        ' Affecte les données dans les cellules de la feuille
        With ActiveWorkbook.Worksheets("Feuil1")
        .Cells(LigneExcel, 3) = donneeFacture
        End With

    Case 1

        LigneExcel = 4

        ' Affecte les données dans les cellules de la feuille
        With ActiveWorkbook.Worksheets("Feuil1")
        .Cells(LigneExcel, 3) = donneeFacture
        End With

End Select

'donneeFacture = Trim(LCase(donnéefacture))
'donneeFacture = Replace(donneeFacture, Chr(10), "")

'Select Case (LCase(donneeFacture))

'    Case "chocolat"
'
        'LigneExcel = 29
        '' Affecte les données dans les cellules de la feuille
        'With ActiveWorkbook.Worksheets("Feuil1")
        '.Cells(LigneExcel, 4) = 1
        'End With
'
    'Case "café"
        'LigneExcel = 29
        '' Affecte les données dans les cellules de la feuille
        'With ActiveWorkbook.Worksheets("Feuil1")
        '.Cells(LigneExcel, 3) = 1
        'End With
'
'End Select

MsgBox donneeFacture & "a"
donneeFacture = Trim(LCase(donnéefacture))
donneeFacture = Replace(donneeFacture, Chr(10), "")
donneeFacture = Replace(donneeFacture, Chr(13), "")
donneeFacture = Replace(donneeFacture, Chr(0), "")
MsgBox donneeFacture & "a"
Select Case donneeFacture
    Case "chocolat"
         MsgBox "chocolat"
    Case "café"
       MsgBox "café"
End Select

i = i + 1
Loop Until donner1(i) = ""

Call ecrireLaFacture

End Sub

Private Sub LabelmiseAjour_Click()

    comboIpClient.Clear
    Call prodecureAdresseIpClient

End Sub

Private Sub TimerTemps_Timer()

    Labeljour.Caption = "Nous somme le : " & Format(Now, "dd/mm/yyyy") & " Il est : " & Format(Now, "hh:mm:ss")

End Sub

Discussions similaires

générer le diagramme des classes à partir du diagramme des cas d'utilisation

CASE WHEN

les diagrammes uml en java

CAS : tracker les SecurityException

sous requête dans CASE

Votre réponse

Discussions similaires