XL 2010 FILTRER UNE LISTE EN FONCTION D'UNE VARIABLE

[JULIAM92]

Bonjour à tous
Désolée, mais je galère depuis 2 heures sur mon fichier...
Je n'ai pas (su ?) trouver la solution dans les forums.
Je souhaiterais filtrer la colonne i de mon fichier en fonction de la réponse de l'utilisateur (2015 par exemple) de façon à ce que le filtre prenne la valeur 2015*.
Je me doute bien que ce n'est pas compliqué, mais j'ai essayé tellement de possibilités que je craque !
Un grand merci par avance !

 

[gosselien]

Bonjour,

en filtrant sur le début de la cellule , ça irait non ?
choisir "commence par"
P.

 

[JULIAM92]

Bonjour,

en filtrant sur le début de la cellule , ça irait non ?
choisir "commence par"
P.

 

[JULIAM92]

Bonjour Gosselin
Si c'est moi qui le fait, pas de soucis
Mais ce n'est qu'un bout de la macro du fichier réel et mes utilisateurs ne sont pas trop à l'aise...
C'est pourquoi j'aimerais transcrire la réponse à la question en "commence par"
Encore merci pour votre aide

 

[JULIAM92]

Bon, j'ai réglé le problème en ajoutant le * dans la boite
Mais ça m'énerve de ne pas avoir réussi à ajouter le * à la variable...
Bonne journée

 

[Modeste]

Bonjour JULIAM92, gosselien,
Ça vaut ce que ça vaut, mais pour répondre à la question initiale, il me semble que ceci devrait fonctionner:

ActiveSheet.Range("$A$2:$A$1989").AutoFilter Field:=9, Criteria1:="=" & ACLOTURER & "*", Operator:=xlAnd

 

[Si...]

Salut

Dans mon style dépouillé (plus c’est court plus c’est simple à écrire, n’est-ce pas Modeste ?)

Avec un bouton sur l’onglet (à défaut d’évènementielle),

Private Sub CommandButton1_Click()
  Dim T As String
  T = InputBox("Quelle année souhaitez-vous clôturer ?","")
  [A2:I2].AutoFilter 9, T & "*", 1
End Sub

 

[Modeste]

plus c’est court plus c’est simple [...] n’est-ce pas Modeste

Mais pourquoi tant de haine Je sais que j'ai l'air un peu simple ... mais court ... n'exagérons pas

 

[JULIAM92]

Salut

Dans mon style dépouillé (plus c’est court plus c’est simple à écrire, n’est-ce pas Modeste ?)

Avec un bouton sur l’onglet (à défaut d’évènementielle),

Private Sub CommandButton1_Click()
  Dim T As String
  T = InputBox("Quelle année souhaitez-vous clôturer ?","")
  [A2:I2].AutoFilter 9, T & "*", 1
End Sub

 

[JULIAM92]

Bonjour et Merci à Si et à Modeste.
Vos réponses répondent parfaitement à ma question
J'avoue que je n'ai pas de style et que j'étais partie sur la réponse de Modeste, mais avec toujours les problèmes de syntaxe, je plaçais mal les "" et certainement pas autour du =
Bien contente d'avoir compris et garde précieusement les deux propositions !
Très bonne journée à vous !

 

[Modeste]

je n'ai pas de style [...] j'étais partie sur la réponse de Modeste

Ah mais c'est la totale, aujourd'hui : je suis un peu simple, trop court et je manque de style, maintenant J'vous jure, y'a des jours, on resterait bien au lit!

 

[JULIAM92]

Désolée Modeste si je t'ai froissé.
Ma réponse reprenait celle de Si !
C'est la tienne que j'ai retenue car elle me parle mieux, et ce qui se conçoit bien s'énonce clairement !
Sans rancune ?

 

[Si...]

Re

... J'vous jure, y'a des jours, on resterait bien au lit!

Tu ne crois plutôt pas que tes soi-disant problèmes viennent de ce que, pour lire de travers hein, tu as oublié de chausser … tes lunettes ?

Julia, il y a des *, brillant au firmament comme des stars, dont on ne peut se dispenser quel que soit le regard qu’on leur porte .

Note personnelle : pour moi, n’a pas une connotation mal... s... Haine !

 

[Modeste]

Bonsoir,

Désolée Modeste si je t'ai froissé.

Que nenni! En aucun cas!

lire de travers hein

Ouh là! Heureusement qu'il était en italique, celui-là, sinon je l'aurais raté
C'est confirmé: je vais me coucher, tiens, ô rayé (oui, il est aussi mauvais, mais comme ça tu vois l'effet que ça fait! )