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...