Discussion :

[sabotage]

Bonjour,

Sur une feuille j'ai deux combobox : lstMois et lstAnnee
Le changement de valeur sur un de ces boutons

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub lstAnnee_Change()
 
Call formatage
 
End Sub
 
--
 
Private Sub lstMois_Change()
 
Call formatage
 
End Sub

appel un procédure placée dans un module

Code :

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

1
2
3
4
5
6
 
Sub formatage()
 
Range("A13:E43").ClearContents
 
End Sub

Voici le problème :
écrit tel quel, mon histoire provoque l'erreur : erreur d'execution 1004, la méthode clearcontents de la classe Range a échoué.
Plus je recommence, plus Excel (2000) devient, fou (par exemple la macro se met à se lancer des que j'écris dans une cellule) et fini par planter.

Si j'enlève le "Call formatage" de l'un ou l'autre des Combox, cela fonctionne.

Avez-vous du sang de poulet ?

[zazaraignée]

Quelle est la source de tes combobox ?

[sabotage]

Bonsoir,

J'ai utilisé la propriété "listfillrange" de mes combobox avec les valeurs qui sont prises sur la feuille en cours.
Pour la premiere, j'ai deux colonnes ca donne donc un truc comme listfillrange :

Code :

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

O13:P23

; et pour la deuxieme listfillrange :

Code :

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

Q13:Q18

....
Hummm d'ailleurs je suis en train de me demander si ce n'est pas une des sources qui fait planter excel : il s'agit en effet de formules genre Annee(Maintenant()) et Annee(Maintenant())+1 etc.

[ouskel'n'or]

non, =ANNEE(MAINTENANT()) ou =ANNEE(MAINTENANT())+1 est correct, quoique je leur préférerais
=ANNEE(AUJOURDHUI()) ou =ANNEE(AUJOURDHUI())+1
Tu vois

[sabotage]

Bon j'ai affiné le probleme.
Cela vient bien de ma formule.

Si je mets =2007, ca marche
Si je mets =ANNEE("20/07/2007"), ca marche
Si je mets =ANNEE(AUJOURDHUI()), boom
Si je mets =ANNEE(A1) avec A1 = AUJOURDHUI(), boom

Je vais construire ma liste en VBA je crois.