Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Si cette cellule ne contient pas (X , Y, Z) alors la cacher

K

Kushi

XLDnaute Nouveau
Bonjour à tous,

Je suis débutant VBA et je vous demande de l'aide après plusieurs heures de recherche...

J'ai un tableau suivant A1:E(nb lignes variant)
et je souhaiterais faire un tri comme expliqué ci dessous:

Je veux que dans la colonne E s'affiche "OK" si dans la colonne D il y à le texte "VIS" ou "ECROU" ou "RIVET" ... ou "RONDELLE" ( par exemple )
S'il n'y a pas ces valeurs je souhaiterai cacher la ligne correspondante.

Alors avec ce que j'ai pu chercher sur internet j'ai trouvé comment faire une sorte de boucle mais ça ne fonctionne pas car je n'arrive pas a installer le pack de fonction Xlp...

Le code en question :

dim tableauVIS, tableauECROU, tableauRIVET
dim i as integer

do while Range("A" & i+2).value <>""
i = i + 1
loop

tableauVIS = cellsSearch(Range("D1: D" & i+2 ), "VIS")
tableauECROU = cellsSearch(Range("D1: D" & i+2 ), "ECROU")
tableauRIVET = cellsSearch(Range("D1: D" & i+2 ), "RIVET")

Do while i<0
if tableauVIS(i) = "D" & i+2 then
Range("E" & i+2).value = "OK"

elseif tableauECROU(i) = "D" & i+2 then
Range("E" & i+2).value = "OK"

elseif tableauRIVET(i) = "D" & i+2 then
Range("E" & i+2).value = "OK"

else
row(i+2).hide
end if

i = i - 1
Loop

Merci de m'aider rapidement ^^
 
Dernière édition:
Solution
Hello
j'ai mis la colonne O au hasard
je viens de modifier pour faire de la liste un tableau structuré qui s'appelle "Critères"
je l'ai mis dans une feuille "Listes"
il te suffit de déplacer ce tableau où tu le souhaites;
la seule modif à faire dans le code, c'est au cas où tu changes le nom de la feuille
VB: 
   .Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Listes").ListObjects("Critères").Range, Unique:=False

exemple, si tu déplaces le tableau de la feuille "Listes" vers une feuille qui s'appelle "AutreNom"
tu dois mettre à jour la ligne de code avec le nouveau nom

VB: 
    .Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("AutreNom").ListObjects("Critères").Range, Unique:=False
Trier par date Trier par votes

vgendron

XLDnaute Barbatruc
Bonjour et bienvenu

déjà. aider rapidement.. c'est si on veut: si tu relis la charte, tu verras qu'il n'y aucune obligation de résultat et de temps imparti: c'est un site de bénévoles. donc. c'est au bon vouloir des intervenants
et demander aux gens de faire vite.. je pense que ca a exactement l'effet inverse.. ca ne donne pas envie..


maintenant, pour t'aider, il faut que tu postes un fichier exemple.. parce que on ne va pas recréer un fichier qui a peu de chance de correspondre à ton fichier.
fichier exemple = fichier qui représente la structure de ton fichier original SANS aucune données confidentielles. que des données bidons mais exploitables.

pourquoi souhaites tu installer le "pack de fonction Xlp": pour ce qui semble etre une fonction spécifique "CellsSearch" ?? VBA a déjà tout ce qu'il faut pour chercher quelque chose dans des cellules..
 
Vote positif 0 Vote négatif
K

Kushi

XLDnaute Nouveau
Bonjour et Merci ,

Oui excuse moi pour la contrainte de temps que j'ai "imposé" je ne le voyais pas comme ça...

Le fichier exemple est donc ci-joint.

Je souhaitais installer le pack de fonction Xlp car c'est une méthode que j'ai trouvé le plus couramment sur les forums tant dis que s'il y a des fonctions recherches sur VBA je ne l'ai vu que très rarement et je n'ai pas réussi à le mettre en relation sur mon exemple...
 

Pièces jointes

  • Fichier Exemple.xlsx
    11.1 KB · Affichages: 4
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
Hello
j'ai mis la colonne O au hasard
je viens de modifier pour faire de la liste un tableau structuré qui s'appelle "Critères"
je l'ai mis dans une feuille "Listes"
il te suffit de déplacer ce tableau où tu le souhaites;
la seule modif à faire dans le code, c'est au cas où tu changes le nom de la feuille
VB: 
   .Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Listes").ListObjects("Critères").Range, Unique:=False

exemple, si tu déplaces le tableau de la feuille "Listes" vers une feuille qui s'appelle "AutreNom"
tu dois mettre à jour la ligne de code avec le nouveau nom

VB: 
    .Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("AutreNom").ListObjects("Critères").Range, Unique:=False
 

Pièces jointes

  • Fichier Exemple.xlsm
    24.2 KB · Affichages: 4
Vote positif 0 Vote négatif
Solution
K

Kushi

XLDnaute Nouveau
D’accord c’est super je te remercie pour le temps que tu as pu m’accorder !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Question
XL 2016 Problème dans la création d'une liste
Réponses
2
Affichages
327
Stéphane_1
S
C
  • Résolu(e)
XL 2021 Alimenter Listbox si colonne 3 contient un mot précis
Réponses
5
Affichages
519
Claudinedu13
C
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
372
CathyLD
C
D
  • Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
363
Didjo
D
R
  • Question
Microsoft 365 Couleur de fond de textbox [CLOTURE]
Réponses
2
Affichages
674
romubzh35
R
A
  • Résolu(e)
XL 2016 Boucle
Réponses
12
Affichages
801
Aldonanou
A
  • Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
833
Staple1600
A
  • Question
XL 2016 Sous-totaux ou WorksheetFunction.Sum
Réponses
2
Affichages
701
Aldonanou
A
  • Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
7 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…