VBA EXCEL impossible de modifier le contenu d'une cellule

VBA EXCEL impossible de modifier le contenu d'une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 02-04-2015 à 02:18:07    

Bonjour,
 
Mon code est le suivant:
 

Code :
  1. Worksheets("Feuil1" ).Range("B15" ) = "12%"


 
L'erreur est la suivante:
Erreur d'execution 9, l'indice n'appartiens pas à la selection
 
Incompréhensible.....
 
De l'aide s'il vous plait ? :)

Reply

Marsh Posté le 02-04-2015 à 02:18:07   

Reply

Marsh Posté le 02-04-2015 à 02:39:07    

 
           Bonjour,
 
           aucun souci de mon côté car mon classeur vierge dispose donc bien d'une feuille de calculs nommée «Feuil1» …
 
           ____________________________________________________________________________________________
           Je suis Charlie   -   Je suis Bardo

 

Reply

Marsh Posté le 02-04-2015 à 04:15:43    

Moi aussi justement ! Je ne comprend pas...

Reply

Marsh Posté le 02-04-2015 à 09:11:28    

 
           Y-a-t-il des références manquantes ?   (via le menu Outils)   Si oui, les décocher.
 
           Quelles sont celles restantes ?
 

Reply

Marsh Posté le 02-04-2015 à 22:34:55    

Pareil que Marc L pour les références
J'ai déjà eu Excel qui m'a embêté pour une référence manquante et, une fois la référence décochée, le code fonctionnait normalement...
 
mais depuis que je suis passé sur office 2010 je n'arrive plus à faire fonctionner la syntaxe:

Code :
  1. Worksheets("Feuil1" )


 
Le truc que je fait maintenant, c'est: dans la fenetre VBA, dans la liste d'objet, il y a les feuilles qui sont listées et je change leur propriété "(name)" (j'insiste sur les parenthèses) et si je modifie cette propriété pour lui donner la valeur "req", dans mon code, je peux écrire :
req.range("B15" ).value = "12%"
Et mon code devient indépendant du nom 'apparant' de l'onglet qu'on peut consulter/modifier avec req.name
 
et quand je veux chercher une sheet par nom, je me suis fait une fonction:

Code :
  1. public function ShByName(str as string, optional wb as workbook) as worksheet
  2.    dim sh as worksheet
  3.    if wb is nothing then
  4.       set wb = thisworkbook
  5.    end if
  6.    for each sh in wb.worksheets
  7.       if sh.name = str then
  8.          set ShByName = sh
  9.          exit function
  10.       end if
  11.    next sh
  12.    set ShByName = nothing
  13. end function


---------------
il s'appel le ronge me doute
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed