Problème de boucle avec un find

Version imprimable

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:

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

21/06/2007, 15h08
peaceandloveman01

A quoi il te sert ton k ???
21/06/2007, 15h11
mick77

le k sert a parcourir le tableau
21/06/2007, 15h18
peaceandloveman01

pourquoi il n'apparait pas dans ton code ??
21/06/2007, 15h35
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.

Code:

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

21/06/2007, 15h39
peaceandloveman01

est-ce que ta cellule contient uniquement "sem" ou il y a quelque chose d'autre du style "sem 42" ?
21/06/2007, 15h43
mick77

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

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:

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

21/06/2007, 15h58
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.
21/06/2007, 15h59
mick77

De plus c'est pas les ligne trouver qui sont en gras, c'est la colonne
21/06/2007, 16h12
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:

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" :mouarf2:
21/06/2007, 16h19
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.
21/06/2007, 16h46
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.