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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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") =...
Juste un point s'il y a une prochaine fois :
1- Mettez toujours une PJ, ça simplifie les choses.
2- Le contributeur n'est pas de votre métier, et ne connait pas votre fichier.
3- Soyez clair et concis sur les demandes. Là aussi ça simplifieras les choses.
Bonne continuation. 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour