filtres auto par vba

[B3lga]

bonsoir
je poste donc dans une nouvelle discussion.

Cijoint.fr - Service gratuit de dépôt de fichiers

j'ai un problème sur la macro intitulé depart_ment
au moment de copié elle renvoie sur la macro de ma combobox...
si vous pouviez me dire ce qui cloche, merci

 

[PMO2]

Re : filtres auto par vba

Bonjour,

Essayez avec une partie de votre code dans laquelle les modifications sont signalées par 'ajout pmo

Private NoAction As Boolean   'ajout pmo

Private Sub département_Change()
If NoAction Then Exit Sub   'ajout pmo
Worksheets("Feuil1").Select
Range("I1") = département
Call depart_ment
NoAction = False    'ajout pmo
End Sub

Sub depart_ment()
    Sheets("Feuil2").Select
    Cells.Select
    Selection.ClearContents
    Sheets("Feuil1").Select
    Application.Goto Reference:="base_ville"
NoAction = True   'ajout pmo
    Selection.AutoFilter Field:=2, Criteria1:=département
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub

Cordialement.

PMO
Patrick Morange

 

[Excel-lent]

Re : filtres auto par vba

Re-bonsoir B3lga,

(...)

Edition : Bonsoir PMO2, pas vu qu'il y avait du monde sur le fil!

Bonne soirée

 

[B3lga]

Re : filtres auto par vba

ouiiiiiiiiiiiiiiiiiiiiii
merci, en espérant qu'il y a des couches-tard dans le coin.
ça marche impec, encore merci.

au fait pourquoi ça ne fonctionnait pas?

et en même temps :

Private Sub ville1_Change()
    
    Sheets("recap").Select
    Range("B6") = ville1
    
    Sheets("Feuil2").Select
    Cells.Select
    Selection.ClearContents
    
    Sheets("recap").Activate
    
End Sub

cela bug lors du clearcontents. j'ai copié le code du sub précédent... je comprend pas pourquoi une fois il marche une fois il marche pas.

 

[Excel-lent]

Re : filtres auto par vba

    Sheets("Feuil2").Select
    [COLOR="Blue"][B]Cells.[/B][/COLOR]Select
    Selection.ClearContents

cela bug lors du clearcontents. j'ai copié le code du sub précédent... je comprend pas pourquoi une fois il marche une fois il marche pas.

Pour les fois où il bug c'est parce que tu ne lui dit pas quelle cellule effacer!?!?

Code qui ne bug pas :

    Sheets("Feuil2").Select
    [COLOR="Blue"][B]Cells([COLOR="Red"][B]8,1[/B][/COLOR])[/B][/COLOR].Select
    Selection.ClearContents

C'est un exemple : signifie cellule A8

Mais sinon, tu peux le simplifier de la façon suivante :

    Sheets("Feuil2").Cells(8,1).ClearContents

Bonne soirée

 

[B3lga]

Re : filtres auto par vba

mais alors, dans la programmation de pmo il y a la même expression et pourtant cela fonctionne. au pire il faudrait effacer la feuille entière. j'ai déjà essayé

sheets("Feuil2").clearcontents

sheets("Feuil2").select
selection.clearcontents

mais ren n'y fait...

de plus je voudrais que la valeur d'une liste déroulante soit inscrite dans une cellule en fonction du résultat de boutons d'options. c'est à dire que si c'est le optionbutton1 qui est activé alors la valeur de ma combobox ira s'écrire dans la cellule A1 sinon ce sera dans la cellule A2

 

[B3lga]

Re : filtres auto par vba

bonsoir, ou bonjour selon l'heure à laquelle vous lirez ces lignes

j'ai réglé mon problème de optionbutton et de combobox.

j'ai maintenant un nouveau défi pour vous, et je sais que vous allez aimer... (en fait j'en sais rien mais c'était pour attirer votre curiosité!)
comment convertir des nombres stockés en format texte en nombre grâce au vba, cela va sans dire 😉

 

[B3lga]

Re : filtres auto par vba

bonjour,

j'ai toujours mon problème de selection.clear qui ne fonctionne pas alors que cela fonctionne sur une autre macro. de même, des soucis avec du selection.paste... à n'y rien comprendre!

 

[B3lga]

Re : filtres auto par vba

toujours personne?

 

[PMO2]

Re : filtres auto par vba

Bonjour,

Je ne sais pas où vous en êtes. Le mieux serait de mettre, en pièce jointe, votre classeur pour une meilleure prise en compte.
Egalement, précisez ce que vous voulez faire exactement.

Cordialement.

PMO
Patrick Morange

 

[Excel-lent]

Re : filtres auto par vba

Bonsoir B3lga,

comment convertir des nombres stockés en format texte en nombre grâce au vba

Tout dépend dans quoi ils sont stocké! S'ils sont dans une TextBox :

CByte(TextBox...)

Pour ton autre question :

mon problème de selection.clear

PMO2 sera plus à même de te répondre que moi.

toujours personne?

Si mais mon patron ne veut pas me payer pour être sur le forum durant la journée! Et il veut que je dorme la nuit pour être en forme la journée! Va savoir pourquoi! 🙂
Fais plutôt un "up" en début de soirée, tu toucheras plus de personnes 😉


Bonne soirée

 

[B3lga]

Re : filtres auto par vba

ok, désolé de paraître parfois insistant. ce problème est réglé je remercie toutes les personnes qui ont participé