Recherche dans une liste puis incrémentation de lignes...

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion WEIDER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

WEIDER

XLDnaute Impliqué
Bonjour à tous,

Je me casse les dents à trouver une solution à mon problème, mais je n'ai malheureusement pas les compétences pour y arriver... Pouvez vous m'aider ?

Cela concerne une 'Recherche' à effectuer dans une liste et à incrémenter automatiquement une ou plusieurs lignes suivant le résultat. Mon fichier devant servir à quelques personne, je voudrais qu'il soit didactique et sympa à utiliser.

Merci beaucoup pour votre aide !

Tout est dit dans mon fichier joint !

Encore merci à tous.

Amicalement

WEIDER
 

Pièces jointes

Trier par date Trier par votes
Re : Recherche dans une liste puis incrémentation de lignes...

Bonsoir WEIDER,
Salut Lone-wolf 🙂 (mais pourquoi un fichier .xlsm 😕)

Peut-être n'ai-je rien compris, mais essayons toujours:
  • en S1
    Code: 
    =SI(M1=$C$5;LIGNE();"")
    ... à recopier aussi loin que souhaité
  • en A10
    Code: 
    =SIERREUR(INDEX(M$1:M$200;PETITE.VALEUR($S$1:$S$200;LIGNES($1:1)));"")
    ... à recopier en bas et à droite
 
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Bonsoir Lone-wolf et Modeste,

Ta solution Modeste me parait bien !!!

Question : Lorsque je tire ta formule en A10 vers le bas puis sur la droite, pour quelle raison ai-je des 0 sur les 5 première lignes des résultat puis plus rien ensuite !?
Il me faudrait également une sorte de reset pour mettre ensuite cette zone de résultat à 'blanc' sans pour autant virer les formules bien évidement, c'est possible ? ;-)

Lone-wolf, tout comme Modeste je ne comprends pas les raisons du format *.xlsm !?!?!? Peut tu m'expliquer ?

Amicalement

Weider.
 
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Re,

WEIDER à dit:
Lorsque je tire ta formule en A10 vers le bas puis sur la droite, pour quelle raison ai-je des 0 sur les 5 première lignes des résultat puis plus rien ensuite !?
Cliquez pour agrandir...
... Euh ... je ne sais pas: je n'obtiens pas de lignes avec des 0 😕

Quant à la "remise à blanc" ... il suffit d'effacer le contenu de $C$5 😱 ... Si j'ai bien compris?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Alors...

Modeste :
En faite c'est souvent moi qui m'exprime mal, ça va un peu vite dans ma tête et du coup.... Bref
J'ai compris l'histoire des '0', il apparaissent seulement si je tire en 'S1' la formule plus loin de j'ai de ligne de datas ! Si j’arrête la formule pile poil sur ma dernière ligne remplie, aucun '0' !




OK Lone-wolf pour le M à la fin de *.xlsm. J'ai bien compris et je vais tacher de m'en souvenir.

Lone-wolf :
Ta solution à base d'une macro commande est... comment dire... Top de chez top ! Par contre lorsque je tape par exemple la référence 1000A - ZRM - K900, et bien je n'ai qu'une seule ligne qui s'incrémente et non 3 !?!?

Ta solution m’intéresse beaucoup malgré tout car lors de la saisie de recherche, si un espace est oublié avant ou après le '-' ça fonctionne malgré tout, et ça peut bien m'arranger dans certains cas...

Weider.
 
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Bonjour Weider, DoubleZero, Modeste

Desolé pour le quack. Voici la correction.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, Crow as Integer, premaddress

Crow = 0

Application.EnableEvents = False

With Range("m1:q65000")
Set cel = .Find(Range("c5"), , xlValues, xlWhole)
If Not cel Is Nothing Then
premaddress = cel.Address
Do
Range("a" & 10 + Crow) = cel.Offset(, 0)
Range("b" & 10 + Crow) = cel.Offset(, 1)
Range("c" & 10 + Crow) = cel.Offset(, 2)
Range("d" & 10 + Crow) = cel.Offset(, 3)
Range("e" & 10 + Crow) = cel.Offset(, 4)
Range("f" & 10 + Crow) = cel.Offset(, 5)
Crow =  Crow + 1
If Range("c5") = "" Then: Range("c5").Activate: Range("a10:f65000").ClearContents: Exit Do
Set cel = .FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> premaddress
End If
End With
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("m1:q65000")) Is Nothing Then Exit Sub
End Sub


A+ 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Bonjour à tous !

DoubleZero, l'ouverture de ton fichier me génère cette boite d'erreur !?!?
As tu mis l'option de pouvoir supprimer les lignes trouvées pour rendre la zone vierge ?

Lone-wolf, ta solution m'intéresse, alors merci bien pour ta réponse ;-)

Excellente journée à tous et merci encore pour votre aide !

Amicalement

Weider.
 

Pièces jointes

  • Boite.jpg
    Boite.jpg
    12.6 KB · Affichages: 34
  • Boite.jpg
    Boite.jpg
    12.6 KB · Affichages: 32
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Re-bonjour,

WEIDER à dit:
... DoubleZero, l'ouverture de ton fichier me génère cette boite d'erreur !?!?
As tu mis l'option de pouvoir supprimer les lignes trouvées pour rendre la zone vierge ?...
Cliquez pour agrandir...

Je ne comprends ni l'erreur, ni le nom mentionné ("-4") :

attachment.php


Une autre personne a-t-elle rencontré la même erreur, s'il vous plaît ? Merci 🙂

Oui, la plage de résultats est vidée pour toute nouvelle recherche.

A bientôt 🙂
 

Pièces jointes

  • Pourquoi 4.JPG
    Pourquoi 4.JPG
    9.5 KB · Affichages: 44
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Bonjour le fil,
Bises à 00

DoubleZero à dit:
Une autre personne a-t-elle rencontré la même erreur, s'il vous plaît ? Merci 🙂
Cliquez pour agrandir...
Pour rassurer mon aînée 😱: j'ouvre le fichier, sans difficulté, ni message ... et il semble même que les résultats qui s'affichent soient conformes à la demande 😀

Belle journée à tout le monde
 
Vote positif 0 Vote négatif
Re : Recherche dans une liste puis incrémentation de lignes...

Quand je réponds oui à ma première boite, une deuxième boite d'alerte apparait...
Vous tracassez pas les amis, je pense que cela doit venir de mon PC et de ma configuration d'Excel....
 

Pièces jointes

  • Capture.JPG
    Capture.JPG
    38.1 KB · Affichages: 40
  • Capture.JPG
    Capture.JPG
    38.1 KB · Affichages: 45
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
835
richard31
R
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
195
Bibinaire
B
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
158
elgringo123456
E
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
182
agayet
A
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
242
Sylvia57
S
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
970
kiko_23
K
L
  • Question Question
XL 2021 Renvoi d'une valeur texte dans une colonne d une autre feuille
Réponses
6
Affichages
244
laurent34750
L
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
601
ftpo69
F
D
  • Résolu(e)
Microsoft 365 lier deux colonnes selon une liste de distribution dans un premier fichier
2
Réponses
16
Affichages
810
Daniel200666
D
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
431
MCOTTEND
M
S
  • Question Question
XL 2021 Recherche de communes dans un rayon de x km
Réponses
14
Affichages
890
mapomme
mapomme
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
157
job75
job75
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
255
xavieralvaro
X
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
388
Dubuyz1
D
D
  • Question Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
317
duduche62
D
jeff1494
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
939
jeff1494
jeff1494
Calvus
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
422
p56
p56
L
  • Question Question
Microsoft 365 Effectué une recherche dans plusieurs fichiers
2 3
Réponses
42
Affichages
4 K
job75
job75
A
  • Question Question
XL 2016 Isoler des noms dans une liste de salariés
Réponses
7
Affichages
674
JHA
J
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
660
AtTheOne
AtTheOne
Retour