Salut groupe,
Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube.
J'aimerais obtenir la liste des fournisseurs de médicaments (feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter
'selection.AutoFilter Field:=5, Criteria1:=xlAll
mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click()
Rem Copier la colonne fournisseur de feuille "médicaments"
Rem Le code ci-dessous fonctionne
Dim Fourn, c As Range
Sheets("Fournisseurs").Select
Set Fourn = Sheets("médicaments").Range("nomcompagnie")
05 Fourn.Copy
ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique
Set Fourn = Nothing
Set Fourn = Sheets("Fournisseurs").Range("a:a")
ActiveSheet.Columns("A:A").Select
10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
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
isabelle
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube. J'aimerais obtenir la liste des fournisseurs de médicaments (feuille "médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie. TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
Rem Enlever les doublons ... ...
End Sub
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils
controle, il faut mettre la propriété du bouton TakeFocusOnClick à
false.
isabelle
Salut groupe,
Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube.
J'aimerais obtenir la liste des fournisseurs de médicaments (feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter
'selection.AutoFilter Field:=5, Criteria1:=xlAll
mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click()
Rem Copier la colonne fournisseur de feuille "médicaments"
Rem Le code ci-dessous fonctionne
Dim Fourn, c As Range
Sheets("Fournisseurs").Select
Set Fourn = Sheets("médicaments").Range("nomcompagnie")
05 Fourn.Copy
ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique
Set Fourn = Nothing
Set Fourn = Sheets("Fournisseurs").Range("a:a")
ActiveSheet.Columns("A:A").Select
10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube. J'aimerais obtenir la liste des fournisseurs de médicaments (feuille "médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie. TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
Rem Enlever les doublons ... ...
End Sub
Sruojlim
Merci Isabelle, ca ne fonctionne pas davantage... En fait ce que je veux savoir c'est comment fait on le tri d'une colonne en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste déroulante apparaissant lors d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" a écrit dans le message de news:
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube. J'aimerais obtenir la liste des fournisseurs de médicaments (feuille "médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
Merci Isabelle, ca ne fonctionne pas davantage...
En fait ce que je veux savoir c'est comment fait on le tri d'une colonne
en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste
déroulante apparaissant lors
d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:40B53D33.65FFC0DA@videotron.ca...
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils
controle, il faut mettre la propriété du bouton TakeFocusOnClick à
false.
isabelle
Salut groupe,
Je tente en vin de déboucher, en verre et contre toux, sur une
option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube.
J'aimerais obtenir la liste des fournisseurs de médicaments (feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique".
J'ai
essayé avec :
'selection.AutoFilter
'selection.AutoFilter Field:=5, Criteria1:=xlAll
mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis
newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click()
Rem Copier la colonne fournisseur de feuille "médicaments"
Rem Le code ci-dessous fonctionne
Dim Fourn, c As Range
Sheets("Fournisseurs").Select
Set Fourn = Sheets("médicaments").Range("nomcompagnie")
05 Fourn.Copy
ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique
Set Fourn = Nothing
Set Fourn = Sheets("Fournisseurs").Range("a:a")
ActiveSheet.Columns("A:A").Select
10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
_
Merci Isabelle, ca ne fonctionne pas davantage... En fait ce que je veux savoir c'est comment fait on le tri d'une colonne en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste déroulante apparaissant lors d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" a écrit dans le message de news:
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube. J'aimerais obtenir la liste des fournisseurs de médicaments (feuille "médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
Essayes avec "Données / Filtre / Filtre élaboré" et "extraction sans doublons", il faut pour cela partir de la feuille où tu veux extraire et non de la feuille contenant la liste. ca marche aussi en vba (enregistres pour voir !)
bon courage
Astérix
Bonjour,
Essayes avec "Données / Filtre / Filtre élaboré" et "extraction sans
doublons",
il faut pour cela partir de la feuille où tu veux extraire et non de la
feuille contenant la liste.
ca marche aussi en vba (enregistres pour voir !)
Essayes avec "Données / Filtre / Filtre élaboré" et "extraction sans doublons", il faut pour cela partir de la feuille où tu veux extraire et non de la feuille contenant la liste. ca marche aussi en vba (enregistres pour voir !)
Merci Isabelle, ca ne fonctionne pas davantage... En fait ce que je veux savoir c'est comment fait on le tri d'une colonne en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste déroulante apparaissant lors d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" a écrit dans le message de news:
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube. J'aimerais obtenir la liste des fournisseurs de médicaments (feuille "médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
Merci Isabelle, ca ne fonctionne pas davantage...
En fait ce que je veux savoir c'est comment fait on le tri d'une colonne
en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste
déroulante apparaissant lors
d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:40B53D33.65FFC0DA@videotron.ca...
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils
controle, il faut mettre la propriété du bouton TakeFocusOnClick à
false.
isabelle
Salut groupe,
Je tente en vin de déboucher, en verre et contre toux, sur une
option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube.
J'aimerais obtenir la liste des fournisseurs de médicaments (feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique".
J'ai
essayé avec :
'selection.AutoFilter
'selection.AutoFilter Field:=5, Criteria1:=xlAll
mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis
newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click()
Rem Copier la colonne fournisseur de feuille "médicaments"
Rem Le code ci-dessous fonctionne
Dim Fourn, c As Range
Sheets("Fournisseurs").Select
Set Fourn = Sheets("médicaments").Range("nomcompagnie")
05 Fourn.Copy
ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique
Set Fourn = Nothing
Set Fourn = Sheets("Fournisseurs").Range("a:a")
ActiveSheet.Columns("A:A").Select
10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
_
Merci Isabelle, ca ne fonctionne pas davantage... En fait ce que je veux savoir c'est comment fait on le tri d'une colonne en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste déroulante apparaissant lors d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" a écrit dans le message de news:
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube. J'aimerais obtenir la liste des fournisseurs de médicaments (feuille "médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
Merci Isabelle, ca ne fonctionne pas davantage... En fait ce que je veux savoir c'est comment fait on le tri d'une colonne en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste
déroulante apparaissant lors d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" a écrit dans le message de news:
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube.
J'aimerais obtenir la liste des fournisseurs de médicaments (feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
Merci Isabelle, ca ne fonctionne pas davantage...
En fait ce que je veux savoir c'est comment fait on le tri d'une colonne
en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la
liste
déroulante apparaissant lors
d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:40B53D33.65FFC0DA@videotron.ca...
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils
controle, il faut mettre la propriété du bouton TakeFocusOnClick à
false.
isabelle
Salut groupe,
Je tente en vin de déboucher, en verre et contre toux, sur une
option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et
titube.
J'aimerais obtenir la liste des fournisseurs de médicaments
(feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique".
J'ai
essayé avec :
'selection.AutoFilter
'selection.AutoFilter Field:=5, Criteria1:=xlAll
mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis
newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click()
Rem Copier la colonne fournisseur de feuille "médicaments"
Rem Le code ci-dessous fonctionne
Dim Fourn, c As Range
Sheets("Fournisseurs").Select
Set Fourn = Sheets("médicaments").Range("nomcompagnie")
05 Fourn.Copy
ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique
Set Fourn = Nothing
Set Fourn = Sheets("Fournisseurs").Range("a:a")
ActiveSheet.Columns("A:A").Select
10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess,
Merci Isabelle, ca ne fonctionne pas davantage... En fait ce que je veux savoir c'est comment fait on le tri d'une colonne en vba s'entend.
Ou encore, ce qui serait mieux, comment récupérer les élements de la liste
déroulante apparaissant lors d'un filtre automatique. En vba si faire ce peut.
S.
"isabelle" a écrit dans le message de news:
bonjour Sruojlim,
si c'est une événement d'un bouton provenant de la boite à outils controle, il faut mettre la propriété du bouton TakeFocusOnClick à false.
isabelle
Salut groupe, Je tente en vin de déboucher, en verre et contre toux, sur une option
qui fonctionne. J'aimerais savoir ou ca cloche, accroche et titube.
J'aimerais obtenir la liste des fournisseurs de médicaments (feuille
"médicaments", colonne 5) tel que obtenu avec "filtre automatique". J'ai
essayé avec :
'selection.AutoFilter 'selection.AutoFilter Field:=5, Criteria1:=xlAll mais ca ne marche pas....
Le code ci-dessous plante a la ligne 10, erreur 1004. Oui je suis newbie.
TIA Merci d'avance
S.
Private Sub Cmdfournisseurs_Click() Rem Copier la colonne fournisseur de feuille "médicaments" Rem Le code ci-dessous fonctionne Dim Fourn, c As Range Sheets("Fournisseurs").Select Set Fourn = Sheets("médicaments").Range("nomcompagnie") 05 Fourn.Copy ActiveCell.PasteSpecial xlPasteAll
Rem Mettre en ordre alphabétique Set Fourn = Nothing Set Fourn = Sheets("Fournisseurs").Range("a:a") ActiveSheet.Columns("A:A").Select 10 Fourn.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
