XL 2016 Bulletin Changement Equipes et Jours

[pika83]

Bonjour, je cherche sans sucée a faire transférer le contenu de deux cellules après remplissage d'un bulletin primaire.
je vous joint mon fichier afin de vous expliquer ma demande.
D'avance merci pour votre aide.

 

[mapomme]

Bonjour @pika83 ,

Bonjour, je cherche sans sucée a faire transférer le contenu de deux cellules après remplissage...

Doit on y voir une une connotation vampirique d'origine américaine (Halloween oblige) ou bien une connotation sexuelle d'origine franchouillarde ?

Bon, pas taper, je sors

edit: bonjour @Victor21

 

[pika83]

il n'y a aucune connotation, mais étant un novice avec excel j'ai du mal avec les formules .
Jusqu’à présent j'ai toujours eu des réponses positives qui m'ont réellement fait avancer.
C'est pour cela que je me permet de vous demander votre aide avec vous qui êtes des experts d'excel.
Si quelqu'un a une idée sur ma demande, merci.

 

[mapomme]

Bonjour @pika83 ,

Bon, c'est promis, je ne m'essaierai plus à l'humour avec vous... (quoique )

Une piste dans le fichier joint. Quand on quitte l'onglet de nom Feuil2 (la feuille du bulletin), l'onglet Feuil1 (la feuille du planning) est automatiquement mis à jour. Le code est dans le module de la feuille ayant pour nom d'onglet Feuil2.

Private Sub Worksheet_Deactivate()
Dim planning, bulletin, n&, i&, j&, m&, ok As Boolean
   planning = Sheets("Feuil1").Range("e1").CurrentRegion
   n = Sheets("Feuil2").Cells(Rows.Count, "a").End(xlUp).Row
   bulletin = Sheets("Feuil2").Range("a1:d1").Resize(n)

   i = 1
   Do
      If IsNumeric(bulletin(i, 2)) And IsDate(bulletin(i, 3)) Then
         ok = False
         For m = 1 To UBound(planning)
            If planning(m, 3) = bulletin(i, 2) Then
               For j = 1 To UBound(planning, 2)
                  If planning(3, j) = bulletin(i, 3) Then
                     planning(m, j) = bulletin(i, 4)
                     ok = True
                     Exit For
                  End If
               Next j
            End If
            If ok Then Exit For
         Next m
      End If
      i = i + 1
   Loop Until i > UBound(bulletin)
   Sheets("Feuil1").Range("e1").CurrentRegion = planning
End Sub

nota : Attention! Si vous regardez dans la feuille de projet VBA, vous allez voir un point qui risque d'entrainer une confusion.

Une feuille de calcul Excel est affublé de deux noms: L'un appelé Codename qui est attribué par Excel et l'autre nommé Name qui est le nom de l'onglet au bas de la feuille.

Dans votre cas, la feuille de calcul de Name Feuil1 a pour Codename Feuil2 et la feuille de calcul de Name Feuil2 a pour Codename Feuil1.
En toute rigueur, cela est tout a fait permis mais peut être source de grande confusion au codage.
Renommez les noms des feuilles (au niveau des onglets) avec des noms plus parlant. Exemple "Bulletin" et "Planning".

 

[pika83]

merci a toi mapomme, ta piste a été judicieuse, j'ai essayé sur plusieurs cellules et cela fonctionne bien. Même si je ne comprend pas tous le VB, c'est effectivement la finalité que j’espérais. J’espère un jour me lancer dans ce domaine pour faire moi même mes attentes.
Tu fais parti des experts d'excel dont je parlais.
Encore bravo a ce forum qui fait avancer et donne de l'espoir a des personnes comme moi qui ont envie découvrir excel.

 

[mapomme]

Re,

Dans ma première version, les formules du planning sont toutes converties en valeur.
Pour éviter cette inconvénient (si c'en est un), Préférez la version v1a du fichier joint.

Private Sub Worksheet_Deactivate()
Dim planning, bulletin, n&, i&, j&, m&, ok As Boolean
   planning = Sheets("Feuil1").Range("e1").CurrentRegion
   n = Sheets("Feuil2").Cells(Rows.Count, "a").End(xlUp).Row
   bulletin = Sheets("Feuil2").Range("a1:d1").Resize(n)

   i = 1
   Do
      If IsNumeric(bulletin(i, 2)) And IsDate(bulletin(i, 3)) Then
         ok = False
         For m = 1 To UBound(planning)
            If planning(m, 3) = bulletin(i, 2) Then
               For j = 1 To UBound(planning, 2)
                  If planning(3, j) = bulletin(i, 3) Then
                     Sheets("Feuil1").Cells(m, j) = bulletin(i, 4)
                     ok = True
                     Exit For
                  End If
               Next j
            End If
            If ok Then Exit For
         Next m
      End If
      i = i + 1
   Loop Until i > UBound(bulletin)
End Sub

 

[sylvanu]

Bonsoir MaPomme,
Pika83 a quelques ennuis avec le fichier ci dessus . Voir post :

XL 2016 - Bulletin chgment Equipes

Bonjour, je reviens vers vous car en début de mois j'avais demandé votre aide sur la réalisation d'un bulletin de changement d' équipes. "mapomme" m'avait exactement proposé une feuille qui fonctionne très bien. Mais a l'usage je me suis aperçu qu'il me manquait des éléments pour optimiser mes...

www.excel-downloads.com

J'ai regardé ... j'ai refermé.
Autant laissé le Maitre faire !