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

jerome91 · 23 Janvier 2024

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 · 23 Janvier 2024

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 · 23 Janvier 2024

Franc58 à dit:
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 · 23 Janvier 2024

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

VB:

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 · 23 Janvier 2024

Franc58 à dit:

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

VB:

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

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

jerome91

XLDnaute Junior

Pièces jointes

Franc58

XLDnaute Occasionnel

jerome91

XLDnaute Junior

Franc58

XLDnaute Occasionnel

jerome91

XLDnaute Junior

Discussions similaires