problème par rapport aux cellules

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : problème par rapport aux cellules

sbbtn

KanYenNamar - YaMalabar

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

Publicité

FlorentG

Unité de Masse

C'est quoi à la fin :

: Set actsh = ActiveSheet:

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

sbbtn

KanYenNamar - YaMalabar

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

sbbtn

KanYenNamar - YaMalabar

sbbtn a écrit :

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]

FORUM HardWare.fr

Programmation

VB/VBA/VBS

problème par rapport aux cellules

Sujets relatifs
[Javascript] Problème avec InnerHTML	Problème avec une chatbox dans une iframe
Problème : JLabel caché en arrière plan	probleme de frame
Probleme avec CDATA	Probleme pour récupérer heure de début et de fin de mon formulaire
Problème mscomm et controleur d'axe	problème de pause sous batch
Problème pour ajout dans une listview	Problème DialogResult
Plus de sujets relatifs à : problème par rapport aux cellules

Page générée en 0.029 secondes