Discussion :

[Master_x_99]

Bonjour,

Je me suis lancé dans un autre projet....

Pour que se soit visuel et plus facile à comprendre, j'ai pris des snapshots de mes feuilles.





La première feuille a comme nom VACANCE. Cette feuille contient l'ensemble des chefs, sous chefs et employés. Pour mon exemple j'ai seulement placé 2 Bloc de vacance.

J'aimerai que si je place un X dans la colonne Bloc 1 à côté de la ligne «Chef 1» (Cellule A5) de la feuille Vacance. Que le texte qui se retrouve dans la Cellule (A5) puisse aller se copier dans la feuille Resume en cellule (B7).

Ainsi de suite pour les autres grade d'emploi (Sous chef et employé).

Par contre, pour chaque bloc de vacance, il ne peut avoir plus d'un chef , plus que 2 sous chef et plus que 7 employées, en vacance en même temps.** Cela n'a pas d'importance, je peux m'adapter**

Merci de votre aide et comme a tout les fois vous faites en sortes que je puisse réaliser l'ensemble de mes projets

[halaster08]

Bonjour,

Si le nom des chef/sous-chef/employées peut être déplacé sur la droite de tes zones bloc, une rechercheV peut te permettre d'obtenir la première personne qui en vacances, ce qui pourrait te permettre de remplir au moins la case chef, j'ai déjà vu qu'il était possible de modifier avec des décalages d'indices la rechercheV pour obtenir le second résultat (il faudrait rechercher ici ou sur le net formule existe j'en suis sur), tu pourrais alors remplir les cases souschef.
Pour ce qui est des employées je ne sais pas si il est possible me modifier la formule pour obtenir le 3eme ... 7eme résultat.

Une autre solution possible qui ne serait pas instantanée serait de passer par une macro qui filtre sur une colonne et ne garde que les lignes où il y a un "X" puis copie colle les lignes visibles dans ton second tableau et enlève le filtre une fois qu'elle a fini.

En ce qui concerne le nombre max de personne en vacances, tu peux compter le nombre de X dans une zone, par exemple en B7 compter le nombre de X en B5:B6 (fonction somme.si) et programmer un message d'erreur si ce nombre est >1, idem en B14 sur la plage B10:B13 et >2 ...

[Master_x_99]

J'ai regarder pour ce que tu apportes comme solution et je ne crois pas que cela correspond a ce que je cherche.

J'ai aussi fait plusieurs recherche sur le forum, mais je n'ai pu trouver quelques chose qui me va.. Je suis p-e trop difficile.

[Master_x_99]

J'ai une première piste de solution.. Par contre je suis bloqué.

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
19
20
21
 
Sub vacance ()
    Dim Col&, Lig&, NbrLig&, NumLig&
 
    Sheets("Resume").Select ' feuille de destination
 
    Col = 2 
    NumLig = 6 
 
 
    With Sheets("Vacances") ' feuille source'
        NbrLig = .Cells(Application.Rows.Count, Col).End(xlUp).Row
        For Lig = 4 To NbrLig 'n° de la 1ere ligne de donnéesla ligne 1 = 0'
            If .Cells(Lig, Col).Value = "X" Then
                .Range("A5").Copy
                Sheets("Resume").Range("B7").PasteSpecial Paste:=xlPasteValues
 
            End If
        Next
    End With
End Sub

Merci de votre aide