Discussion :

[julien_julio]

Bonjour,

J'ai d'un côté un tableau (tableau 1) avec des cellules fusionnées (7 lignes fusionnées ensembles) et d'un autre côté un tableau (tableau 2) non fusionné.
Je souhaiterais copier/coller les données du tableau 2 dans le tableau 1.
Je souhaite donc que:
- Ligne 1_tableau 1 = Ligne 1_tableau 2
- Ligne 8_tableau 1 = Ligne 2_tableau 2
- Ligne 15_tableau 1 = Ligne 3_Tableau 2
...

Et vice versa: pouvoir injecter les lignes du tableau 1 dans le tableau 2 donc faire l'inverse: prendre une ligne sur 7 et la mettre dans un tableau ligne par ligne.

Sauriez vous comment faire?

[ARTURO83]

Bonjour,

Exemple à adapter
Pièce jointe 428999

Cdlt

[Patrice740]

Bonjour,

Automatiquement au changement de valeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range
Dim r2 As Range
  If Target.Count > 1 Then Exit Sub
  Set r1 = [B2:D50]
  Set r2 = [F4:H10]
  If Not Intersect(Target, r1) Is Nothing Then
    If (Target.Row - r1.Row) Mod 7 = 0 Then
      With r2
        Application.EnableEvents = False
        .Cells(Int((Target.Row - r1.Row) / 7) + 1, 1).Resize(1, r1.Columns.Count).Value = Intersect(Target.EntireRow, r1).Value
        Application.EnableEvents = True
      End With
    End If
  End If
  If Not Intersect(Target, r2) Is Nothing Then
    With r2
      Application.EnableEvents = False
      r1.Cells((Target.Row - r2.Row) * 7 + 1, 1).Resize(1, r2.Columns.Count).Value = Intersect(Target.EntireRow, r2).Value
      Application.EnableEvents = True
    End With
  End If
End Sub

Fichier exemple : Tableaux.xls

[julien_julio]

Merci à vous c'est exactement ce que je souhaitais faire!