Range objet _global (RESOLU)

[frasylest]

Voici le fichier avec les diffèrents onglets, merci.

 

[thebenoit59]

Re : Range objet _global

Bonjour Frasylest.
Je me perds dans toutes tes USF, mais à ce que je vois, si j'entre France et que je lance le dé, il ne trouve pas de résultats à ta recherche ci-dessous :

Titre = Range("B5").Value
    With Sheets("collection").Range("B:B")
    Set c = .Find(Titre, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then lig = c.Row
    End With
Unload UsfSelection
UsfAffiche.Show

Donc tu n'obtiens pas de valeurs pour lig et donc ton USF affiche ne peut pas se charger sans valeur lig.

 

[frasylest]

Re : Range objet _global

Merci, j'ai oublié de signaler que FRANCE n'est pas bon mais vaut mieux taper par exemple LORIENT

 

[thebenoit59]

Re : Range objet _global

Ca marche 🙂.
En fait ta fonction find ne recherche que la même valeur, soit [a5] de ta feuille RECHERCHE, c'est bien ça ?

 

[frasylest]

Re : Range objet _global

Elle recherche dans l'onglet CACHE en case B5. Dans le fichier que j'ai envoyé, il faut aller AFFICHER ce dernier? J'essaye de renvoyé le fichier. Merci

 

[thebenoit59]

Re : Range objet _global

Premièrement :
Déclarer la variable Long en global dans un module, en module un par exemple tout en haut :

Global Lig As Long

Deuxièmement :
Corriger ta fonction recherche, de l'UsfSelection :

Titre = Sheets("cachée").Range("B5").Value
    With Sheets("collection").Range("B:B")
    Set c = .Find(Titre, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Lig = c.Row
    End With

Troisièmement :
Corriger ton code de l'UsfAffiche :

Private Sub UserForm_Initialize()
With Worksheets("collection")
    LblTitre.Caption = .Range("B" & Lig).Value
    LblDept.Caption = .Range("F" & Lig).Value
    LblCp.Caption = .Range("G" & Lig).Value
    LblRegion.Caption = .Range("H" & Lig).Value
    LblPays.Caption = .Range("I" & Lig).Value
    LblIndicatif.Caption = .Range("J" & Lig).Value
    LblMatiere.Caption = .Range("K" & Lig).Value
    LblPart.Caption = .Range("L" & Lig).Value
    LblDescriptif.Caption = .Range("M" & Lig).Value
    Lblboite.Caption = .Range("C" & Lig).Value
    Lbletage.Caption = .Range("D" & Lig).Value
    Lblposition.Caption = .Range("E" & Lig).Value
End With
End Sub

Et normalement ça fonctionne. Chez moi j'arrive à afficher la requête Lorient en tout cas.

 

[frasylest]

Re : Range objet _global

Merci beaucoup de votre rapidité et de votre gentillesse à me faire profiter de vos connaissances, ça fonctionne très bien, merci encore.
Sylvain

 

[thebenoit59]

Re : Range objet _global (RESOLU)

Content que la solution corresponde à ton attente.
Bonne continuité pour ton projet.