Surligner ligne à partir Userform

Bonjour,

Je tente d'établir un code me permettant de surligner une ligne à partir d'un bouton "Surligner" d'un Userform lorsqu'un numéro est saisie dans un Textbox.

Voici mon code :

Private Sub btnSurligner_Click()

    Dim k As Variant
    Set k = ActiveSheet
    Sheets("Liste des données").Select

    If Cell.Value = "txtScan.Value" Then
        ActiveSheet.Rows([A1:M1500].Find(txtScan.Text).Row).Select 'Permet de selectionner lignes cellules
        For Each Cell In Selection 'Pour chaque cellule dans la selection
        Cell.Interior.ColorIndex = 1 'Colorie la couleur de la cellule
    End If

    Next

    k.Select

End Sub

En vous remerciant par avance !

Bonjour Jeremy 253 le forum

Je tente d'établir un code me permettant de surligner une ligne à partir d'un bouton "Surligner"

tu veux surligner une ligne complète ou surligner une sélection???

car tu dis entrer un nombre dans un textbox??

à te relire

a+

Papou

Bonjour paritec

Je souhaite surligner une ligne complète effectivement, lorsque j'ai saisie un numéro dans une Textbox.

Car ce numéro est présent dans la ligne que je souhaite surligner.

Bonjour,

C'est mieux de ne pas séléctionner, c'est mieux aussi d'agir sans se déplacer, c'est également mieux d'utiliser Color au lieu de ColorIndex si tu es sur une version postérieure à 2003, donc à tester...

Private Sub btnSurligner_Click()
    Dim r As Range, c As Range
    With Sheets("Liste des données").Range("A1:M1500")
        For Each r In .Rows
            For Each c In r.Cells
                If c = txtScan.Value Then
                    r.Interior.Color = vbBlack
                    Exit For
                End If
            Next c
        Next r
    End With
End Sub

J'ai conservé la coloration en noir !

Cordialement

Bonsoir Mferrand le forum

bah effectivement si Surligner c'est colorer c'est sur que c'est pas ce que moi j'avais compris, ni ce que j'aurais fait.

a+

Papou

Salut Paritec !

Le demandeur appelle surligner la coloration du fond de la cellule, et comme Excel ne permet que de colorer le fond ou le contenu (texte) et ne dispose pas de fonctionnalité du surlignage comme les traitements de texte... !

Re Bonsoir MFerrand le forum

bah alors si tu mets le ci-dessous tu vas obtenir quoi??? une ligne surlignée avec un double trait, ou bien??

Tu vas surligner toute la ligne qui possède du texte, c'est surligné et non coloré!! bon bref on sent fiche.

a+

Papou

Range("A2:M2").Font.Underline = xlUnderlineStyleDouble

Là, tu soulignes !

Re oui tu soulignes ou surligne c’est pas pareil??

En toute bonne foi pour moi c’etait Pareil

Bon on va pas en mourir alors à plus

Papou

Le surlignage consiste à apposer une couleur sur le texte, comme on le fait avec un stabilo sur papier...

Oui c’est vrai tu as raison

A plus

Papou

Bonne soirée !

Merci à tous !!!