Discussion :

[smer38]

Bonjour,

j'essaye d'écrire une macro en vba qui me permettrais de générer des onglets dans mon classeur. Ma boucle de création fonctionne bien lorsque je met un msgbox. lorsque je code pour creer les onglets ma boucle s'arrete apres le 5 éme (alors que je dois en avoir 40!!) et je n'ai aucun message. quelqu'un aurait il une idée sur le sujet ?
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub generation()
'
'
    i = 1
    Sheets("Edition").Select
    While Not Range("A" & i & "").Value = ""
        'MsgBox " " & i
        i = i + 1
        Sheets("questions").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
 
        'ActiveSheet.Name = "Sem " & i     
 
    Wend
 
End Sub

[Nicopilami]

Salut, tu n'aurais pas par hasard quatre lignes dans ta feuilles de questions ?

Essaie de préciser la feuille que tu veux tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Not Sheets("Edition").Range("A" & i ).Value = ""

et en parallele

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & i )

suffit, pas besoin des guillemets à la fin

Dis moi si ca fonctionne
++
Nico

[smer38]

Bonjour,

Mon onglet de référence contient bien 40 lignes que je parcoure grâce a ma boucle. c'est la manipulation des objets excel qui se bloque

[Nicopilami]

pas de pb chez moi avec ton code, quand je rajopute bien le Sheets("") pour préciser la feuille à checker dans le while...

Peux-tu préciser ce que tu veux faire, dans quel cas, sur quelle feuille, .. ?.

[smer38]

tant que ma colonne "A" est renseigne d'ou mes 40 valeurs
je crée un onglet à partir du modèle questions et je rename l'onglet que je viens de créer.

[Nicopilami]

A priori la feuille selectionnée après la copie est la nouvelle feuille créée.

Du coup le Range ne s'applique plus à ta feuille de valeurs mais à la feuille active, et donc si i s'incrémente, ca sera OK tant que la valeur A&i de la nouvelle feuille copiée ne sera pas vide; après ta macro s'arretera...

si ce n'est pas cette raison, envoie le fichier, car sans cela personnellement, je ne pourrai rien faire ou proposer de plus...

[el_slapper]

Nicopilami a probablement raison.

un code adapté sur son idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub generation()
'
    dim WS as Worksheet
    set WS = Sheets("Edition")
    i = 1
    While Not WS.Range("A" & i).Value = ""
        'MsgBox " " & i
        i = i + 1
        Sheets("questions").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
 
        'ActiveSheet.Name = "Sem " & i     
 
    Wend
 
End Sub

En gros : je met en variable ton feuillet de départ, et je ne touche plus à cette variable(dim et set). Je retire alors le select, et je le remplace par mon WS. avant le range : je suis alors sur de toujours lire le range du bon feuillet.

[smer38]

Bonjour,

effectivement je changeais de feuille active du coup la valeur de ma boucle était modifiée. il me reste a trouver la solution pour copier un onglet en le renommant sans perdre le positionnement sur ma page active. merci pour ton aide

[el_slapper]

Je viens de retrouver un vieux code ou je fais ça. ça ressemble à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
        Dim nWS as Worksheet
 
        Set nWS = Sheets.Add
        nWS.Move after:=Sheets(Sheets.Count)
        nWS.Name = "Blablabla"

le move after me le place en dernier.

Evidemment, ça ne le remplit pas, ça le créée juste avec un nom. Donc il faut copier tout ce dont tu as besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    WS.Cells.Copy
    nWS.Cells.Paste

(pas testé, ça doit être dans ce genre)

[smer38]

merci à tous ca fonctionne nickel je peux continuer mon développement...