problème par rapport aux cellules

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

Voila je veux faire cela

Code :

For i = 3 To 30
If ActiveSheet.Range("A" & i) <> "" Then Sheets.Add.Name = Range("A" & i): Set actsh = ActiveSheet:
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 :

i = 3
While Sheets("resu" ).Range("A" & i).Value <> ""
Sheets.Add.Name = Range("A" & i).Value
i = i + 1
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

problème par rapport aux cellules

Sujets relatifs:

Leave a Replay