Inserer un switch dans une macro

Bonjour a tous,

J'ai fait quelques recherches qui ont malheureusement ete infructueuses.

J'ai ma macro et je veux y inserer un switch. Le probleme c'est que je ne sais pas comment faire.

Dans tous les exemples que j'ai pu trouver, le switch etait code dans une fonction independante, donc avec la syntaxe Function...end Function, Ce qui fait que dans mon code ca me dit qu'il n'y a pas de End Sub.

Voici ce que j'ai ecris.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub Preis()     Dim STD As Worksheet Dim Datenbasis As Worksheet Dim C As Range, D As Range Dim PreisStunde As Integer Dim Kat As String     Set STD = Worksheets("Stunden ohne Kaufl") Set Datenbasis = Worksheets("Datenbasis")   LetzteZeile = Datenbasis.Cells(Rows.Count, 1).End(xlUp).Row   Private Function PreisStunde(Kat As String) As Integer PreisStunde = Switch(Kat = "Z", "115", Kat = "1", "152", Kat = "2", "183", Kat = "3", "205", Kat = "4", "240", Kat = "5", "300") End Function   For Each C In STD.Range("C4:C400") For Each D In Datenbasis.Range("A2:A" & LetzteZeile) If C.Value = D.Value Then C.Offset(0, 3).Value = D.Offset(0, 3).Value C.Offset(0, 4).Value = D.Offset(0, 1).Value End If Next   C.Offset(0, 5).Value = PreiStunde(C.Offset(0, 4).Value) * C.Offset(0, 6).Value Next   End Sub

---

Essaye avec une structure Select Case

Code:

---

1 2 3 4 5 6 7 8

SELECT CASE variable_a_tester CASE cas_1 code à faire pour le cas 1 CASE cas_2 code à faire pour le cas 2 CASE ELSE code à faire pour les autres cas END CASE

---

je pense pas m'être trompé de tête ça doit être ça. Mais entre nous une recherche google aurait répondu à ta question ;)

Justement non. J'ai bien vu la fonction case mais c'etait un switch que je voulais utiliser.

en attendant j'ai fait avec des elseIf

...:roll:

L'équivalent en C du Switch est Select Case en VB.
Je ne vois pas ce qui t'empêche de l'utiliser dans ton cas :

Code:

---

1 2 3 4 5 6 7

SELECT CASE Kat CASE 'Z' PreisStunde = 115 CASE 1 PreisStunde = 152 etc... END CASE

---

Hmmm je le voyais pas comme ca.

Parce que le cours de VBA de developpez.net mentionne l'existence d'une fonction switch.

Autrement j'ai pas tilté tout de suite sur ton erreur avec la fonction
En gros ce que tu as fais dans ton code c'est :

Code:

---

1 2 3 4 5 6 7

Début de la déclaration de ta procédure Preiss   Début de la déclaration de ta fonction PreisStunde   Fin de la déclaration de PreisStunde   Fin de la déclaration de Preiss

---

Le problème ça vient de la programmation. Tu ne peux pas déclarer les choses de cette façon. En l'occurence quand tu as déclarer ta fonction, le compilateur demandait la fin de la déclaration de ta procédure.

En temps normal pour déclarer une fonction et l'utiliser tu aurais du faire quelque chose similaire à ça :

Code:

---

1 2 3 4 5 6

Début de la déclaration de ta fonction PreisStunde Fin de la déclaration de PreisStunde   Début de la déclaration de ta procédure Preiss Utilisation de ta fonction : Variable = PreisStunde(chaine de character) Fin de la déclaration de Preiss

---

C'est plus clair ?
Le switch tu peux l'utiliser directement dans le code, sans passer par la déclaration d'une fonction.