Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

problème macro sous 2010

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion matt31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

matt31

XLDnaute Occasionnel
Bonsoir,

j'ai une macro dans le fichier joint qui à la fermeture du fichier m'efface toutes les lignes non remplie en A, à partir de A3 et qui pour toute cellule remplie en A3 me trace le quadrillage.

Par contre mon souci est que la macro fonctionne parfaitement sous 2003 mais que sous 2010, si tout va bien à la 1° fermeture du fichier, la 2° fois j'ai systématiquement un message d'erreur :
"Erreur d'exécution '1004' :
impossible définir la propriété Weight de la classe Borders"

avec une erreur sur cette ligne :

Code: 
.Range("A3:W" & .Range("A" & Rows.Count).End(xlUp).Row).Borders.Weight = xlThin

est ce que quelqu'un aurait une solution pour que cela fonctionne sous 2010?

Merci d'avance
 
Trier par date Trier par votes
Re : problème macro sous 2010

Bonjour

@matt31
Appliques une bordure sous Excel 2010 en laissant tourner l'enregistreur de macros
et regardes en qoui le code VA généré différe de celui d'Excel 2003.

Désolé je viens de voir que j'ai eu la mémé idée que Pierrot93 (dont je n'avais pas vu le message)
 
Vote positif 0 Vote négatif
Re : problème macro sous 2010

merci pour vos réponses.

Hier j'ai oublié la pièce jointe, je rectifie l'erreur, c'est classeur 3.

En pensant par l'enregistreur de macro de 2010 pour tracer les bordures comme je le souhaite voilà ce que ça donne :

Code: 
Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A3:W6").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("J3:J6,N3:N6,S3:S6,V3:V6").Select
    Range("V3").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A7").Select
End Sub

ou directement en pièce jointe (classeur 4)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : problème macro sous 2010

Bonjour Matt,

pas testé sous 2010, mais essaye peut être ainsi :
Code: 
    With .Range("A3:W" & .Range("A" & Rows.Count).End(xlUp).Row).Borders
        .LineStyle = xlLineStyleNone
        .Weight = xlThin
    End With

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : problème macro sous 2010

Bonjour
Je pense que tu rencontres le même genre de problème que ce qu'on a avec les tris. Il y a plus d'options disponibles pour les bordures dans 2010 (des doubles en particulier, plus de couleurs aussi) que dans 2003 (idem pour les tris) et du coup il faut donner plus de précision dans 2010.
essaie avec ça (proche de la solution de Pierrot)

Code: 
    With .Range("A3:W" & .Range("A" & Rows.Count).End(xlUp).Row).Borders
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With

je pense que tu peux te passer du tint and shade mais si ça ne passe toujours pas rajoute le.
 
Vote positif 0 Vote négatif
Re : problème macro sous 2010

bonsoir et merci à vous 2 pour votre aide.

Pas de connexion quelques jours donc impossibilité de lire et tester votre proposition.

J'avoue ne rien comprendre. La proposition de Misange bloque avec le même type d'erreur dès la 2° ligne.

La proposition de Pierrot93 semble fonctionner. Je testerai dès lundi sur des fichiers entiers.

Pour finaliser, j'ai 2 macros que je souhaiterais appliquer à l'enregistrement. En l'état, j'ai un message box à l'enregistrement et à la fermeture cette macro de quadrillage. Le truc c'est que la fermeture créant une modification du fichier, cela me remet le message box. Comment tout réunir pour que cela s'applique (quadrillage+messagebox) à l'enregistrement.

Merci encore
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
419
MATLEA
M
M
  • Résolu(e)
XL 2021 Problème de version sur macro Excel 2010 - 2021
Réponses
12
Affichages
758
mamarus1
M
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
802
robpellan52
R
D
  • Résolu(e)
Microsoft 365 Problème de déclaration de type de variable - argument ByRef incompatible
Réponses
4
Affichages
433
DidPouAxi
D
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
L
  • Question Question
Microsoft 365 Changement de couleurs de cellules dans plusieurs feuilles suite à une modification
Réponses
4
Affichages
798
lolo_excelbeginner
L
M
  • Question Question
XL 2010 (Génération d'invitations) Erreur 424 ???
2
Réponses
17
Affichages
1 K
patricktoulon
A
  • Résolu(e)
XL 2019 Ouverture d'un UserForm attribué à une macro
Réponses
1
Affichages
560
vgendron
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
891
Lu76Fer
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
792
Averell1976
A
A
  • Résolu(e)
XL 2016 Regroupement dates sur TCD
Réponses
3
Affichages
598
Aldonanou
A
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
R
  • Résolu(e)
XL 2019 problème sur macro de calcul sans doublon
Réponses
5
Affichages
616
rh.finances
R
N
  • Question Question
XL 2019 VBA copier coller sous condition
Réponses
6
Affichages
2 K
Navillus
N
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
962
GADENSEB
O
  • Question Question
XL 2013 Publipostage avec pièce jointe via Excel
Réponses
1
Affichages
1 K
kiki29
L
  • Question Question
XL 2016 Atteinte de la limite de zones d'impression
Réponses
8
Affichages
1 K
fanch55
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
792
job75
E
  • Question Question
Microsoft 365 Problème macro événementielle
Réponses
2
Affichages
1 K
ExcLnoob
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…