Discussion :

[mick77]

Bonjour tout le monde.
J'ai un gros probleme, je fais une recherche sur un mot (Sem) pour les encadrer mais le pronleme c'est qu'il ne trouve que la premiere et pas les autres. J'ai essayer beaucoup de chose et rien ne marche.
Voici le code en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    For k = 3 To 40
    Cells.Find(What:="Sem ").Select
 
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Select
 
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        Selection.Font.Bold = True
    End With
    With Selection.Borders(xlEdgeBottom)
       .LineStyle = xlContinuous
       .Weight = xlThick
    End With
 
    Next k

J'attend vos sugestion
Merci d'avance

[peaceandloveman01]

A quoi il te sert ton k ???

[mick77]

le k sert a parcourir le tableau

[peaceandloveman01]

pourquoi il n'apparait pas dans ton code ??

[mick77]

Oui effectivement il n'est pas dans le code, mais je ne sais pas comment faire en fait. En fait il cherche la premiere cellule qui contient "sem" et la boucle s'arrete.

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Sub Macro1()
 
'
' Macro1 Macro
' Macro enregistrée le 21/06/2007 par MCX
'
 
'
    Dim PremCell As Range
    Dim CellTrouve As Range
 
    'recherche la premiere fois
    Set PremCell = Cells.Find(What:="Sem", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
 
    With Range(Cells(CellTrouve.Row, 1), Cells(CellTrouve.Row, 9))
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThick
            Selection.Font.Bold = True
        End With
        With .Borders(xlEdgeBottom)
           .LineStyle = xlContinuous
           .Weight = xlThick
        End With
    End With
 
    'Boucle jusqu'à ce qu'on soit sur la premiere cellule trouvée
    Set CellTrouve = Cells.FindNext(After:=PremCell)
    While CellTrouve.Row <> PremCell.Row Or CellTrouve.Column <> PremCell.Column
        With Range(Cells(CellTrouve.Row, 1), Cells(CellTrouve.Row, 9))
            With .Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlThick
                Selection.Font.Bold = True
            End With
            With .Borders(xlEdgeBottom)
               .LineStyle = xlContinuous
               .Weight = xlThick
            End With
        End With
    Set CellTrouve = Cells.FindNext(After:=CellTrouve)
    Wend
End Sub

EDIT : Mise à jour du macro

[peaceandloveman01]

est-ce que ta cellule contient uniquement "sem" ou il y a quelque chose d'autre du style "sem 42" ?