XL 2019 copier automatique des donnes en fonction d'un critère

ben soumare

XLDnaute Nouveau
Bonjour
j'ai deux tableau qui contient ces donnees suivant:

DATESCASESDESCRIPTIONOPERATIONSUNIVERSND/NCLIPRENOM ET NOMADRESSESCORDONNEES GPSTELEPHONESE-MAILN° CIN/PASSEPORTDATE DE DELIVRANCEOFFRES ACTUELLESNOUVELLES OFFRESDATES CALL 2RETOUR CALL2DATES TRANSMISSION CONTRATPROMOTEURSRETOUR CONTRATDATES RETOUR CONTRATNUM DDEETAT DDEDATES VALCOMMENTAIRES
25/01/2023CASES 658Y0GBPYNOUVEL ABONNEMENTFIBRE477IAUDREKEURGUI MAXOKABDOU AZIZ GUEYERECUVA

je voudrais que quand l'ETAT de la demande est en VA (colonne en rouge ) que les infos soit automatiquement copier dans le tableau qui est en bas.



NCLI/ NDN° DEMANDEOFFRESOPERATIONUNIVERSDATES VALOGIN_AGTCANAL DE RECEPTION
 
Solution
Avouez que vu de l'extérieur, c'est impossible à deviner. ;)


En PJ un essai avec dans chaque feuille MQTxx :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin2: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [W2:W1000]) Is Nothing And Target = "VA" Then
         Application.ScreenUpdating = False
         Transfert "MQT AUTRES CANAUX", Target.Row
    End If
Fin2:
Application.ScreenUpdating = True
End Sub
et en module :
Code:
Sub Transfert(NomFeuille$, L%)
    Set F = Sheets(NomFeuille)
    With Sheets("VA")
        DL = 1 + .[A65500].End(xlUp).Row
        .Cells(DL, "A") = F.Cells(L, "F")       ' NCLI/ND
        .Cells(DL, "B") = F.Cells(L, "V")       ' N° demande=Num DDE
        .Cells(DL, "C") =...

Statistiques des forums

Discussions
312 230
Messages
2 086 427
Membres
103 206
dernier inscrit
diambote