Modifer le formatage de mes caractères après un test

Bonjour,

J'ai un léger problème avec mon code, c'est à dire que j'effectue un test dans un fichier excel.. et si ce test est vrai j'aimerai mettre en gras, en italique ou souligner la référence contenu dans ma 2eme colonne (à partir de la ligne 6) de "mise en forme finale".

'Test si composant feed_rab
Set tws = ThisWorkbook.Sheets("mise en forme finale")
    dlt = tws.Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne de tws
    PathName = "T:\ISh\liste pour récup\"
    Filename = "feed_rab.xls"
    Set wbs = Workbooks.Open(Filename:=PathName & Filename)
    Set ws = wbs.Sheets(1) 'ws =feuil1 de feed_rab
    dls = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' dernière ligne de ws
    Set ref = ws.Range(ws.Cells(2, 1), ws.Cells(dls, 1)) 'plage de recherche de la reference
    For i = 6 To dlt 'pour chaque ligne de tws
    Set re = ref.Find(tws.Cells(i, 2), lookat:=xlWhole) 'recherche de la référence
    If Not re Is Nothing Then tws.Cells(i, 1) = re.Offset(0, 1) 'si reference trouvée
    Next i
    wbs.Close
    Application.ScreenUpdating = False

Bonjour,

essaie ceci

'Test si composant feed_rab
Set tws = ThisWorkbook.Sheets("mise en forme finale")
    dlt = tws.Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne de tws
   PathName = "T:\ISh\liste pour récup\"
    Filename = "feed_rab.xls"
    Set wbs = Workbooks.Open(Filename:=PathName & Filename)
    Set ws = wbs.Sheets(1) 'ws =feuil1 de feed_rab
   dls = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' dernière ligne de ws
   Set ref = ws.Range(ws.Cells(2, 1), ws.Cells(dls, 1)) 'plage de recherche de la reference
   For i = 6 To dlt 'pour chaque ligne de tws
   Set re = ref.Find(tws.Cells(i, 2), lookat:=xlWhole) 'recherche de la référence
   If Not re Is Nothing Then tws.Cells(i, 1) = re.Offset(0, 1):re.Font.Underline = xlUnderlineStyleSingle 'si reference trouvée
   Next i
    wbs.Close
    Application.ScreenUpdating = False

Bonjour,

H2SO4, j'ai une autre question pour toi, j'essaye de réaliser un code qui me permettrai de colorier une cellule sur deux dans un tableau, la longueur des colonnes du tableau est variable (dans mon exemple j'ai 93ligne), mais ma boucle colorie jusqu'à la ligne185

A-tu une idée ?

code

Dim j As Long, x As Long
    Set tws = ThisWorkbook.Sheets("mise en forme finale")
    dlt = Cells(Rows.Count, 1).End(xlUp).Row
    j = 1:
    For x = 1 To dlt
    Range(Cells(j, 1), Cells(j, 8)).Interior.ColorIndex = 15
    j = j + 2
    Next

Bonjour,

essaie ceci

Dim j As Long, x As Long
    Set tws = ThisWorkbook.Sheets("mise en forme finale")
    dlt = tws.Cells(tws.Rows.Count, 1).End(xlUp).Row
    For x = 1 To dlt
   if (x mod 2)=1 then tws.Range(Cells(x, 1), Cells(x, 8)).Interior.ColorIndex = 15
    Next

T'es le BOSS de ce Forum