XL 2019 Récupérer des données en fonction d'une cellule

B

Bebere

XLDnaute Barbatruc

• 20 Janvier 2020

• #2

Bonjour
voilà un code pour voir si le problème a été bien compris
code dans module2

 

Pièces jointes

• TEST V1.xlsm

  242.8 KB · Affichages: 5

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 20 Janvier 2020

• #3

Bonjour Berbere,
Merci pour ta réponse.

Je ne parviens pas à lancer ta macro, j'ai un message d'erreur : "Argument ou appel de procédure incorrect" pour cette ligne :

VB:

Feuil5.Range("A" & i) = Mid(Feuil2.Range("A" & i), 1, InStr(Feuil2.Range("A" & i), " ") - 1)

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 20 Janvier 2020

• #4

bonsoir
Wtf met les 3 lignes en commentaire, instr donne 0 d'où erreur

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 20 Janvier 2020

• #5

Bonsoir Berbere,

Pourquoi est ce que instr donne 0 ?

Je comprends que tu fais -1 à la fin, mais je ne sais pas pourquoi.

VB:

'résultat

L = Feuil5.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To L
Feuil5.Range("A" & i) = Mid(Feuil2.Range("A" & i), 1, InStr(Feuil2.Range("A" & i), " ") - 1)
Next

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 21 Janvier 2020

• #6

bonjour
Wtf cela vient de la feuille Titriz colonne A qui contient normalement 2018-12-31 00:00:00.000
j'ai certainement commis une erreur en écrivant le code d'où instr=0
instr compte le nombre de caractère jusqu'à espace d'où le -1 pour avoir les caractères de la date

 

Pièces jointes

• TEST V1.xlsm

  245.2 KB · Affichages: 2

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 21 Janvier 2020

• #7

Bonjour Berbere,
Un grand merci ca fonctionne maintenant et j'ai pu faire un test. C'est vraiment TOP !!
J'ai pris comme code de départ S665 pour faire un test.

Voici les quelques choses que j'aimerai pouvoir faire évoluer :
- ne sont repris dans l'onglet résultat, que les lignes "Type info = 2-Detail" et j'aimerai que les lignes "1-Global" soient reprises aussi

- dans l'exemple en PJ, le code S786 apparaît à 3 reprises dans la colonne "soc_detenue" (en orange dans mon fichier) idéalement il ne faudrait faire la recherche qu'une seule fois

- il me semble que la recherche ne va pas jusqu'au bout, les infos des "soc_detenue" par S407 et S786 ne sont pas reprises

Merci pour ton aide

 

Pièces jointes

• TEST V1 (1).xlsm

  226.3 KB · Affichages: 4

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 21 Janvier 2020

• #8

Wtf
Je m'en doutais un peu que ce n'était pas complet
maintenant que le début est bon nous pouvons aller de l'avant
tu veux le tout en une fois ou global et détail à part
tu vois un moyen de savoir que tout est fait

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 21 Janvier 2020

• #9

Bebere à dit:

tu veux le tout en une fois ou global et détail à part

Cliquez pour agrandir...

Plutôt tout en 1 fois

Bebere à dit:

tu vois un moyen de savoir que tout est fait

Cliquez pour agrandir...

si tous les codes présents en "soc_detenue" sont présent aussi en "code_ass_soc_detentrice" avec une ligne "1-Global"
Mais je devrais probablement toujours faire un controle manuel.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 21 Janvier 2020

• #10

Wtf
Je pense qu'un code avec dictionary serait la solution

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 21 Janvier 2020

• #11

Bebere à dit:

Je pense qu'un code avec dictionary serait la solution

Cliquez pour agrandir...

Je manque tellement de connaissance en VBA que je ne peux dire que tu as probablement raison, mais je ne sais absolument pas ce que ça veut dire

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 21 Janvier 2020

• #12

Bonjour,

Je ne fais que passer.
Ici un lien très intéressant sur la comparaison tableau/collection/dictionary (en anglais)

Bonne continuation

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 24 Janvier 2020

• #13

bonjour
WTF pas trouvé de solution avec dictionary,fait autrement
résultats à contrôler(fait en partie)

 

Pièces jointes

• TEST V2.xlsm

  268.9 KB · Affichages: 3

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 24 Janvier 2020

• #14

Top Merci Bebere,
Quelques points sur lesquels je souhaiterais que le résultat évolue :
- Pourquoi ne sont repris que les lignes "2-Detail" et pas toutes les lignes y compris "1-Global" ?
- J'ai fait un test sur le code S741. il me semble que la recherche ne va pas jusqu'au bout, les infos des "soc_detenue" par exemple S1683 et S1430, ... ne sont pas reprises

Merci d'avance

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 24 Janvier 2020

• #15

WTf s741 détient s1683 qui n'a pas de détenu et pas de %
pour global si pas de % n'apparait pas

 

Vote positif 0 Vote négatif