Discussion :

[max_c]

Bonjour à tous,

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

Mon code bloque sur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

et c'est ou
moislab1 ?

[max_c]

moislab1 est juste après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[VBall]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells("B2").

par des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(2,2).

ou par des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[max_c]

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...

Max_c

[SfJ5Rpw8]

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

tiens pour la peine une autre solution pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")