[vba-e] Date et valeur de cellule

Bonjour à tous,

Ce doit être tellement évident que je ne vois pas l'erreur... :aie:

Mon code bloque sur:

Code:

---

If Sheets("parametres").Cells("B2").Value = 1 Then GoTo moislab1

---

Mon code est situé dans un bouton OK de userform.
Ce code est décliné pour tous les mois, les valeurs de B2 allant de 1 à 12.

parametres est la feuille contenant la cellule B2
B2 contient la formule : =MOIS(B1) et affiche donc 9
B1 contient la formule : =AUJOURDHUI() et affiche donc 29/09/2006

Donc... Comment emettre la condition "Si la cellule B2 affiche 1" GoTo moislab1 ?

J'espère être clair... j'en appelle à votre indulgence de grands maître du VBA... En tout cas un grand merci d'avance... ;)

Max_c

et c'est ou
moislab1 ?

moislab1 est juste après :

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 32 33 34 35

If Sheets("parametres").Cells("B2").Value = 1 Then GoTo moislab1 If Sheets("parametres").Cells("B2").Value = 2 Then GoTo moislab2 If Sheets("parametres").Cells("B2").Value = 3 Then GoTo moislab3 If Sheets("parametres").Cells("B2").Value = 4 Then GoTo moislab4 If Sheets("parametres").Cells("B2").Value = 5 Then GoTo moislab5 If Sheets("parametres").Cells("B2").Value = 6 Then GoTo moislab6 If Sheets("parametres").Cells("B2").Value = 7 Then GoTo moislab7 If Sheets("parametres").Cells("B2").Value = 8 Then GoTo moislab8 If Sheets("parametres").Cells("B2").Value = 9 Then GoTo moislab9 If Sheets("parametres").Cells("B2").Value = 10 Then GoTo moislab10 If Sheets("parametres").Cells("B2").Value = 11 Then GoTo moislab11 If Sheets("parametres").Cells("B2").Value = 12 Then GoTo moislab12   moislab1: confba.moisba.Caption = "janvier" GoTo finlab   moislab2: confba.moisba.Caption = "février" GoTo finlab   moislab3: confba.moisba.Caption = "mars" GoTo finlab   moislab4: confba.moisba.Caption = "avril" GoTo finlab   moislab5: confba.moisba.Caption = "mai" GoTo finlab   etc....

---

n'hésite pas à poser des questions si ce n'est pas clair... en tout cas merci

Max_c

ton code devrai marché ... c'est quoi le message d'erreur... ?

sinon l'utilisation des goto et à proscrire... c'est une source d'erreur essai d'utiliser un select case

Il me semble que cells ne peut prendre que (RowIndex,ColumnIndex) comme argument donc si je dis pas n'importe quoi, il faudrait que tu remplaces tes:

Code:

---

.Cells("B2").

---

par des

Code:

---

.Cells(2,2).

---

ou par des

Code:

---

.Range("B2").

---

P.S. je suis bien d'accord sur la proscription des goto (sauf pour les messages d'erreurs). Tu pourrais aussi faire une table de correspondance avec une collection... et faire une Sub moislab:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MoisCorrespondance as New Collection MoisCorrespondance.add "janvier" MoisCorrespondance.add "fevrier" 'etc... mais il faut le faire dans l'ordre (ou utiliser des dictionnaires...)   Public Sub mislab(byval IndexMois as long) confba.moisba.Caption=MoisCorrespondance.Item(IndexMois) 'enlever le 2e goto et le remplacer par une fonction... endsub   If Sheets("parametres").Cells(2,2).value = 1 Then mislab(1)

---

:mrgreen:

EXCELLENT!!!! En remplaçant 'Cells' par 'Range' ça marche impec!!!!

C'était sous nos yeux...

Un grand merci à vous, je prend bonne note de vos conseils et je replonge dedans... 8-)

Max_c

a oui, VBall, j'ai raté ce Cells(".."):aie:

tiens pour la peine une autre solution pour

Code:

---

1 2 3

i = Sheets("parametres").Cells(2,2).Value   if i>= 1 and i<= 12 then confba.moisba.Caption =format(dateserial(0,i,1),"MMMM")

---

;)