Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

jerome91

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

Pièces jointes

  • Exemple.xlsm
    9.9 KB · Affichages: 5

jerome91

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

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

XLDnaute Junior
Merci Franc, bonne soirée
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…