A l'attention de FFO

Excel
1

Bonjour FFO,

malgré les longs séjours passés avec Excel et VBA j’ai encore beaucoup de trous noirs !

Tu m’avais mis en place le code qui se trouve dans la « Feuil1 » dans le fichier ci-joint, afin de pouvoir afficher dans la cellule « L2 » des feuilles « Bulletin Paie Salarié A , B, C, D et E » la Feuil1 une période, c’est à dire « d’une date A à la date B ».

Serait-il possible de modifier ce code afin qu’il affiche non seulement une période de Date A à Date B, mais également des journées seules( Par ex. le 02, le 08, le 15 etc.)

Merci d’avance pour ton aide.

Amicalement Rubis
Classeur1.xlsm (23,2 Ko)

2

Bonjour

Ton fichier est dépourvu d’une telle macro
Peut tu me transmettre celui qui en est doté où me refournir tout le contexte de son traitement car au vu de ton fichier je n’ai pas grand-chose à me mettre sous la dent dans ce domaine

Merci

3

Bonjour FFO, ok je te ferai parvenir cela ce soir. Je suis sur la route. Merci a toi et a+. Rubis

4

Je viens de retrouver la macro
Celle-ci était dans le VBA de l’onglet « Feuil1 »

Pour mettre les dates de début et de fin celle-ci fais appel à une ligne de date dans cet onglet qui ne se trouve plus dans ton fichier :

image
image1376×963 200 KB

Aucune ligne avec des dates qui devaient se trouver sur celles sur fond jaune

Si tu veux cette mise en place :

« Serait-il possible de modifier ce code afin qu’il affiche non seulement une période de Date A à Date B, mais également des journées seules( Par ex. le 02, le 08, le 15 etc.) »

Pas d’autre choix que de les avoir

Merci pour un fichier dans cet esprit

Peux-tu me donner un exemple de résultat attendu (Date A à Date B associées aux date seules)

5

Oui dans le genre. Le 08, le 14, le 22, le 25.

6

Je ferai mieux ce soir, desole.

7

Essaies avec cette version

J’ai mis en ligne 4 des dates nécessaire pour un résultat correct onglet « Bulletin Paie Salarié A »
Ne les oublies pour les autres lignes

Testes et dis moi

Classeur1.xlsm (24,7 Ko)

8

Ok je te tiens au courant ce soir. Merci en attendant.:+1:

9

Je me demande si mon dernier fichier correspond bien à ce que tu souhaites
Dans la négative essaies avec ce nouvel exemplaire
Désolé mais pas toujours facile de bien comprendre

Classeur1 -2.xlsm (24,8 Ko)

10

Je vois cela une fois rentre et je reviendrai vers toi.

11

Bonsoir FFO,

désolé pour ce retour tard, mais j’étais sur la route.

Voici le fichier avec une recopie égale au réel.

Alors j’ai essayé ton fichier, mais pour moi l’idéal serait qu’il inscrive chaque jour à part.
Exemple dans ce fichier ci-joint:
Si j’ai le 02, le 04 et le 15 , dans une des lignes concernées, j’aurai voulu qu’il inscrive en cellule « L2 » de l’onglet « Bulletin Paie Salarié A, B, C, D ou E » « le 02, le 04 le15** »

Dans inscrire chaque jour à part au lieu de mettre du « 02 au 15 » par exemple

J’espère avoir bien expliqué.

A toi de me dire.
Merci et A+

Classeur1 -2.xlsm (32,6 Ko)

12

Bonsoir
Pourtant tu m avais ecrit ceci :

" Serait-il possible de modifier ce code afin qu’il affiche non seulement une période de Date A à Date B, mais également des journées seules( Par ex. le 02, le 08, le 15 etc.)"

En d autre termes celà veut dire que tu souhaites à la fois Date A à Date B et la liste de chaque jour

Donc tu ne sembles vouloir maintenant que la liste des jours et plus Date A à Date B

Est ce bien celà ?

13

Re,

oui, je crois que c’est peut-être plus simple pour toi à mettre en place ?

14

Donc plus Date A à Date B mais la liste des jours tu confirmes ?

15

Oui je confirme, uniquement inscrire les jours séparéments

16

Ok demain il fera jour je t enverrai çà
Bonne soirée à toi

1 « J'aime »
17

Pas de soucis. Désolé de m’avoir mal exprimé et changé de demande, mais on ne pense pas toujours à tout.
J’espère que cela ne te dérange pas.
Bonne soirée et à demain.

18

Bonjour,

nouvelle journée, neurones reposés :rofl:et voila j’ai essayé de modifié le code moi même et je crois que j’y suis arrivé.

Si tu veux bien vérifier et me dire si c’est OK ?

Merci à toi.
Amicalement Rubis
Classeur1 Modifié.xlsm (32,6 Ko)

19

Re,

voici la dernière version modifiée.

J’espère que j’ai bien fais :hear_no_evil:
Classeur1 Modifié.xlsm (32,2 Ko)

20

Bonjour,
Ah, et bien tu vois, quand on veut, on peut
C’est nickel
tu peut rajouter cette ligne après le Next pour éviter la dernière virgule

   End If
        Next
          listejours = Mid(listejours, 1, Len(listejours) - 1)
          Sheets(nomonglet).Range("L2") = "(" & listejours & ")"