Discussion :

[MrcRafale]

Bonjour,

Je suis toujours sur le même fichier, avec des problématiques de plus en plus compliquées (du moins, à mon niveau de débutant)
J'ai toujours mes différentes feuilles traitant chacune d'une date de formation. Il arrive qu'une formation se déroule en plusieurs jours, non consécutifs. J'ai donc possibilité d'avoir des sessions de formations comportant plusieurs modules.
Pour le moment, j'en ai avec 2 ou 3 modules (Dans ce cas, les premiers caractères de la cellule A2 sont "Module x" avec x dans [1;3]) et d'autres avec un seul module (auquel cas je mets directement le sujet et la cellule ne contient pas "module")
Je voudrais pouvoir extraire la liste des présences (NB: Une feuille contient les noms des participants) dans un nouveau fichier, et ce pour chaque session de plusieurs modules.

Le principe physique serait le suivant :
Un bouton lancerait une userform dans laquelle je viendrais sélectionner la session voulue
De cette sélection, je viendrais chercher les noms dans les différentes feuilles pour les coller dans un nouveau fichier, en supprimant les doublons
Ce fichier prendrait le nom de la session (session y) et garderait en mémoire où il a pioché les noms (0 = absent, 1 = présent), avec une colonne par module

Est-ce que je suis compréhensible ou non?

D'avance merci

[parmi]

Bonjour,

Non, je n'ai rien compris...
Mais tu peux t'intéresser aux diverses fonctions texte: Mid, Left, Right
Et aussi Instr()

Ou encore si tu recherches avec Find, le paramètre xlPart

[eric4459]

Mc Rafale,
Il y a aussi la fonction Like
Voici un morceau de code que j'ai eu a créer dans le passé où j'utilise "Like" et "Instr"

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
Do While WKS.Offset(i - 2, 2) <> ""
    If WKS.Offset(i - 2, 2) Like "*FR_Act1*" Then
        If InStr(WKS.Offset(i - 2, 2), sNom) Then
            If InStr(WKS.Offset(i - 2, 2), sDt) Then
                WKS.Offset(j, 0) = WKS.Offset(i - 2, 2)
            End If
        End If
    End If
i = i + 1
If WKS.Offset(j, 0) = 0 Then
j = j
Else
j = j + 1
End If
Loop

Sinon Parmi a raison, ta demande n'est pas très claire mais bon, tu es encore apprenti
Eric

[MrcRafale]

Bonjour,

Désolé si c'est pas clair, j'ai du mal à retranscrire mon besoin...
En gros, je veux récupérer les plages G3:J30 de mon classeur "base de données" à chaque fois que B5 vaut 1 (par exemple), et les copier dans un nouveau classeur qui s'appellerait "Session 1".
Puis faire pareil pour la session 2 quand B5=2, etc.

Est-ce que c'est plus clair ou pas? ^^"


(J'ai réussi à contourner la chaine de caractères qui me gênait, je n'ai plus qu'une cellule avec une valeur numérique)

[parmi]

As-tu un bout de code de ce que tu as essayé et expliquer ce qui ne va pas comme tu le voudrais ?

[MrcRafale]

As-tu un bout de code de ce que tu as essayé et expliquer ce qui ne va pas comme tu le voudrais ?

J'ai ça :

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
16
17
18
 
Dim w As Integer
Dim Ligne As Integer
 
 
Private Sub CommandButton1_Click()
'BOUTON OK
 
    For w = 2 To ActiveWorkbook.Worksheets.Count
        If Worksheets(w).Range("B5").Value = TextBox1.Value Then
            Active.Worksheet
            Range("G3:J30").Copy
            Set xlBook = xlApp.Workbooks.Add
            xlBook.SaveAs "essai"
            Range("A2").PasteSpecial
        End If
    Next
End Sub