Génération de feuilles identiques

Génération de feuilles identiques - VB/VBA/VBS - Programmation

Marsh Posté le 21-05-2008 à 05:41:43    

Bonjour,
 
je souhaite produire un certain nombre de feuilles excel en VBA. Pour cela j'essaye d'utiliser ma variable mf que je considère comme une feuille. Mais apparemment, il n'est pas possible de l'utiliser comme je souhaite le faire. J'ai un message d'erreur : 1004 "Application-defined or object-defined error".  
 

Code :
  1. Sub sheetGenerator()
  3. Dim i As Integer
  5. Dim appExcel As Excel.Application
  6. Dim mf As Excel.Worksheet
  8. For i = 1 To 2
  9.     Set mf = Sheets.Add
  10.     mf.Select
  11.     mf.Activate
  12.     mf.Range(Cells(1, 1), Cells(1, 1)).Value = "texte a ecrire" ' erreur ici
  13. Next i
  15. End Sub


 
Le but serait d'utiliser cette variable en paramètre d'une fonction qui serait chargée de remplir la feuille.
Merci d'avance

Reply

Marsh Posté le 21-05-2008 à 05:41:43   

Reply

Marsh Posté le 21-05-2008 à 09:41:43    

Code :
  1. mf.Range(Cells(1, 1), Cells(1, 1)).Value = "texte a ecrire"


heu le range me parait suspect...
 
essaye plutot un truc du genre :

Code :
  1. mf.Range("A1" ).Value = "texte a ecrire"


Reply

Marsh Posté le 21-05-2008 à 10:47:16    

Merci.
Effectivement, de cette façon, je n'ai plus d'erreur. Mais, j'ai utiliser la forme :

Range(Cells(iRow, iCol), Cells(jRow, jCol))

dans tout mon fichier pour placer mes éléments. Ca me ferai mal que l'on ne puisse pas utiliser cette forme... Je continu à chercher, mais si des personnes ont des infos, je suis preneur.
++


Message édité par mi_boulet-mi_shemale le 21-05-2008 à 10:54:19
Reply

Marsh Posté le 21-05-2008 à 11:00:25    

essaye :

Code :
  1. mf.Range(mf.Cells(iRow, iCol), mf.Cells(jRow, jCol))


par curiosité ?

Reply

Marsh Posté le 21-05-2008 à 11:12:51    

ça fonctionne. Vicieux comme truc. Merci.

Reply

Sujets relatifs:

Leave a Replay

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