Recherche de données dans un tableau
Fermé
teamstgobain
-
8 sept. 2014 à 17:31
eriiic Messages postés 24509 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 10 mars 2023 - 9 sept. 2014 à 12:02
eriiic Messages postés 24509 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 10 mars 2023 - 9 sept. 2014 à 12:02
A voir également:
- Recherche de données dans un tableau
- Recherche musique - Guide
- Recherche par image - Guide
- Tableau croisé dynamique - Guide
- Extraire des données d'un tableau excel vers un autre tableau ✓ - Forum Excel
- Afficher un tableau en c - Forum C
5 réponses
eriiic
Messages postés
24509
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 mars 2023
7 166
9 sept. 2014 à 12:02
9 sept. 2014 à 12:02
Je suis d'accord pour le filtre Eric, mais est-il possible qu'il soit en automatique ?
Il est où le fichier de travail ?
Sinon l'enregistreur de macro te donne une bonne base de départ.
eric
Il est où le fichier de travail ?
Sinon l'enregistreur de macro te donne une bonne base de départ.
eric
eriiic
Messages postés
24509
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 mars 2023
7 166
9 sept. 2014 à 00:45
9 sept. 2014 à 00:45
Bonjour,
tu filtres et copie-colle le résultat du filtre, c'est ce qui sera le plus rapide.
Pour tes prochaines demandes : mettre en forme le code et joindre un fichier (cjoint.com)
eric
tu filtres et copie-colle le résultat du filtre, c'est ce qui sera le plus rapide.
Pour tes prochaines demandes : mettre en forme le code et joindre un fichier (cjoint.com)
eric
teamstgobain
Messages postés
2
Date d'inscription
mardi 9 septembre 2014
Statut
Membre
Dernière intervention
9 septembre 2014
9 sept. 2014 à 11:31
9 sept. 2014 à 11:31
Je suis d'accord pour le filtre Eric, mais est-il possible qu'il soit en automatique ?
En cliquant sur le bouton "Valider" de mon userform ?
En cliquant sur le bouton "Valider" de mon userform ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
9 sept. 2014 à 09:14
9 sept. 2014 à 09:14
Bonjour,
Regardez le code de cette fonction findall : https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel#findall
En cas de difficulté n'hésitez pas...
ps : salut Eric
Regardez le code de cette fonction findall : https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel#findall
En cas de difficulté n'hésitez pas...
ps : salut Eric
teamstgobain
Messages postés
2
Date d'inscription
mardi 9 septembre 2014
Statut
Membre
Dernière intervention
9 septembre 2014
9 sept. 2014 à 11:29
9 sept. 2014 à 11:29
Merci d'avoir pris le temps de me repondre.
pijaku, désomé pour le doublon, étant donné que je suis nouveau sur le site je pensais que ma demande n'avais pas était prise en compte.
pijaku, désomé pour le doublon, étant donné que je suis nouveau sur le site je pensais que ma demande n'avais pas était prise en compte.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
borntobealive
Messages postés
138
Date d'inscription
jeudi 17 juillet 2014
Statut
Membre
Dernière intervention
25 février 2019
7
9 sept. 2014 à 11:38
9 sept. 2014 à 11:38
en enlevant le superflue et en reajoutant des inhibiteurs je pense que tu peux accelerer :
Dis moi si ça accélère ( j'ai aucune certitude)
PS : slt eric, slt Franck
application.screenUpdating = false
dim cel as Range
dim Data as Worksheet
dim Data2 as Worksheet
set Data = ThisWorkbook.Worksheets("Data")
set Data2 = ThisWorkbook.Worksheets("Data_2")
'j'ai pas mis F parce que je sais pas si il n'y pas de cellule vide dans la colonne en question
for each cel in Data.Range("A:A").specialCells(xlTextValue)
'du coup ça m'oblige à faire un offset
if cel.offset(0,5).value = textBox2.value then
ligne = Sheets("Form").Range("A1").Value
Data2.cells(ligne,1).entireRow.value = cel.entireRow.value
sheets("Form").range("A1").value = ligne +1
end if
next cel
application.screenUpdating = true
Dis moi si ça accélère ( j'ai aucune certitude)
PS : slt eric, slt Franck