XL 2016 VBA : action si une cellule contient un texte

[QuentinV12]

Bonjour,

je recherche un code, une formule qui me permettrait de déclencher une action si une colonne contient une certaine valeur. exemple :

la colonne B contient des chaines de textes comme ATP - JUI - LOP ou ATP - LOP

j'ai une comobox avec en valeur ATP ou JUI ou LOP. je voudrais une fonction qui fait que si je sélectionne ATP dans ma comobox, ma colonne A n'affiche que les lignes contenant ATP dans la colonne B. Donc une formule qui m'affiche les lignes qui affichent la sélection du userform

je vous joins un fichier exemple

merci d'avance pour votre aide

Quentin

 

[Dranreb]

Bonjour.
Ceci a l'air de marcher :

Option Explicit
Private Sub UserForm_Initialize()
   ComboBox1.List = Feuil2.[B4:B7].Value
   End Sub
Private Sub ComboBox1_Change()
   Feuil1.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="=*" & ComboBox1.Text & "*", Operator:=xlAnd
   End Sub

 

[QuentinV12]

Bonjour.
Ceci a l'air de marcher :

Option Explicit
Private Sub UserForm_Initialize()
   ComboBox1.List = Feuil2.[B4:B7].Value
   End Sub
Private Sub ComboBox1_Change()
   Feuil1.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="=*" & ComboBox1.Text & "*", Operator:=xlAnd
   End Sub

Ah super ça !! Me manquait cette syntaxe, super cool ! Merci

 

[QuentinV12]

Bonjour.
Ceci a l'air de marcher :

Option Explicit
Private Sub UserForm_Initialize()
   ComboBox1.List = Feuil2.[B4:B7].Value
   End Sub
Private Sub ComboBox1_Change()
   Feuil1.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="=*" & ComboBox1.Text & "*", Operator:=xlAnd
   End Sub

est-ce qu'il y a moyen d'avoir quelque chose dans le genre mais avec une condition if (enfait c'est la syntaxe de la condition que je ne trouve pas..)

merci d'avance

 

[Dranreb]

Il faudrait déjà que je sache quelle condition vous voulez tester ?

 

[QuentinV12]

Il faudrait déjà que je sache quelle condition vous voulez tester ?

Par exemple si la colonne b contient la valeur sélectionné dans combombox1 alors copier toutes les valeurs de la colonne À correspondantes

 

[Dranreb]

Vous vouliez qu'elles soient juste affichées. Si en plus vous voulez qu'elle soient colpiées et collées ailleurs, ajoutez les instructions qui font ça. Aidez vous de l'enregistreur de macro pour le brouillon.

 

[QuentinV12]

Vous vouliez qu'elles soient juste affichées. Si en plus vous voulez qu'elle soient colpiées et collées ailleurs, ajoutez les instructions qui font ça. Aidez vous de l'enregistreur de macro pour le brouillon.

Mais en utilisant une condition (souvent utiles pour d’autres actions) est ce qu’il y a moyen d’ecrire Juste le If ... Then ? (Je m’occupe du reste)

 

[Dranreb]

Là ne sont affichées que les lignes contenant la valeur de la ComboBox1
Si vous préférez ne plus filtrer et passer en revue toutes les lignes vous pouvez faire

Private Sub ComboBox1_Change()
   Dim Z$, T(), L&
   Z = "*" & ComboBox1.Text & "*"
   T = Feuil1.AutoFilter.Range.Value
   For L = 1 To UBound(T, 1)
      If T(L, 2) Like Z Then
         …
         End If: Next L