Concatener les cellules de mêmes coordonnées de plusieurs feuilles

[ckoebel5]

Bonjour à tous,

Dans le fichier joint, j'ai 11 feuilles et je voudrais concaténer les cellules des 10 premières feuilles sur la onzième. Je préfèrerai une solution sans VBA, mais je suis aussi preneur de toute solution.

Merci encore à tous ceux qui se pencheraient sur mon problème et encore bravo aux concepteurs de ce site qui est vraiment trop génial!!!!

Cordialement,

Christophe

 

[Staple1600]

Re : Concatener les cellules de mêmes coordonnées de plusieurs feuilles

Bonsoir à tous

Petit rappel

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Donc supprimes ton fichier et remplace le par une version anonymisé en utilisant la la recopie vers le bas
Tu sélectionnes toute tes feuilles sauf la feuille BILAN
en B3 -> NOM1
tu recopies vers le bas
en C3 -> PRENOM1
tu recopies vers le bas
Clic-droit sur un onglet-> dissocier les feuilles

Et voila ton fichier anonymisé en moins de 10 secondes

 

[Staple1600]

Re : Concatener les cellules de mêmes coordonnées de plusieurs feuilles

Re

En attendant ton nouveau fichier, voici ce que j'ai testé avec l'ancien.
(que j'ai supprimé ensuite)

Sub mBILAN()
Dim ws As Worksheet, i&, j&
For Each ws In Worksheets
If ws.Name <> "BILAN" Then
For i = 3 To 23
For j = 4 To 8
If Len(ws.Cells(i, j)) > 0 Then
Sheets("BILAN").Cells(i, j) = Sheets("BILAN").Cells(i, j) & " " & ws.Cells(i, j)
End If
Next j
Next i
End If
Next
End Sub

 

[ckoebel5]

Re : Concatener les cellules de mêmes coordonnées de plusieurs feuilles

Merci pour l'astuce, j'adore vraiment ce site!!!
Et désolé pour ma maladresse.

Voici donc en pj le fichier anonymisé.

 

[Staple1600]

Re : Concatener les cellules de mêmes coordonnées de plusieurs feuilles

Re


Relire mon précédent message.
Car pendant que tu anonymisais, je macrotais

 

[Si...]

Re : Concatener les cellules de mêmes coordonnées de plusieurs feuilles

Salut

En D3 feuille Bilan, formule* à tirer à droite et en bas

=EPS!D3&Musi!D3&'Arts pla'!D3&Angl!D3&Alld!D3&Fra!D3&HG!D3&SC.Phys!D3&SVT!D3&maths!D3

ou
macro, entre autres, dans la page de code de cette feuille (clic droit sur le nom BILAN puis clic gauche sur Visualiser le code)

Private Sub Worksheet_Activate()
  Dim F As Worksheet, C As Range
  [D3:H23] = ""
  Application.ScreenUpdating = 0
  For Each F In Sheets
    If F.Name <> Me.Name Then _
      For Each C In F.[D3:H23]: Range(C.Address) = Range(C.Address) & C & " ": Next
  Next
End Sub

* attention aux noms des onglets

 

[DoubleZero]

Re : Concatener les cellules de mêmes coordonnées de plusieurs feuilles

Bonjour, ckoebel5, Staple1600 , Si... , le Forum,

Une autre suggestion avec ce code, afin que le nom de chaque onglet figure avant les diverses notes et / ou appréciations.

Private Sub Worksheet_Activate()
' (MerSi..., ci !)
    Dim F As Worksheet, C As Range
    [D3:H23] = ""
    Application.ScreenUpdating = 0
    For Each F In Sheets
        If F.Name <> Me.Name Then _
           For Each C In F.[D3:H23]: Range(C.Address) = Range(C.Address) & F.Name & " : " & C & " ": Next
    Next
    Cells.EntireColumn.AutoFit
End Sub

A bientôt