Excel VBA : segmenter un fichier et copier dans un nouveau

yannickroulin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
yannickroulin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un feuille excel avec 3 colonnes :
1. Les noms de recettes
2. Les ingrédients
3. La préparation

Ces colonnes ne sont pas toujours pleines. Toutes les indications pour une recette se situent entre la ligne du nom de la recette et la ligne précédent le nom de la recette suivante.

J'essaie de créer un formulaire avec ListBox à selection multiple (qui contient les noms des recettes). L'utilisateur choisi les recettes qui l'intéresse et le programme doit recopier dans un nouveau fichier (toujours sur 3 colonnes) uniquement les recettes selectionnées les unes à la suite des autres.

J'ai pensé à utiliser un "Scripting.Dictionary". Les clefs étants les noms des recettes (qui apparaissent dans la ListBox), les valeurs étants des objets Range qui contiennent les zones de chaque recette à recopier.

Mes tentatives ont été infructueuses, j'ai bien peur d'avoir inutilement compliqué le problème dans mon approche.

Quelqu'un a-t-il une idée à me proposer?

Yannick

A voir également:

4 réponses

Réponse 1 / 4
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Pas sûr de l'intérêt d'un dictionary vu que tu n'as pas de doublon.
J'ai peut-être raté qcq chose mais je ferais comme ça : 
Public Sub UserForm_initialize()
    Dim dernLigne As Long, c As Range
    With Sheets("Recettes")
        dernLigne = .[A:A].Cells(Rows.Count, 1).End(xlUp).Row
        ListBox1.Clear
        For Each c In .Range("A3:A" & dernLigne).SpecialCells(xlCellTypeConstants, 23)
            ListBox1.AddItem c
        Next c
    End With
End Sub
qui permet de ne boucler que sur les cellules utiles.

eric
1
Réponse 2 / 4
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Peut-être qu'avec un fichier de travail avec ce que tu as fait on arrivera à réfléchir.
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.

eric
0
Réponse 3 / 4
yannickroulin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

j'ai réussi à résoudre une bonne partie du problème : je n'avais pas déclaré mon "Scripting.Dictionary" dans un module standard ce qui fait que la portée de cet objet était insuffisante. Néanmoins je trouve mon code fichtrement compliqué.

Pour info :

https://www.cjoint.com/?BLliNUBzi3e

Salutations
Yannick
0
Réponse 4 / 4
yannickroulin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour ce post, débutant en vba, je ne connaissais pas bien la méthode SpecialCells. ça simplifie bien les choses

Salutations

Yannick

:Résolu:
0