A
Anselius
Guest
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).?????
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).?????