aide pour macro

G

gege21

XLDnaute Occasionnel

• 6 Mai 2011

• #2

Re : aide pour macro

ficher xls pour ceux qui n'ont 2007

 

Pièces jointes

• test2.zip

  215.5 KB · Affichages: 27
• test2.zip

  215.5 KB · Affichages: 30
• test2.zip

  215.5 KB · Affichages: 26

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 7 Mai 2011

• #3

Re : aide pour macro

Bonjour gege21,

J'ai jeté un oeil en passant à ton code ... Il s'exécute jusqu'au bout lorsque "décembre" (par exemple) est écrit de la même manière partout dans ton code 🙄
Si tu demandes à Excel de comparer "décembre" et "Déscembre", il me semble normal que rien ne se passe (attention à la casse également! ... Je parle ici des majuscules/minuscules uniquement)
Quant à savoir si le résultat obtenu est celui que tu attendais et si le code est optimisé ... vois d'abord si des noms de mois identiques règlent ton premier souci.

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 7 Mai 2011

• #4

Re : aide pour macro

bonjour Modeste

une foie tous remis a l'identique sa marche toujours pas

 

Pièces jointes

• test3.zip

  214.4 KB · Affichages: 26
• test3.zip

  214.4 KB · Affichages: 24
• test3.zip

  214.4 KB · Affichages: 29

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 7 Mai 2011

• #5

Re : aide pour macro

Re-bonjour,

tous remis a l'identique

Cliquez pour agrandir...

... à l'identique entre quoi et quoi? Tu as rectifié les noms des mois dans ton module, mais le contenu de ton combobox "mois1" dans ton UserForm, quel est son contenu? (tant que tu y seras, vérifie les 2e, 8e et 12e mois de l'année)

 

Vote positif 0 Vote négatif

G

gege21

XLDnaute Occasionnel

• 8 Mai 2011

• #6

Re : aide pour macro

bonjour modeste

😡 y faut vraiment que j'hachette des lunette moi 😉😉
et forcement maintenant sa marche
merci quand même 😱

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 8 Mai 2011

• #7

Re : aide pour macro

Bonjour,

Si tu repasses par ici, j'avais aussi évoqué un code pas nécessairement optimisé (mais tu n'as pas du le voir, sans les lunettes 😉)
Dans ton module, tu récupères le contenu de ta ComboBox "mois", en écrivant:

VB:

Select Case UserForm1.mois1.Value
Case "Janvier"
mois = 1
Case "Février"
mois = 2

[...]

End Select

L'expérience récente permet de constater que cette écriture t'expose aux risques d'une erreur d'encodage et représente 25 lignes de code. Peux-tu tester ce que donnerait

VB:

mois = UserForm1.mois1.ListIndex + 1

... à la place des 25 lignes en question? Le seul cas qu'il faut tester en plus est celui où rien n'est sélectionné dans la liste (ListIndex= -1)

 

Vote positif 0 Vote négatif