recherche texte et macro excel

Question

Bonjour à tous!

Je cherche une matrice excel capable de recherche dans la première colonne, chaque cellule qui commence par "020".

le probleme est que ce "020" est précédé d'un certain nombre d'espace (ce nombre étant variable). Pour chaque cellule reconnue, il faudrait alors que la matrice mette en place un format pour l'ensemble de la ligne concernée (bordure, motif...).

Merci d'avance pour vos conseils.

Pierre

onesdf · Answer

Salut, il faut que tu fasses quelque chose de ce style :

    For Each Cellule In Columns(1).Cells
        If Left(Trim(Cellule.Value), 3) = "020" Then
            ' Ici les traitements à appliquer à ta cellule en question
        End If
    Next

gbinforme · Answer

bonjour

Une formule assez similaire à adapter aussi avec tes couleurs et tes tailles
Public Sub rech_020()
Dim lig As Long
For lig = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
    If Left(Trim(Cells(lig, 1)), 3) = "020" Then
        With Cells(lig, 1)
            .Interior.ColorIndex = 34
            .Interior.Pattern = xlSolid
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeLeft).Weight = xlMedium
            .Borders(xlEdgeLeft).ColorIndex = xlAutomatic
            .Borders(xlEdgeTop).LineStyle = xlContinuous
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeTop).ColorIndex = xlAutomatic
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
            .Borders(xlEdgeRight).LineStyle = xlContinuous
            .Borders(xlEdgeRight).Weight = xlMedium
        End With
    End If
Next lig
End Sub

Recherche texte et macro excel

2 réponses

Discussions similaires

Newsletters