J'ai un souci dans une userform ;
j'ai deux combobox reférence et designation, liées entre elles par les
lignes de commande :
Private Sub CBrefc_change()
CBDesignc.ListIndex = CBREFC.ListIndex
et
Private Sub CBDesignc_click()
CBREFC.ListIndex = CBDesignc.ListIndex
Ainsi, quand j'en modifie une, l'autre se modifie et inversement.
Comme cela, cela fonctionne bien.
Maintenant, j'ajoute un filtre élaboré : quand ma reference change, il y a
un filtre elaboré qui me donne les valeurs d'une combobox contact
finplage = Range("Filtre!a65536").End(xlUp).Row
cbcontact.RowSource = "filtre!b2:b" & finplage
Quand je sélectionne une référence ou une désignation, puis un contact par
liste déroulante, ça marche.
Si par contre, je veux retourner ensuite pour modifier ma référence ou ma
référence, j'ai un message d'erreur :
erreur d'execution '1004'
impossible de lire la propriété currentregion de la classe range.
et Excel plante à cause de mon filtre elaboré !
(Sheets("Filtre").Select
Range("a1").Select
Selection.CurrentRegion.ClearContents
Range("Filtre!1:20180").Delete Shift:=xlUp
Sheets("exportad").Columns("A:E").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Listes").Range("AB111:AB112"),
CopyToRange:=Sheets("Filtre").Range("A1"), Unique:=False)
Comment faire pour m'en sortir ??
Comment puis-je réinitialiser la valeur de cbcontact sans passer par un
filtre élaboré ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonjour Arnaud , Pas tout pigé mais dans l'essentiel peut être défiltrer avant... et refiltrer après..
lSteph
"arnaud" a écrit dans le message de news: O$
Bonjour à tous !!
J'ai un souci dans une userform ; j'ai deux combobox reférence et designation, liées entre elles par les lignes de commande : Private Sub CBrefc_change() CBDesignc.ListIndex = CBREFC.ListIndex
et Private Sub CBDesignc_click() CBREFC.ListIndex = CBDesignc.ListIndex
Ainsi, quand j'en modifie une, l'autre se modifie et inversement. Comme cela, cela fonctionne bien.
Maintenant, j'ajoute un filtre élaboré : quand ma reference change, il y a un filtre elaboré qui me donne les valeurs d'une combobox contact finplage = Range("Filtre!a65536").End(xlUp).Row cbcontact.RowSource = "filtre!b2:b" & finplage
Quand je sélectionne une référence ou une désignation, puis un contact par liste déroulante, ça marche. Si par contre, je veux retourner ensuite pour modifier ma référence ou ma référence, j'ai un message d'erreur : erreur d'execution '1004' impossible de lire la propriété currentregion de la classe range. et Excel plante à cause de mon filtre elaboré ! (Sheets("Filtre").Select Range("a1").Select Selection.CurrentRegion.ClearContents Range("Filtre!1:20180").Delete Shift:=xlUp Sheets("exportad").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Listes").Range("AB111:AB112"), CopyToRange:=Sheets("Filtre").Range("A1"), Unique:úlse)
Comment faire pour m'en sortir ?? Comment puis-je réinitialiser la valeur de cbcontact sans passer par un filtre élaboré ?
Merci de votre aide...
Arnaud
Bonjour Arnaud ,
Pas tout pigé mais dans l'essentiel
peut être défiltrer avant...
et refiltrer après..
lSteph
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
O$CwDEF5EHA.1260@TK2MSFTNGP12.phx.gbl...
Bonjour à tous !!
J'ai un souci dans une userform ;
j'ai deux combobox reférence et designation, liées entre elles par les
lignes de commande :
Private Sub CBrefc_change()
CBDesignc.ListIndex = CBREFC.ListIndex
et
Private Sub CBDesignc_click()
CBREFC.ListIndex = CBDesignc.ListIndex
Ainsi, quand j'en modifie une, l'autre se modifie et inversement.
Comme cela, cela fonctionne bien.
Maintenant, j'ajoute un filtre élaboré : quand ma reference change, il y a
un filtre elaboré qui me donne les valeurs d'une combobox contact
finplage = Range("Filtre!a65536").End(xlUp).Row
cbcontact.RowSource = "filtre!b2:b" & finplage
Quand je sélectionne une référence ou une désignation, puis un contact par
liste déroulante, ça marche.
Si par contre, je veux retourner ensuite pour modifier ma référence ou ma
référence, j'ai un message d'erreur :
erreur d'execution '1004'
impossible de lire la propriété currentregion de la classe range.
et Excel plante à cause de mon filtre elaboré !
(Sheets("Filtre").Select
Range("a1").Select
Selection.CurrentRegion.ClearContents
Range("Filtre!1:20180").Delete Shift:=xlUp
Sheets("exportad").Columns("A:E").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Listes").Range("AB111:AB112"),
CopyToRange:=Sheets("Filtre").Range("A1"), Unique:úlse)
Comment faire pour m'en sortir ??
Comment puis-je réinitialiser la valeur de cbcontact sans passer par un
filtre élaboré ?
Bonjour Arnaud , Pas tout pigé mais dans l'essentiel peut être défiltrer avant... et refiltrer après..
lSteph
"arnaud" a écrit dans le message de news: O$
Bonjour à tous !!
J'ai un souci dans une userform ; j'ai deux combobox reférence et designation, liées entre elles par les lignes de commande : Private Sub CBrefc_change() CBDesignc.ListIndex = CBREFC.ListIndex
et Private Sub CBDesignc_click() CBREFC.ListIndex = CBDesignc.ListIndex
Ainsi, quand j'en modifie une, l'autre se modifie et inversement. Comme cela, cela fonctionne bien.
Maintenant, j'ajoute un filtre élaboré : quand ma reference change, il y a un filtre elaboré qui me donne les valeurs d'une combobox contact finplage = Range("Filtre!a65536").End(xlUp).Row cbcontact.RowSource = "filtre!b2:b" & finplage
Quand je sélectionne une référence ou une désignation, puis un contact par liste déroulante, ça marche. Si par contre, je veux retourner ensuite pour modifier ma référence ou ma référence, j'ai un message d'erreur : erreur d'execution '1004' impossible de lire la propriété currentregion de la classe range. et Excel plante à cause de mon filtre elaboré ! (Sheets("Filtre").Select Range("a1").Select Selection.CurrentRegion.ClearContents Range("Filtre!1:20180").Delete Shift:=xlUp Sheets("exportad").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Listes").Range("AB111:AB112"), CopyToRange:=Sheets("Filtre").Range("A1"), Unique:úlse)
Comment faire pour m'en sortir ?? Comment puis-je réinitialiser la valeur de cbcontact sans passer par un filtre élaboré ?
