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" ?

[mick77]

Oui les semaine sont numeroté.
ex:
Sem 01
Sem 02

[mordrhim]

PS bout de code mis a jour apres un test ^^

si ca fonctionne bien comme tu le veux dis le moi

Edit oops je viens de le relir il faut faire un petit changement

le premier bloc With

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    With Range(Cells(PremCell.Row, 1), Cells(PremCell.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

[mick77]

Ca marche en complement de mon morceau de code, je m'explique ca me trouve toute les semaine sauf la premiere.
Mais il ya un petit probleme, ca me met toute ma premiere colonne en gras.

[mick77]

De plus c'est pas les ligne trouver qui sont en gras, c'est la colonne

[mordrhim]

ouais mais si tu donens les info petit bout par petit bout

tu veux que la colonne ou il y a une cellule vide soit en gras ?
parceque selon ton code

Code :

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

    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Select

tu veux la ligne entre A et I
ensuite, tu regarde mon code, tu le comprends (il est pas vraiment compliqué) et tu modifies les erreurs que tu avais mis dedans que j'ai volontairement laissé car je ne suis pas la pour faire ton travail.

sinon tu fait un poste "Je voudrais que vous me fassiez un code qui fait ca ca et ca"

[mick77]

Je veux que la ligne où il y a le mot "sem" soit encadrer et en gras.

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Select
C'est pour encadrer la ligne de la colonne A à la colonne I (c'est la taille du tableau)
C'est exacte, tu n'est pas là pour faire mon travail mais ca fait assez longtemps que je cherche une solution et ca m'a pris la tête.
En tout cas je te remercie de ton aide.

[mick77]

C'est bon ca marche bien, j'ai juste un probleme car il me met la colonne en gras alors que c'est la ligne qui devrait l'être. Je vais chercher ca, merci de ton aide precieuse mordrhim.