Bug lors d'une recherche avec un userform

[sev]

Bonjour à tous , je lance un nouveau sujet : un bug lors d'une recherche avec un userform.
Je joint le fichier pour plus d'explications.

 

[sev]

Re : Bug lors d'une recherche avec un userform

Le fichier est trop lourd pour passer sur le forum même après une cure d'amaigrissement.

Toutefois j'ai réussie à le mettre sur ce lien :

http://cjoint.com/?gkpBZN5xpF

Excusez moi pour ce désagrément

 

[sev]

Re : Bug lors d'une recherche avec un userform

Pourrais je contraindre la recherche aux colonnes C,H,M et R ?

 

[bqtr]

Re : Bug lors d'une recherche avec un userform

Bonjour sev

Essaye comme ça si j'ai bien compris:

Private Sub TextBox4_Change()
Dim MyVar As Long
Dim MyRange As Range, MyCell As Range

    With Me.TextBox4
        Select Case Len(.Value)
               Case 3, 5
                   MyVar = Val(.Value)
               Case Else
                   Exit Sub
        End Select
    End With
    With Sheets("ROSE")
        Set MyRange = Union(.Range(.Range("C6"), .Range("A5000").End(xlUp)), _
         .Range(.Range("H6"), .Range("H5000").End(xlUp)), _
         .Range(.Range("M6"), .Range("M5000").End(xlUp)), _
         .Range(.Range("R6"), .Range("R5000").End(xlUp)))
    End With
    
    For Each MyCell In MyRange
        If Val(MyCell) = Val(MyVar) Then
            RunFormat_TextBox9 MyCell.Offset(0, -1)
            RunFormat_TextBox38 MyCell.Offset(0, 2)
            Exit Sub
        End If
    Next
End Sub

A+

 

[sev]

Re : Bug lors d'une recherche avec un userform

Merci beaucoup,
tes modifications on résolu mon problème.

Pourrais tu me commenter les modifs afin que je comprenne son fonctionnement ?
A+

 

[bqtr]

Re : Bug lors d'une recherche avec un userform

Re,

Le problème venait de ta variable MyRange.
Si tu définis MyRange plusieurs fois de suite avec l'instruction Set sans prendre en compte les plages précédemment déclarées seule la dernière plage sera prise en compte.
Dans ton cas, MyRange correspondait à la plage A6:R22.

De plus à chaque fois tu utilisais Range("A5000").End(xlUp)) pour chaque colonne (C,H,M,R) au lieu de ("C5000"), ("H5000")... donc ta plage MyRange ne pouvait pas être correcte.

La méthode Union te permet d'obtenir une plage avec des cellules disjointes. Dans le code sélectionne le mot Union et ensuite appuis sur la touche F1 tu auras des infos sur la méthode.

Bonne soirée

Edit: Je ne connais pas ces N° de train, Ils circulent en France ?