Microsoft 365 Retranscrire sélections

mllemoon

XLDnaute Nouveau
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
 

Pièces jointes

  • Selection.xlsx
    50.3 KB · Affichages: 10

mllemoon

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Re,
Normalement, si la colonne est bien choisie, DL donne la dernière cellule occupée.
Mais on peut faire :
VB:
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

XLDnaute Nouveau
Merci
Re,
Normalement, si la colonne est bien choisie, DL donne la dernière cellule occupée.
Mais on peut faire :
VB:
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
 

Discussions similaires

E
Réponses
40
Affichages
5 K
Estelle21
E

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024