Discussion :

[Megajav]

Bonjour,

J'aimerai pouvoir écrire une macros capable d’effectuer la mise en forme suivante :

J'ai un tableau qui s'étend de la ligne 5 à la ligne X (la taille du tableau va varier selon le projet), lorsque la cellule E contient un texte, les cases G et H de la même ligne devront avoir des bordure "xlmedium"

Je suis débutant dans le domaine, et tout ce que j'ai appris se trouve sur les forums, seulement pour ce cas, les réponses que j'ai trouvé ne fonctionnent pas...

les dernières cellules de mon tableau sont fixés ainsi "AFIN" "BFIN"... "HFIN" (du coup ma macros doit vérifier pour chaque ligne de mon tableau de E5 à EFIN, chaque cellule E contenant un texte, si il en contient un, alors j'applique la mise en forme).

Je n'arrive pas a trouver un moyen de lier ma cellule E à G et à H

Avez vous une idée ?

(Je m'excuse d'avance si ce post ressemble à un déjà posté, mais puisque j'ai cherché et que je n'ai pas réussi a trouver de solution, je me permet un post)

Merci d'avance.

[Theze]

Bonjour,

A mettre dans le module de la feuille :

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
46
47
48
49
50
51
52
53
54
55
56
57
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Row >= 5 And Target.Column = 5 Then
 
        If Target.Value <> "" Then
 
            Bordurer Target.Offset(, 2)
            Bordurer Target.Offset(, 3)
 
        Else
 
            SuppBordure Target.Offset(, 2)
            SuppBordure Target.Offset(, 3)
 
        End If
 
    End If
 
End Sub
 
Sub Bordurer(Cel As Range)
 
    Dim I As Integer
 
    Application.ScreenUpdating = False
 
    For I = 7 To 10
 
        With Cel.Borders(I)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
 
    Next I
 
    Application.ScreenUpdating = True
 
End Sub
 
Sub SuppBordure(Cel As Range)
 
    Dim I As Integer
 
    Application.ScreenUpdating = False
 
    For I = 7 To 10
 
        With Cel.Borders(I)
            .LineStyle = xlNone
        End With
 
    Next I
 
    Application.ScreenUpdating = True
 
End Sub

Hervé.

[Menhir]

Je te déconseille l'utilisation d'une macro dans ce cas. Il sera plus simple d'utiliser une mise en forme conditionnelle.

Tu sélectionnes la cellule G5.
Ruban Accueil > Mise en forme conditionnelle > Nouvelle Règle > Utiliser une formule [...]
Dans la zone de formule, tu tapes :

Code :

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

=$E5<>""

Tu cliques sur le bouton Format et tu choisis l'encadré que tu souhaites.
Clique sur Ok

Ensuite, si tes cellules G5 à Hx sont vides, tu y copies la cellule G5.
Si ce n'est pas le cas, tu sélectionnes G5.
Ruban Accueil > Mise en forme conditionnelle > Gérer les Règles
La règle que tu viens de créer devrais se trouver dans la liste.
Tu modifie le champ "S'applique à" pour qu'elle concerne l'ensemble de tes cellules ($G$5:$H$x en remplaçant le x par ta dernière ligne).

[Megajav]

Bonjour,

Merci pour la macro,

Cette ligne entraîne un Débogage

Code :

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

1
2
3
 
 
    If Target.Row >= 5 And Target.Column = 5 Then

Du coup je l'ai remplacé par :

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
 
 
Dim Target As Range
 
Range("E5:EFIN").Select
 
For Each Target in Selection
 
 If Target.Value <> "" Then
 
            Bordurer Target.Offset(, 2)
            Bordurer Target.Offset(, 3)
 
        End If
 
   Next Target
 
End Sub
 
Sub Bordurer(Cel As Range)
 
    Dim I As Integer
 
    Application.ScreenUpdating = False
 
    For I = 7 To 10
 
        With Cel.Borders(I)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
 
    Next I
 
    Application.ScreenUpdating = True
 
End Sub

Pas besoin de mettre la fonction suppborder qui supprime les bordure des cases adjacentes.

Merci du coup de main !

Savez vous comment puis-je étendre cette macro à plusieurs classeurs ?
Le but étant que d'autre personne que moi puisse lancer la macro sans avoir besoin d’accéder a VBA. (Il ne doit pas être possible de modifier les codes)

Exemple :
Dans le classeur 2 j'ai créé un bouton dans la barre d'outil auquel j'ai affecté la maccro Application.Run"'adressedelamacro'!macro". Ca fonctionne.
Mais lorsque j'utilise ce bouton dans un classeur 3, un message d'erreur s'affiche me disant que la maccro d'appel (présent dans le classeur 2) n'est pas présent dans le classeur 3 (logique...)

Avez vous une idée ?

- Importer directement le module ?
- Utiliser un Userform pour stocker le module et importer les classeurs a copier ? (possible, mais je sais pas comment importer un classeur entier...il y a 3 feuilles qui dépendent les unes des autres)

J'essai d'avoir des idées, mais c'est pas évident, je ne connais pas les limites de VBA...

Merci d'avance.

[Menhir]

Avez vous une idée ?

Oui -> http://www.developpez.net/forums/d14...e/#post7907214

[Megajav]

Bonjour,

En fait, les classeurs sur lesquels je travail sont des classeurs exportés d'un autre logiciel, et pour chaque projet, je dois exporter ces donnés dans un tableau excel, puis effectuer une mise en forme pour l'envoyer à mes collaborateurs.

Comme il y a des projets ou je dois exporter 15 classeurs ou plus, l'idée était de créer une macro qui effectue la mise en forme automatiquement pour que ça me prenne le moins de temps possible et aussi pour éviter les erreurs de mise en forme.

La mise en forme "G et H ont des bordure en gras si E contient un texte" n'est qu'une partie de la mise en forme.

Le faire avec une mise en forme conditionnelle prendrait plus de temps, et devrait être effectuer à chaque fois, pour chaque projet..?

Merci d'avance