Microsoft 365 Retranscrire sélections

[mllemoon]

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

 

[mllemoon]

C'est parfait! Excatement ce que je recherche!

Merci beaucoup

 

[sylvanu]

N'oubliez pas qu'un contributeur ne connait rien à votre fichier.
En particulier ici je pensais qu'il y avait une corrélation entre les 3 corbeilles et les trois listes en dessous.
Le principal est de finir par converger.

 

[mllemoon]

Merci, bonne st-valentin!

 

[mllemoon]

Rebonjour, peut-on mettre un IND = IND + 1 (mais maximum = 73 )

' Traitement Options
With Sheets("725D Options Tanguay 2022")
DL = .Range("A65500").End(xlUp).Row
Ind = 54
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

 

[sylvanu]

Re,
Normalement, si la colonne est bien choisie, DL donne la dernière cellule occupée.
Mais on peut faire :

Sub Essai()
    ' Traitement Options
    With Sheets("725D Options Tanguay 2022")
        DL = .Range("A65500").End(xlUp).Row
        Ind = 54
        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
                If Ind = 74 Then Exit For ' On sort de la boucle
            End If
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

Utilisez la balise </> pour le code c'est plus lisible.
Indentez votre code, c'est plus lisible et évite les erreurs.

 

[mllemoon]

Merci

Re,
Normalement, si la colonne est bien choisie, DL donne la dernière cellule occupée.
Mais on peut faire :

Sub Essai()
    ' Traitement Options
    With Sheets("725D Options Tanguay 2022")
        DL = .Range("A65500").End(xlUp).Row
        Ind = 54
        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
                If Ind = 74 Then Exit For ' On sort de la boucle
            End If
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

Utilisez la balise </> pour le code c'est plus lisible.
Indentez votre code, c'est plus lisible et évite les erreurs.

Merci encore