Pouvez vous m'aider SVP

[Bricoltou]

Bonjour le Forum

Pouvez vous m'aider sur le fichier ci dessous , le code bloque et la valeur pour 3 combos intérimaires ne se reportes pas .
Si vous pouviez me commenter mon erreur afin que je comprenne .



Merci d'avance pour votre aide

Bricoltou

 

[kjin]

Re : Pouvez vous m'aider SVP

Bonjour,
Juste pour te dire, qu'avec tes 96 messages au compteur, je suis passé, j'ai lu le titre de ton message...
[thread=32841]charte du forum paragraphe 2[/thread]
...et je m'en vais
A+
kjin

 

[Bricoltou]

Re : Pouvez vous m'aider SVP

Bonjour le Forum,Kjin

Kijn, désolé je ne comprend pas ta réaction et je suis confus si je t'ai choqué .
Mes 96 messages ne font pas de moi un pro de VBA . si j'ai posté ce message c'est que j'ai passé 4 heures hier sans trouvé mon erreur .
J'ai construit un gros projet que je modifie tout les jours avec l'aide de ce forum et des modifications que j'essaie de faire .
D'ailleurs merci encore aux personne qui m'ont aidé ,j'espere pouvoir faire de même un jour .

Bricoltou

 

[Roland_M]

Re : Pouvez vous m'aider SVP

bonjour

ici tu as > For i = 27 To 36

et là:
Sheets(Me.ComboBox1.Value).Range(Col & lig) = Me.Controls("Textbox" & i).Value

MAIS TU N 'AS QUE JUSQUE Textbox33 !?


et ici... attention avec février 29 jours (année bisex)
Select Case ComboBox1.ListIndex
Case 0, 2, 4, 6, 7, 9, 11: For i = 1 To 31: ComboBox2.AddItem i: Next i
Case 1: For i = 1 To 28: ComboBox2.AddItem i: Next i
Case Else: For i = 1 To 30: ComboBox2.AddItem i: Next i
End Select

EDIT:
exemple de fonction: NbrJrs=FNbrDeJrDuMois(Mois, Annee)
Public Function FNbrDeJrDuMois(M, A)
Fev = 28: If A Mod 4 = 0 And (A Mod 100 <> 0 Or A Mod 400 = 0) Then Fev = 29
FNbrDeJrDuMois = Choose(M, 31, Fev, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
End Function

---------------------------------------
pour le titre de ton message Kjin a raison ça ne signifie rien du tout !
car tout le monde peut mettre ça !
il ne faut pas oublier que des forumeurs effectuent des recherches
et ton titre sera introuvable ou ne dira rien à personne !

 

[Bricoltou]

Re : Pouvez vous m'aider SVP

Bonjour le Fil ,Roland M

Roland M merci pour ta réponse , peus tu me dire comment je dois modifier mon code avec ta function .
Dois je juste l'integrer ?

Merci encore pour ton aide

Bricoltou

bonjour

ici tu as > For i = 27 To 36

et là:
Sheets(Me.ComboBox1.Value).Range(Col & lig) = Me.Controls("Textbox" & i).Value

MAIS TU N 'AS QUE JUSQUE Textbox33 !?


et ici... attention avec février 29 jours (année bisex)
Select Case ComboBox1.ListIndex
Case 0, 2, 4, 6, 7, 9, 11: For i = 1 To 31: ComboBox2.AddItem i: Next i
Case 1: For i = 1 To 28: ComboBox2.AddItem i: Next i
Case Else: For i = 1 To 30: ComboBox2.AddItem i: Next i
End Select

EDIT:
exemple de fonction: NbrJrs=FNbrDeJrDuMois(Mois, Annee)
Public Function FNbrDeJrDuMois(M, A)
Fev = 28: If A Mod 4 = 0 And (A Mod 100 <> 0 Or A Mod 400 = 0) Then Fev = 29
FNbrDeJrDuMois = Choose(M, 31, Fev, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
End Function

---------------------------------------
pour le titre de ton message Kjin a raison ça ne signifie rien du tout !
car tout le monde peut mettre ça !
il ne faut pas oublier que des forumeurs effectuent des recherches
et ton titre sera introuvable ou ne dira rien à personne !

 

[Roland_M]

Re : Pouvez vous m'aider SVP

re:

tu la places dans un module tel quel
--------------
Public Function FNbrDeJrDuMois(M As Integer, A As Integer)
Dim Fev As Integer
Fev = 28: If A Mod 4 = 0 And (A Mod 100 <> 0 Or A Mod 400 = 0) Then Fev = 29
FNbrDeJrDuMois = Choose(M, 31, Fev, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
End Function
-----------------
exemple d'appel avec une variable NbrDeJrs

NbrDeJrs = FNbrDeJrDuMois(1, 2009)
NbrDeJrs sera = 31
ou encore...
Mois= 2: Annee= 2009
NbrDeJrs = FNbrDeJrDuMois(Mois, Annee)
NbrDeJrs sera = 28
ou encore...
Mois= 2: Annee= 2008
NbrDeJrs = FNbrDeJrDuMois(Mois, Annee)
NbrDeJrs sera = 29

 

[Staple1600]

Re : Pouvez vous m'aider SVP

Bonjour

Bricoltou
Pour éclairer ta lanterne Bricoultou sur le message de kjin

C'est le titre de ton message qui coince
(et en lisant la charte du forum tu comprendras pourquoi , il te suffit de suivre le lien indiqué par kjin)

XLD étant (entre autre) un forum d'entraide donc logiquement nous pouvons t'aider ;

 

[Bricoltou]

Re : Pouvez vous m'aider SVP

Bonsoir Le Forum ,kjin,Roland M,Stapple1600

Merci à Tous pour vos réponses , mon problème est résolu .
Les texbox devait avoir les mêmes appelation que les combos .
Kijn , la prochaine fois je ferai attention a mon intitulé

Merci à tous 😉

Bricoltou