Nouvelle macro ? need help again

Bonsoir Michel,

Effectivement j'avais oublié de faire un répondre au dernier message posté par Alex :

https://forums.commentcamarche.net/forum/affich-34796090-positionner-sur-ligne-resultat-de-recherchev

En tout cas, merci pour ton aide grandement appréciée.
J'ai fait un test avec la macro sur un bouton mais ça plante avec une erreur et rien ne s'affiche sur la feuille "baie" dans la colonne C ?!

J'ai du oublier quelque chose j'imagine...

https://mon-partage.fr/f/ilsCMUy4/

Je ne comprends pas tout le code malgré les commentaires lol

Bonne soirée

Cordialement

Jean

Very Nice !
Super !
Merci Beaucoup depuis le temps que je cherche !
c'est exactement ce que je voulais.
Je n'ai plus qu'a adapter au fichier définitif et à regarder l'objet "dictionary"
:-)
Grand merci

Effectivement, un code est propre à un fichier bien spécifique.

Du coup j'ai essayé d'adapter l'exemple à mon fichier d'origine en changeant les noms de colonnes et variables mais sans succès.

Voici le fichier original :

https://mon-partage.fr/f/5HIK9V5l/

L'adaptation que j'ai essayé de faire avec de la macro que tu m'as envoyée :

https://mon-partage.fr/f/hkKFgP3N/

Il doit s'agir d'un problème de syntaxe différente peut etre ?

Je n'ai pas encore compris toute le subtilité du code ;-)

Cordialement

fx

Bonjour Michel,

Au risque d'abuser encore un peu de ton temps, de ta patience, et de ton savoir.

J'ai du coup repris le code pour mon fichier final :

https://mon-partage.fr/f/5HIK9V5l/

mais il y a deux lignes que j'ai du mal à comprendre :

Si j'ai bien compris le code compare les colonnes 1 et 2 des deux feuilles et reprend le contenu de la cellule C de la feuille 1 si les colonnes sont identiques sur la même ligne et la rajoute sur la cellule C de la feuille 2 ?

"T_baie = .Range("A2:C" & Derlig)
T_sw = .Range("A3:C" & Derlig)"

pour mon nouveau fichier, les 3 colonnes ne sont pas les unes à la suite des autres, est ce que je peux tout de même utiliser les mêmes commandes ci dessus mais avec mes colonnes décalées :


1°) Colonnes EF à comparer avec colonnes M et N

2°) si identiques, copier cellule D de la feuille "BDD" en cellule H de la feuille "baie HSA" :

ce qui devrait donner ceci :

https://mon-partage.fr/f/WsISusst/


Option Explicit
'---------------------------------------------

Sub lister_postes_par_swich()
Dim Derlig As Integer, Lig As Integer, T_baie, Ref As String, D_baie As Object
Dim T_sw

Application.ScreenUpdating = False
'----------------memorisation feuille baie
With Sheets("baie HSA")
Derlig = .Columns("E").Find(what:="*", searchdirection:=xlPrevious).Row
'mémorisation du couple matos-port
T_baie = .Range("E2:H" & Derlig)
'creation d'un dico avec les références des couples
Set D_baie = CreateObject("scripting.dictionary")
For Lig = 1 To UBound(T_baie)
Ref = T_baie(Lig, 1) & " " & T_baie(Lig, 2)
If Not D_baie.exists(Ref) Then: D_baie.Add Ref, ""
Next
End With
'-------recherche des PC d'un couple
With Sheets("BDD")
Derlig = .Columns("M").Find(what:="*", searchdirection:=xlPrevious).Row
'mémorisation du couple matos-port
T_sw = .Range("M3:D" & Derlig)
For Lig = 1 To UBound(T_baie)
Ref = T_sw(Lig, 1) & " " & T_sw(Lig, 2)
'construction de la liste concaténée des PC du couple
If D_baie.exists(Ref) Then: D_baie.Item(Ref) = D_baie.Item(Ref) & " " & T_sw(Lig, 3)
'MsgBox D_baie.Item(Ref) verif essai
Next
End With

'---------restitution
With Sheets("baie HSA")
.Range("H2:H10000").ClearContents
.Range("H2").Resize(D_baie.Count, 1) = Application.Transpose(D_baie.items)
.Activate
End With

End Sub

?

D'autre part, est ce qu'il y a un filtre du nombre de caractères existants après "sw" ? car mes switch sont nommés FRDISWxxx et non SWxxx ?

d'où le ==> "& T_sw(Lig, 3)"

Je te remercie par avance pour tes lumières.

Cordialement

fx