Select Case ne fonctionne pas

Bonjour tout le monde!

J'ai créé un petit fichier excel avec une macro en VBA, il marchait du tonnerre mais au premier essai en réel (le lendemain), il ne marchait plus...

En fait, lorsque je fais un breakpoint, et le pas à pas sur cette partie du code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Select Case b   Case Is = 2 Cells(14, 2).Value = "0" Cells(14, 4).Value = "0" Cells(19, 2).Value = "1" Cells(19, 4).Value = "1.2"   Case Is = 3 Cells(14, 2).Value = "0" Cells(14, 4).Value = "0" Cells(19, 2).Value = "1.2" Cells(19, 4).Value = "1.5" . . . Case Is = 20 Cells(14, 2).Value = "0" Cells(14, 4).Value = "0" Cells(19, 2).Value = "0" Cells(19, 4).Value = "2"   End Select

---

Quelque soit la case choisie, je rentre dedans, la première ligne cells(14,2)... est en jaune, et lorsque je l'exécute, Pouf

Le code s'arrête...

Je n'ai aucune idée du pourquoi, car hier cela marchait sans problème... Si vous pouviez m'aider je vous en serais reconnaissant :?

Bonne journée,
PierrotMfff

Bonjour,
attention au .. dans ton code

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

Sub test() Dim b As Integer b = 2 Select Case b   Case 2 Cells(14, 2).Value = "0" Cells(14, 4).Value = "0" Cells(19, 2).Value = "1" Cells(19, 4).Value = "1.2"   Case 3 Cells(14, 2).Value = "0" Cells(14, 4).Value = "0" Cells(19, 2).Value = "1.2" Cells(19, 4).Value = "1.5" ' . ' . ' . Case 20 Cells(14, 2).Value = "0" Cells(14, 4).Value = "0" Cells(19, 2).Value = "0" Cells(19, 4).Value = "2"   End Select

---

Ah désolé, ils n'y a pas de points en réalité, c'était pour montrer qu'il y avait beaucoup de cases (peut être source du bug..)

Une piste? :s

Bonjour
a part peut être les point effectivement je ne vois pas ou est le soucis combien même si to select case a beaucoup de segments
essais plutot long que integer

maintenant moi j'esserrais d'etre plus precis

Et puis si tu envoie des numériques pas la peine des guillemets!!

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

Sub test() Dim b As Long b = 2   With Sheets("nom du sheets") Select Case b   Case 2 .Cells(14, 2).Value = 0 .Cells(14, 4).Value = 0 .Cells(19, 2).Value = 1 .Cells(19, 4).Value = 1.2   Case 3 .Cells(14, 2).Value = 0 .Cells(14, 4).Value = 0 .Cells(19, 2).Value = 1.2 .Cells(19, 4).Value = 1.5   Case 20 .Cells(14, 2).Value = 0 .Cells(14, 4).Value = 0 .Cells(19, 2).Value = 0 .Cells(19, 4).Value = 2   End Select End WithEnd Sub

---

Merci de l'aide, je ne sais pas pourquoi, mais il remarche... cependant je vais quand même changer les éléments que tu as décrit, merci !

bonne journée :)

re

pas de reponse technique par MP
pause ta question a la suite ou ouvre un nouveau sujet la prochaine fois !!!!

en réponse a ton message privé tu a des fonction native vba pour ce genre de truc

exemple pour le jour d'une date c'est "day(date)" pour le mois c'est month(date)et bien évidement pour l'année c'est year(date)

parti de la

disons que ta date c'est 01/01/2014 au format string

ALORS ON FERA CECI:
exemple

Code:

---

1 2 3 4 5 6 7 8 9

sub separe_date_dans_plusieur_cellules() dim madate as string madate="01/01/2014" with sheets(1) .cells(1,1)=day(cdate(madate)) .cells(1,2)=month(cdate(madate)) .cells(1,3)=year(cdate(madate)) end with end sub

---

tu te retrouve avec les jour mois année séparés dans les cellule A1,B1,C1

maintenant si tu le veux en toute lettre ce sera

Code:

---

1 2 3 4 5 6 7 8 9

sub separe_date_dans_plusieur_cellules() dim madate as string madate="01/01/2014" with sheets(1) .Cells(1, 1) = Format(Weekday(CDate(madate)) + 1, "dddd") .Cells(1, 2) = Format(Month(CDate(madate)), "mmmm") .cells(1,3)=year(cdate(madate)) end with end sub

---

plus de question technique par MP sinon grosse bourrade :lol:

voila pour le coup de pouce ;)

J'ai ça:

Code:

---

1 2 3 4 5

Dim dateauj As String dateauj = Format(Now, "dd/mm/yyyy") Sheets("Demande RNC").Cells(4, 4).Value = Day(CDate(dateauj)) Sheets("Demande RNC").Cells(4, 5).Value = Month(CDate(dateauj))

---

mais le problème reste le même:
dans la 1ère cellule j'ai 15/01/1900
dans la 2ème j'ai 10/01/1900

(On est le 15/10) :aie:

(euh oui désolé, j'ouvrirai des nouveaux sujets!)

c'est que tes cellules ont un format déjà appliqué soit par une macro soit par le clic droit de la souris puis "format cellule"


dans ce cas avant la mise en place des données

tu CHANGE LE FORMAT DES CELLULES CONCERNEES

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub separe_date_dans_plusieur_cellules() Range("D4:E4").Clear ' on efface toute mise en forme et tout format Range("D4:E4").NumberFormat = "@" 'on met les cellules au format texte Dim madate As String madate = "01/04/2014" With Sheets(1) .Cells(4, 4) = Day(CDate(madate)) .Cells(4, 5) = Month(CDate(madate)) End With End Sub

---

bonjour,
tu utilises un string pour stocker la date actuelle?
quelle drôle d’idée!; quand d'autres pause des question pour remplace un string en date!

Code:

---

Sheets("Demande RNC").Cells(4, 4).Value = Day(now)

---

le format "General" suffit si tu passe les données au bon format!

Code:

---

Sheets("Demande RNC").Cells(4, 4).Value = format(now,"yyyy-mm-dd hh:mm:ss")

---

dans cet exemple la cellule affichera une date au format régionale de Windows!

Ca marche merci beaucoup :D

(J'ai une sorte de formulaire à adapter et la date doit être celle d'aujourd'hui, et décomposée sur trois cases ^^)