problème par rapport aux cellules

problème par rapport aux cellules - VB/VBA/VBS - Programmation

Marsh Posté le 19-04-2005 à 08:57:37    

Voila je veux faire cela  

Code :
  1. For i = 3 To 30
  2. If ActiveSheet.Range("A" & i) <> "" Then Sheets.Add.Name = Range("A" & i): Set actsh = ActiveSheet:
  3. Next


mais ça ne fonctionne pas, HELP

Reply

Marsh Posté le 19-04-2005 à 08:57:37   

Reply

Marsh Posté le 19-04-2005 à 08:59:19    

C'est quoi à la fin :

: Set actsh = ActiveSheet:


Il te donne un message d'erreur ? Une erreur de compilation ?

Reply

Marsh Posté le 19-04-2005 à 09:07:40    

FlorentG a écrit :

C'est quoi à la fin :

: Set actsh = ActiveSheet:


Il te donne un message d'erreur ? Une erreur de compilation ?


 
Non, même pas, ce morceau de code permet de définir la page créé comme pas active.
 
Le problème dans mon cas, c'est que Range ("A" & i) (ex avec i=3) ne correspond pas à Range(A3)
Et ça c'est pas cool

Reply

Marsh Posté le 19-04-2005 à 10:48:05    

sbbtn a écrit :

Non, même pas, ce morceau de code permet de définir la page créé comme pas active.
 
Le problème dans mon cas, c'est que Range ("A" & i) (ex avec i=3) ne correspond pas à Range(A3)
Et ça c'est pas cool


 
Bon en fait, maintenant je fais ça :

Code :
  1. i = 3
  2. While Sheets("resu" ).Range("A" & i).Value <> ""
  3. Sheets.Add.Name = Range("A" & i).Value
  4. i = i + 1
  5. Wend


 
au premier passage, ça fonctionne, puis après il bloque au 2ème passge (sur Sheets.Add.Name....)
Vous avez une idée? [:spartacus2]

Reply

Sujets relatifs:

Leave a Replay

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