Parcourir certaines feuilles
EzoxGwen
Messages postés
2
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche a écrire un code qui me permettrait de récupérer une valeur dans les 22 premieres feuilles, valeurs que je retranscris dans ma 23e feuille. J'ai essayé plusieurs manip mais je n'y arrive pas. Voici mon code :
Je sens l'erreur bête arriver... Pouvez vous m'aider?
Merci, d'avance,
EzoxGwen
Je cherche a écrire un code qui me permettrait de récupérer une valeur dans les 22 premieres feuilles, valeurs que je retranscris dans ma 23e feuille. J'ai essayé plusieurs manip mais je n'y arrive pas. Voici mon code :
'Dans tout nos programmes, i parcourt les lignes et j les colonnes
Dim i As Integer
'k sert a parcourir les lignes dans la feuil23
Dim k As Integer
Dim fl As Worksheet
'Lidée est de parcourir les feuilles
k = 2
For Each fl In Workbook
i = 2
While fl.Cells(i, 9).Value <> ""
Feuil23.Cells(k, 2).Value = fl.Cells(i, 9).Value
i = i + 1
Wend
k = k + 1
Next fl
End [/contents/446-fichier-sub Sub]
Je sens l'erreur bête arriver... Pouvez vous m'aider?
Merci, d'avance,
EzoxGwen
2 réponses
-
Bonjour,
Sub test1() 'Dans tout nos programmes, i parcourt les lignes et j les colonnes Dim i As Long 'k sert a parcourir les lignes dans la feuil23 Dim k As Long Dim fl As Worksheet 'L'idée est de parcourir les feuilles k = 2 For Each fl In Worksheets i = 2 If fl.Name <> "Feuil4" Then 'si nom de l'onglet, pas nom feuille (fenetre VBA) While fl.Cells(i, 9).Value <> "" Worksheets("Feuil4").Cells(k, 2).Value = fl.Cells(i, 9).Value i = i + 1 k = k + 1 Wend End If Next fl End Sub -
Bonjour
For Each fl In thisWorkbook.Worksheets
