pb avec macro

[LIO]

Bonjour,
Ca fait deux jours que j'ai trouvé mon bonheur en téléchargeant une macro sur votre site. Cependant, lorsque je veux la mettre à ma sauce avec les bonnes'cases', ça marche plus. Une ligne se colore en jaune sur la feuille 'Sheet2' que j'ai pourtant recopier sans erreur.([MesDatas]. ....[Data!C1].)
Est-il possible de recopier cette macro et de l'adapter ?.
Au fait, je suis novice en macro....
Merci de votre aide.
PJ:Fichier en question. [file name=st-selectionner_20050517195624.zip size=12954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/st-selectionner_20050517195624.zip[/file]

 

[LIO]

Complément d'info:
C'est cette ligne qui semble t'il contient un problème.
[MesDatas].AdvancedFilter action:=xlFilterCopy, _
CriteriaRange:=[Résultat!A2:A3], CopyToRange:=[Data!C1]
Merci pour votre aide.

 

[MichelXld]

bonsoir Lio

j'ai testé ton fichier et il semble fonctionner correctement : la liste de validation est bien créée sans message d'erreur
(Excel2002)



bonne soiree
MichelXld

 

[lio]

Merci de ta réponse. Cependant, c'est quand j'essais de refaire cette macro sur un nouveau dossier avec les memes emplacements et les formules que je recopie scrupuleusement qu'un message d'erreur apparait et me propose un débogage sur la ligne citée plus haut.

 

[MichelXld]

rebonsoir Lio

dans ton nouveau classeur as tu nommé la plage de cellules contenant tous les noms , par 'MesDatas'
( plage B1:B132 de la feuille Data , dans l'exemple que tu as mis sur le forum )


bonne soiree
MichelXld

 

[lio]

merci, je vais essayer et je te tiens au courant.
J'aurais une autre question, sur la case C1 dans le fichier Data, j'apperçois Extraction... Es ce ça ce met automatiquement.

2eme question:dans la cellule B3 dans la feuille résultat, je vois que la liste a comme source: Nom. A quelle cellule s'applique la référence.

3eme question quand je refais cette macro, je tape que je veux créer un nouvelle macro, mais je dois placer ma souris dans quelle cellule au juste?
C2 de Data ou A3 de Résultats.
Pardon, pour ces question qui doivent sembler basique.
Merci pour ton aide.

 

[lio]

En regardant de plus près, je m'apperçoit que mon fichier était farcit d'erreur.Aussi, je pense pouvoir répondre à la première et deuxième question.
La troisième est toujours pour moi, un mystère.
@+

 

[MichelXld]

bonjour Lio

quand tu vas dans le menu
Insertion
Nom
Definir
tu verras la liste des cellules nommées ainsi que les references associées

par exemple

'MesDatas' : =DECALER(Data!$B$1;;;NBVAL(Data!$B: $ B ) ; 1)

'Nom' :=DECALER(Data!$C$2;;;NBVAL(Data!$C:$C)-1)

'Extraction' : =Data!$C$1 ( dans la feuille Data)


en fonction de ce que tu vas saisir dans la cellule A3 , la procedure va copier les données commençant par les memes lettres dans la colonne C de la feuille Data

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> '$A$3' Then Exit Sub
[MesDatas].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[Résultats!A2:A3], CopyToRange:=[Data!C1]
[B3] = [Data!C2]: [B3].Select
End Sub


cett liste servant ensuite à créer la liste de validation

tu selectionnes la cellule B3 de la feuille 'résultats ' et tu vas dans le Menu Données / Validation

tu as source '=Nom'



par contre je ne comprends pas ta 3eme question



bonne journée
MichelXld

Message édité par: MichelXld, à: 18/05/2005 06:19

 

[lio]

Merci pour tes réponses, tu es d'un grand secours.
Voici le fichier que je suis en train de refaire.
O&ugrave; est l'erreur?. [file name=Classeur1_20050518134616.zip size=10907]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050518134616.zip[/file]

 

[lio]

Bonjour,
je ne trouve pas l'erreur sur le fichier ci-joint.
Quelqu'un peut-il m'aider.
NB: Ne pas prendre en compte le fichier attaché ci-dessus.

Merci pour l'aide que vous pourrez m'apporter. [file name=Classeur1_20050518182223.zip size=11281]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050518182223.zip[/file]

 

[MichelXld]

bonsoir Lio

ton classeur fonctionne . tu as seulement mal ecrit le nom de la feuille 'Quantitatif' . tu avais mis un S de trop dans la procedure evenementielle


Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> '$A$3' Then Exit Sub
[MesRépertoires].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[quantitatifs!A2:A3], CopyToRange:=[Répertoire!C1]
[B3] = [Répertoire!C2]: [B3].Select
End Sub


bonne soiree
MichelXld

Message édité par: MichelXld, à: 18/05/2005 19:04

 

[LIO]

Bonjour,
Ca y est, ça marche.
10 heures de galère pour ma première macro !.
Je te remercie particulièrement pour m'avoir aidé.Sans tes conseils, j'y serais encore.
A mon avis , je ne peux que progressé...
Merci encore.

 

[lio]

Je ne voudrais pas abuser de tes conseils avisés, mais est-il possible de masquer ma feuille nommée 'Répertoire' avec ou sans macro?
Merci.

 

[LIO]

Je viens de trouver la solution sur le forum
Merci encore pour votre aide.
Bonne soirée.