Discussion :

[maxoup]

Bonjour,

J'ai écrit le code suivant pour mettre une bordure sur une plage de cellule:

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
..........................
With F_AXE.Range("A" & Decal + 2 & ":" & lettre_col & Decal + 2)
        .Font.Bold = True
        .Interior.ColorIndex = 34
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
    End With
    
    'Bordures
    F_AXE.Range("B" & Decal + 1 & ":" & lettre_col & DernLigneAxe).Borders(xlEdgeRight).Weight = xlMedium
    F_AXE.Range("C" & Decal + 2 & ":" & lettre_col & DernLigneAxe).Borders(xlEdgeLeft).Weight = xlMedium
    F_AXE.Range("A" & Decal + 2 & ":A" & DernLigneAxe).Borders(xlEdgeRight).Weight = xlMedium
    
    FinLigne = Decal + 14
    F_AXE.Range("A" & FinLigne & ":" & lettre_col & FinLigne).Select
    With Selection.Borders(xlEdgeTop)
        .Weight = xlMedium   
End With
......................

F_AXE est ma feuille où j'effectue le traitement.

Module d'appel:

Code :

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

1
2
3
4
5
6
7
sub a()
 
call B()
call C()
call D()
 
end sub

le code de mise en forme des bordures est dans le module C
Le module plante après la ligne en rouge sans indiquer un message d'erreur. Or il passe au module suivant (D) sans avoir exécute le reste du module C.

Je commence à regretter les messages d'erreur, au moins on s'est pourquoi sa plante...

Est ce que je suis comréhensible? Si oui, avez vous une idée à mon problème?

Merci par avance

[pgz]

Bonjour.

As-tu essayé de passer en pas à pas à partir de la ligne 18 ?

Cordialement,

PGZ

[maxoup]

Oui et c'est au .weight qui plante.

La sélection à la ligne 17 fonctionne et les variables sont bien renseigné (vérifié avec F8).

Merci de la réponse.

Apaprament ça ne viendrait pas du code.
Car quand je souhaite faire un enregistrement macro de la zone sélectionnée ou de le faire en manuelle par Excel, il ne veut pas me le faire pour la zone de cellule...

Je ne comprends pas pourquoi.

[pgz]

Re,

As-tu une protection de feuille ?

PGZ

[maxoup]

Non il n'y a pas de protection de feuille.

Je peux mettre une bordure pour la cellule A1 ou pour la zone C1:AW1 mais ça bloque pour la zone A1:AW1.

[pgz]

SI ton classeur n'est pas très gros, ça vaudrait le coup de le voir. Ou juste la feuille en question.

PGZ