XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide

[jerome91]

Bonjour,
Je cherche à créer "une boucle" avec une macro et je n'y parviens pas.
Dans mon fichier, j'ai un onglet table avec une liste d'agences et un onglet param.
Je souhaiterais que la macro prenne la première agence dans l'onglet table (colonne A), la copie et la colle en valeur en cellule B1 dans l'onglet param,
ensuite la macro vient dans l'onglet table, copie la 2nde agence et la colle en valeur en cellule B1 dans l'onglet param,
et ainsi de suite jusqu'à la dernière agence ou dernière ligne non vide.
Pourriez-vous m'aider ?
Merci.
Jérôme

 

[Franc58]

Salut, c'est pas très clair, si tu colles tout en B1 comme tu dis, tu auras juste le nom de la dernière agence de ton onglet "table", quel intérêt de faire ça ???

 

[jerome91]

Salut, c'est pas très clair, si tu colles tout en B1 comme tu dis, tu auras juste le nom de la dernière agence de ton onglet "table", quel intérêt de faire ça ???

Bonjour Franc, entre les différents copier coller je compte insérer une macro intermédiaire pour venir récupérer des infos qui se calculeront automatiquement dans d’autres feuilles de calcul en fonction de l'agence.
Jérôme

 

[Franc58]

Si j'ai bien compris, ça devrait être quelque chose comme ceci alors:

Sub CopyCells()

Dim wsTable As Worksheet
Dim wsParam As Worksheet
Dim lastrow As Long
Dim i As Long


Set wsTable = ThisWorkbook.Sheets("table")
Set wsParam = ThisWorkbook.Sheets("param")

lastrow = wsTable.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastrow
    wsTable.Range("A" & i).Copy wsParam.Range("B1")
    ' insérer ta macro intermédiaire ici
Next i

End Sub

 

[jerome91]

Si j'ai bien compris, ça devrait être quelque chose comme ceci alors:

Sub CopyCells()

Dim wsTable As Worksheet
Dim wsParam As Worksheet
Dim lastrow As Long
Dim i As Long


Set wsTable = ThisWorkbook.Sheets("table")
Set wsParam = ThisWorkbook.Sheets("param")

lastrow = wsTable.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastrow
    wsTable.Range("A" & i).Copy wsParam.Range("B1")
    ' insérer ta macro intermédiaire ici
Next i

End Sub

Merci Franc, bonne soirée