Discussion :

[alex.a]

Bonjour,

j'aimerais créer une nouvelle feuille et insérer une liste de valeur.

Je m'explique, j'ai une liste de composants, et des référence associées sur une feuille, et je voudrais créer un programme qui crée une nouvelle feuille et note tous les composants pour lequels la référence est manquante. (sur le même classeur.)

j'ai deux variables:
nb_reference_non_trouve: compte le nombre de reférence manquante
tab_composants_absents(k) : qui stocke le nom de composant n'ayant pas de référence. ça c'est plus un tableau

soit doit ressembler à quelque chose comme ça, je pense

Code :

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

1
2
3
4
5
6
7
8
If nb_reference_non_trouve >= 1 Then
        k = 1
        Do While k <= nb_reference_non_trouve
 
             ActiveWorkbook.Worksheets.Add [after] = "Composants manquants"
             Range("A" & tab_composants_absents(k)).Values = "Composants manquants"
             k = k + 1
         Loop

mais mon code pour créer la feuille et insérer mes valeurs est faux.
composants manquants est le nom de la feuille que je voudrais créer

avez vous une idée?
merci d'avance

[SfJ5Rpw8]

Tiens j'ai un peu modifier ton code ... à toi de tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim sh As Worksheet
 
If nb_reference_non_trouve >= 1 Then
 
'Création feuille des manquants...
     Set sh = ActiveWorkbook.Sheets.Add
     sh.name =  "Composants manquants"  
 
        k = 1
        Do While k <= nb_reference_non_trouve
            sh.Range("A" & k) = tab_composants_absents(k)
            k = k + 1
         Loop

[alex.a]

merci bbil ça marche