Microsoft 365 Retranscrire sélections

mllemoon · 14 Février 2022

Bonjour,

J’ai un classeur qui comporte 3 pages.

J’aimerais qu’une partie de la 3e page se complète toute seule à partir des éléments sélectionnés dans les 2 premières pages.

Les éléments à retranscrire sont en vert dans les 2 premières pages.

Des exemples de ce que j’aimerais comme résultat sont dans la 3e page en rouge/fond saumon.

J’espère avoir été assez précise. Lors d’une demande précédante, je ne l’avais pas été assez.

Je vous remercie beaucoup pour votre aide.

Karine

sylvanu · 14 Février 2022

C'était pas clair.

Voir PJ.

sylvanu · 14 Février 2022

Bonjour Karine,

mllemoon à dit:
Lors d’une demande précédente, je ne l’avais pas été assez.

En PJ un essai avec ce que j'ai compris.
J'ai supposé que la corbeille correspondait aux choix dans la colonne I d' Options.
La mise à jour se fait en sélectionnant la feuille Cout Comparés. Avec :

VB:

Sub Worksheet_Activate()
    Dim DL%, L%, Ind%
    Application.ScreenUpdating = False
    [C7:M25].ClearContents: [C39:M59].ClearContents
    With Sheets("Options")
        DL = .Range("A65500").End(xlUp).Row
        ' Traitement Corbeilles
        Ind = 7
        For L = 5 To DL
            If LCase(.Cells(L, "I")) = "x" Then
               Cells(Ind, "C") = .Cells(L, "A")
               Cells(Ind, "D") = .Cells(L, "C")
               Cells(Ind, "M") = .Cells(L, "F")
               Ind = Ind + 1
            End If
        Next L
        ' Traitement Options
        Ind = 39
        For L = 5 To DL
            If LCase(.Cells(L, "G")) = "x" Then
               Cells(Ind, "C") = .Cells(L, "A")
               Cells(Ind, "D") = .Cells(L, "C")
               Cells(Ind, "M") = .Cells(L, "F")
               Ind = Ind + 1
            End If
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

mllemoon · 14 Février 2022

Bonjour à vous et merci surtout.

La choix de la section A doivent provenir de la page corbeille

Finalement j'ai encore réussi à ne pas être claire

sylvanu · 14 Février 2022

Puis je supposer que c'est Corbeille1 si J8 est coché, et Corbeille2 si c'est Y8 ?
ou alors c'est Corbeille1 si J8 est coché, sinon c'est Corbeille2 ?

mllemoon · 14 Février 2022

sylvanu à dit:
Puis je supposer que c'est Corbeille1 si J8 est coché, et Corbeille2 si c'est Y8 ?
ou alors c'est Corbeille1 si J8 est coché, sinon c'est Corbeille2 ?

Il pourrait y avoir parfois 3 choix de corbeilles, on ne peux pas y aller de cette façon. Désolée

Aussi,

La choix de la section A doivent provenir de la page corbeille

Finalement j'ai encore réussi à ne pas être claire

sylvanu · 14 Février 2022

mllemoon à dit:
La choix de la section A doivent provenir de la page corbeille

Oui mais comment détermine t-on la corbeille à traiter ?
Quelles sont les cellules de Corbeilles qui permettent de le détecter ?

mllemoon · 14 Février 2022

Information à transposer dans la Section A de la page Couts Compares:

Provenance: page Corbeilles
Une seule option sur les 3 sera choisie.

Doit être retranscrit sur la 1ère ligne de la section A l'un des 2 choix suivant:

Si J8 contient "X on transpose la description B8 et le coût de F8.
Si c'est Q8 qui contient "X on transpose la description N8 et le coût de O8.
Si c'est Y8 qui contient "X on transpose la description V8 et le coût de W8.

Pour le reste de la page:
Si H26:H42 "X" on transpose Code B26:B42 Description C8:C42
Si P2642 "X" on transpose Code J26:J42 Description K26:K42
Si Y19:Y42 "X" on transpose Code R19:R42 Description T8:T42

mllemoon · 14 Février 2022

Information à transposer dans la Section A de la page Couts Compares:

Provenance: page Corbeilles

Doit être retranscrit sur la 1ère ligne de la section A l'un des 2 choix suivant:
*Une seule option sur les 3 sera choisie.

Si J8 contient "X on transpose la description B8 et le coût de F8.
Si c'est Q8 qui contient "X on transpose la description N8 et le coût de O8.
Si c'est Y8 qui contient "X on transpose la description V8 et le coût de W8.

Pour le reste de la page:
Si H26 : H42 "X" on transpose Code B26:B42 Description C8:C42
Si P26 : P42 "X" on transpose Code J26:J42 Description K26:K42
Si Y19 : Y42 "X" on transpose Code R19:R42 Description T8:T42

sylvanu · 14 Février 2022

Chapeau bas, Madame. C'est clair.
En PJ un essai.
J'ai supposé qu'il n'y avait qu'un X dans les choix, dans le cas contraire, je prends le premier.

mllemoon · 14 Février 2022

ah! Ça y est presque! Il peut y avoir des choix dans l'une ou l'autres des options suivantes.
Il faut toutes les sélectionner:
Si H26 : H42 "X" on transpose Code B26:B42 Description C8:C42
Si P26 : P42 "X" on transpose Code J26:J42 Description K26:K42
Si Y19 : Y42 "X" on transpose Code R19:R42 Description T8:T42

sylvanu · 14 Février 2022

Un essai en PJ avec un petit doute.

mllemoon à dit:
Il faut toutes les sélectionner

Je tiens compte des X en J8, Q8,Y8. J'espère que c'est ça.

mllemoon · 14 Février 2022

Tout est OK sauf qu'il y aura un seul choix de Corbeille 1, 2 ou 3

sylvanu · 14 Février 2022

Alors je ne comprends plus rien.
Est ce à dire qu'il faut mettre le titre que du "X" sélectionné, et ensuite mettre tous les items ayant un "X" ?

mllemoon · 14 Février 2022

Je crois que c'est ça.
Dans la ligne 8, il n'y a qu'un choix possible, c'est à dire: Corbeille 1, 2 ou 3

Pour toutes les autres lignes et colonnes en bas, il faut tout prendre les items ayant un "X"

sylvanu · 14 Février 2022

C'était pas clair.

Voir PJ.

Microsoft 365 Retranscrire sélections

mllemoon

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

mllemoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

mllemoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

mllemoon

XLDnaute Nouveau

mllemoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

mllemoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

mllemoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

mllemoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires