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:=[D67], 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("D67"), 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
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:=[D67], 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("D67"), 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
Pièces jointes
Dernière édition: