Boucle Each ne fonctionne pas

Bonjour à tous,

J'ai un onglet dynamique en fonction d'une cellule, j'aimerai mettre chaque résultat dans une slide powerpoint.

Cependant, la boucle de mon code ne fonctionne pas : elle copie la plage pour coller en image et colle dans l'onglet désiré sauf qu'elle le fait pour une seule valeur de ma cellule.

Sub PL_US()
'

Dim Cell As Range
Dim LR As Long

'Boucle
LR = Cells(Rows.Count, "A").End(xlUp).Row
For Each Cell In Range("C5")
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Range("B4:O30").CopyPicture xlScreen
    Sheets("Ppt.").Select
    Range("K" & LR).Select
    ActiveSheet.Paste
Next Cell

End Sub

Merci de votre aide,

Bonjour saaku, le forum,

L'erreur est peut-être ici.... ?

For Each Cell In Range("C5")

Cordialement,

Bonjour,

Xor bonjour,

en effet faire une boucle de "range" dans une collection qui n'en comporte qu'une... Si LR correspond à la plage de recherche alors le "each" doit se faire dans LR, non ?

@ bientôt

LouReeD

Bonjour à tous,

peut-être For Each Cell In Range("C5").Resize(LR - 4)
eric

Bonjour,

La cellule C5 contient ma liste déroulante, LR c'est juste pour identifier la dernière ligne pour coller les résultats à la suite.

Merci

Bonjour saaku et le Forum,

voici un exemple à tester

Sub PL_US2()
'https://forum.excel-pratique.com/excel/boucle-each-ne-fonctionne-pas-178901

Dim Cell As Range, inputRange As Range, DropDown As Range
Dim LR As Long

Set DropDown = Range("C5")
Set inputRange = Evaluate(DropDown.Validation.Formula1)

'Boucle
LR = Cells(Rows.Count, "A").End(xlUp).Row
For Each Cell In inputRange
DropDown = Cell.Value

' ton code

Next Cell

End Sub

Bonjour,

Merci, j'ai un message d'objet requis sur la ligne ci-dessous :

Set inputRange = Evaluate(DropDown.Validation.Formula1)

Je n'arrive pas à comprendre.