OVH Cloud OVH Cloud

affectation de propriété incorrecte

2 réponses
Avatar
El Mondher BABAÏ
bonjour,
cette macro enregistrée automatiquement a fonctionné depuis le 12/08/2002;
d'un coup elle renvoie une erreur de compilation :" Nombre d'arguments
incorrect ou affectation de propriété incorrecte" pour : "
Range("C2").Select" .
Si je mets :" ActiveSheet.Range("C2").Select " , elle fonctionne.
L'erreur apparaît dans toutes les macros comprenant " Range("Xn").Select ".
Je suis un béotien en matière de VBA et je suis re connaissant à celui qui
voudea bien prendre la peine de m'expliquer le pourquoi de ce
dysfonctionnement soudain ?
J'utilise Excel 2000- SP3 sous Windows XP-SP2.
Cordialemrnt,
elmunzer



Sub ouverture()
'
' ouverture Macro
' Macro enregistrée le 12/08/2002 par *
'
' Touche de raccourci du clavier: Ctrl+o
'
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Zoom = 75
Application.WindowState = xlMinimized
Range("C2").Select
ActiveWindow.FreezePanes = True
End Sub

2 réponses

Avatar
MichDenis
Bonjour El Mondher BABAÏ,

Testé sous excel 2003,

Ta macro fonctionne... mais si ta macro doit s'exécuter pour une feuille en particulier dans ton classeur, pourquoi ne
pas la transformer de cette manière, afin d'être sûr que ta commande s'adresse à la bonne feuille de ton classeur.

Si ton classeur est protégé - Fenêtres ...
Cette ligne de code ne peut s'exécuter
ActiveWindow.FreezePanes = True

Au delà de ceci, il est difficile de spéculer sur le pourquoi de la chose !

'Adapte le nom de la feuille selon ton application.
'--------------------------------
Sub ouverture()
'
' ouverture Macro
' Macro enregistrée le 12/08/2002 par *
'
' Touche de raccourci du clavier: Ctrl+o
'
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Zoom = 75
Application.WindowState = xlMinimized
With Worksheets("Feuil1")
.Activate
.Range("C2").Select
End With
ActiveWindow.FreezePanes = True
End Sub
'--------------------------------


Salutations!



"El Mondher BABAÏ" a écrit dans le message de news:
bonjour,
cette macro enregistrée automatiquement a fonctionné depuis le 12/08/2002;
d'un coup elle renvoie une erreur de compilation :" Nombre d'arguments
incorrect ou affectation de propriété incorrecte" pour : "
Range("C2").Select" .
Si je mets :" ActiveSheet.Range("C2").Select " , elle fonctionne.
L'erreur apparaît dans toutes les macros comprenant " Range("Xn").Select ".
Je suis un béotien en matière de VBA et je suis re connaissant à celui qui
voudea bien prendre la peine de m'expliquer le pourquoi de ce
dysfonctionnement soudain ?
J'utilise Excel 2000- SP3 sous Windows XP-SP2.
Cordialemrnt,
elmunzer



Sub ouverture()
'
' ouverture Macro
' Macro enregistrée le 12/08/2002 par *
'
' Touche de raccourci du clavier: Ctrl+o
'
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Zoom = 75
Application.WindowState = xlMinimized
Range("C2").Select
ActiveWindow.FreezePanes = True
End Sub
Avatar
jps
bonjour elmunzer
juste un petit mot après l'excellente réponse de denis :
1) évite de venir sur ce forum sous ta véritable adresse électronique : les
robots vont s'en saisir et tu vas recevoir plein de pourriels, comme dirait
ce même denis...
2) je crois me souvenir que si en précisant "ActiveSheet" une macro
fonctionne, c'est parce qu'excel se perd un peu dans les sélections à faire
si la macro est exécutée depuis un classeur et ouvre d'autres classeurs (ou
peut-être même d'autres feuilles)
jps

"El Mondher BABAÏ" a écrit dans le message de
news:
bonjour,
cette macro enregistrée automatiquement a fonctionné depuis le 12/08/2002;
d'un coup elle renvoie une erreur de compilation :" Nombre d'arguments
incorrect ou affectation de propriété incorrecte" pour : "
Range("C2").Select" .
Si je mets :" ActiveSheet.Range("C2").Select " , elle fonctionne.
L'erreur apparaît dans toutes les macros comprenant " Range("Xn").Select
".

Je suis un béotien en matière de VBA et je suis re connaissant à celui qui
voudea bien prendre la peine de m'expliquer le pourquoi de ce
dysfonctionnement soudain ?
J'utilise Excel 2000- SP3 sous Windows XP-SP2.
Cordialemrnt,
elmunzer



Sub ouverture()
'
' ouverture Macro
' Macro enregistrée le 12/08/2002 par *
'
' Touche de raccourci du clavier: Ctrl+o
'
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Zoom = 75
Application.WindowState = xlMinimized
Range("C2").Select
ActiveWindow.FreezePanes = True
End Sub