Discussion :

[grogus]

Bonsoir ou bonjour à vous toutes et tous.

Vos services me furent déjà d'une (très) grande utilité et mes progrès en vba ne se font que trop lentement par-rapport à la demande. C'est pour ces raisons que me voilà encore devant vous, la queue entre les jambes, quémandant votre aide ou tout du moins une orientation dans la réalisation du problème suivant:

Un simple tableau avec deux lignes pour poser ses congés annuels.
La première ligne avec les dates de l'année (format de la date: dd-mm pour info) du 01 janvier au 31 décembre.
La deuxième ligne avec des cases vides : l'utilisateur coche la case pour indiquer qu'il pose un congé le jour où la case est cochée

ex: 01-02 02-02 03-02
x x
signifie "je prends des congés le 01 et 02 février"

Maintenant que l'explication est faite, voici le soucis: je cherche à faire un récapitulatif sous la forme d'une MsgBox des dates de congés posés.

Grossièrement, il faudrait visualiser dans cette MsgBox toutes les dates (en ligne 1) (1 jour par-ci par-là et/ou toutes les plages de vacances) pour lesquels il y aurait une croix (ou case non vide) en ligne 2.

Dans l'exemple ci-dessus: il faudrait que le résultat soit indiqué dans la MsgBox "du 01/02 au 02/02".

Je peux vous envoyer un petit fichier très rapide pour améliorer la compréhension.


D'ici là, je vous remercie par avance, ne serait-ce que pour tous les moments où le forum a déjà pu me dépanner (entre autre avec anasecu et thebenoit59)


PS: pour essayer de résoudre le problème, j'ai bien tenté quelque petites choses (principalement avec des "if" mais ça ne donne rien de bien intéressant, désolé)

PPS: il y a donc deux problèmes: 1) savoir comment faire le récapitulatif des dates sélectionnées et 2) comment transférer ces données vers une MsgBox

[mercatog]

bonsoir

voilà un exemple écrit sur tablette

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub test()
dim i as integer
dim Res as string
 
res="Jours demandés:"
with worksheets("nomdetafeuille")
    for i=2 to 367
         if lcase(.cells(2,i))="x" then res =res &vbnewline &format(.cells(1,i),"dd/mm")
     next i
end with
msgbox res
end sub

[grogus]

Merci beaucoup mercatog. Pour ta rapidité et ton efficacité.

Ton code fonctionne à merveille mais (s'il n'y a pas de mais ce serait dommage), serait-il possible de pousser le vice plus loin en essayant de regrouper les plages de vacances à partir du moment où les congés se suivent?

Par exemple, à la place de "01/02 02/02 03/02 04/02 05/02 11/03 12/03 13/03 07/05" plutôt obtenir "01/02 - 05/02 11/03-13/03 07/05"? Avec les même plage sur une seule ligne soit
01/02 - 05/02
11/03 - 13/03
07/05
(possibilité de remplacer le trait d'union par un mot comme "au" etc.)

Si ce n'est pas réalisable, ton code me convient déjà plutôt bien.

Encore merci

EDIT: petit problème: une "erreur d’exécution "424" : objet requis" se lance dès l'enclenchement du code que j'ai ajusté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub visucongés()
Dim i As Integer
Dim Res As String
 
Res = "Jours demandés:"
With Activesheets
    For i = 3 To 370
        If LCase(.Cells(4, i)) = "x" Then Res = Res & vbNewLine & Format(.Cells(3, i), "dd/mm")
    Next i
End With
MsgBox Res
End Sub

Edit d'un Edit : il est temps d'aller se coucher et d'enlever le "s" en trop dans activesheet. Toutes mes excuses pour ce contretemps.

[mercatog]

Bonjour

Est ce que seuls les jours ouvrables sont pris en compte? C'est à dire si on coche le vendredi 01/04 en saute samedi et dimanche et on coche le lundi 04/04, on écrira du 01/04 au 04/01 ou bien séparément?

[grogus]

alors concernant les jours ouvrables, ce serait un bonus de pouvoir zappé les we. Mais pas obligatoire.
A savoir qu'il y a une petite formule pour les dates car tout dépend de l'année demandée (que ce soit 2016, 2017 ou encore 2020, le 3 janvier ne tombera pas forcément le même jour de la semaine) donc ça risque d'empirer le problème.

Le principal reste de pouvoir regrouper les dates avec des cellules "jointives".
Si tu arrives en plus à exclure les we (en fonction de l'année demandée donc), je ne pourrai que m'agenouiller devant toi hé hé

[Igloobel]

Bonjour,

C'est dommage que tes dates sont en lignes et tes croix en dessous car s'ils étaient en colonne un simple TCD aurait fait l'affaire (je viens de le tester)

Bonne journée