comment écrire dans tableau dynamique en VBA

[Anselius]

Bonjour à tous et à toutes,

Voilà ce que je désire faire :
Condition initiale :
- j'ai un tableau dynamique, disons Tab1, sur Feuille1
- j'ai un tableau dynamique d'une ligne Tab2 sur Feuille2

Action désirée :
- quand je rempli la case en colonne B pour chaque nouvelle ligne dans Tab1 il faut que dans Tab2 cette info sois recopiée dans la colonneA

Contrainte :
- la col.B de Tab1 peut contenir des données identiques. En revanche les données de la col.A de Tab2 doivent être unique.

Solution envisagé : en VBA
pour détecter les changement de la col.B :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
...

après une boucle for dans le Tab2 pour chercher si la valeur existe déjà dans Tab2
le problème c'est que je sais pas comment faire mon for dans le Tab2 :
For Each Cell in Sheets(Feuille2).?????

 

[Banzai64]

Re : comment écrire dans tableau dynamique en VBA

Bonjour

A essayer

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    With Sheets("Feuil2")
      If Application.CountIf(.Range("Tab2"), Target) = 0 Then
        .Range("Tab2")(.Range("Tab2").Rows.Count) = Target
      End If
    End With
  End If
End Sub