Concatener des données

[mesnil2000]

Bonjour à tous,

J'ai besoin de concaténer des données issues de feuilles différentes (mais toujours dans la même cellule) sur une seule feuille. Concrètement je dois récupérer les valeurs de la cellulle xx de toutes les feuilles de mon document pour créer une nouvelle base de donnée =[nom de la feuille]!C5
puis =[nom de la feuille]!C5 pour feuille suivante


Merci de votre aide

 

[WILFRIED]

Salut mesnil2000, le fil

Une petite suggestion à la volé :


Sub concatener_spe()
Dim int_nb_fls As Integer
Dim i As Integer
Dim ws_source As Worksheet

int_nb_fls = ActiveWorkbook.Sheets.Count
Set ws_source = ActiveSheet

For i = 1 To int_nb_fls
Sheets(i).Select
If ActiveSheet.Name <> ws_source.Name Then
ws_source.Range('A2').Formula = ws_source.Range('A2').Value & '//' & Sheets(i).Range('A2').Value
End If
Next i

End Sub


Voila je ne l'ai pas vraiment testé ne connaissant pas exacterment ton besoin..

A+

 

[mesnil2000]

Merci j'essaie