Discussion :

[mick77]

Bonjour à tous.
J'ai une macro qui importe des fichier texte et qui les met en forme, le problème est le suivant les fichiers sont mentuel et l'encadrement des tableaux ne colle pas selon les mois.
J'aimerai faire une recherche sur un mot dans une cellule, seletionner la ligne entière et l'encadrer. Mais voilà je ne sais pas vraiment comment appliquer ca en code.

Je joins un exemple du tableau du mois d'avril qui passe bien, c pas le cas des autre mois malheureusement.
J'attend vos sugestions
Merci d'avance

[ilcocodrillo]

essaye ça, ça devrait te donner des billes pour continuer.

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
    Cells.Find(What:="ce que tu cherches").Activate
 
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Select
 
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With

[tonton fred]

Bonjour,
Pour la syntaxe de mise en forme utilise l'enregistreur de macro (bouton rouge) et fais tes manip. Ca te donneras la syntaxe de mise en forme. Ensuite regarde dans les contributions il y a plusieurs methodes pour connaitre la derniere ligne / colonne.

Ya plus qu'a adapter (et c'est sur cette derniere partie que nous pourront t'aider).

[mick77]

C'est noté, j'essai et je vous dirais si ca marche.
Merci beaucoup

[mick77]

ilcocodrillo, ton code fonctionne mais seulement pour le premier terme trouvé (semaine), il faudrait faire une boucle.
Cela dis merci, c'est deja un debut de piste.

Bon weekend

[ilcocodrillo]

tu fais une boucle comme ça

Code :

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

1
2
3
4
5
6
 
do while condition(vraie)
 
code
 
loop

[mick77]

La recherche ne fonctionne pas correctement car celle ci a un mot identique et un numero qui change chaque semaine.
ex : Sem 01
Sem 02

La recherche se fait sur "Sem" mais il ne trouve pas les cellule dans une boucle do while.

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
Do While Cells.Find(what:="Sem ") = True
 
    Cells.Find(what:="Sem ").Activate
 
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Select
 
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
 
    Loop