Messag e d'erreur dans ma macro

[dedel74]

Bonjour à tous,

j'espère que vous allez bien depuis ma dernière connexion.
Et oui me revoila encore pour solliciter à nouveau votre aide.

j'ai créé une base de données avec un onglet :
- BDINSTALLATEUR où j'ai la liste de mes installateurs
- RECHERCHEINST où je peux avoir toutes les informations sur l'un de mes installateur (format formulaire)
- BDSUIVIVIISTES où j'ai toutes les informatiosn sur les visites effectuées par les commerciaux

Je voulais créer un filtre dans l'onglet RECHERCHEINST où en fonction de la fiche sélectionnée (en D7 "Denomination") apparaissent les visites effectuées chez cet installateur

j'ai créer le message suivant :
dans la feuille RECHERCHE INST
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("BDSUIVIVISISTES").[A8:V1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[D6😀7], CopyToRange:=[C57:H57]
End Sub

Et dans un module5, j'ai mis :
Sub ExtraitVisite()
'
' Extrait Macro
' Macro enregistrée le 07/08/2010 par Boisgontier
' Range("B8").Select
Sheets("BDSUIVIVISITES").Range("A8:V1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("D6😀7"), CopyToRange:=Range("C75:H57"), Unique:=False
End Sub


ça fonctionne à moitié, il m'affiche bien quelque chose mais dès que je veux changer le nom de l'installteur en D7 , j'ai un bug.

Est ce quelqu'un aurait une solution à mon problème.
Je vous met un extrait de mon fichier pour être plus claire.

Merci d'avance

dedel74

 

[mth]

Re : Messag e d'erreur dans ma macro

Bonjour,

Ton fichier n'est pas passé ...

@ +

mth

 

[dedel74]

Re : Messag e d'erreur dans ma macro

Pardon pour cet oubli;

Merci

dedel74