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

ben soumare · 27 Janvier 2023

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

DATES

CASES

DESCRIPTION

OPERATIONS

UNIVERS

ND/NCLI

PRENOM ET NOM

ADRESSES

CORDONNEES GPS

TELEPHONES

E-MAIL

N° CIN/PASSEPORT

DATE DE DELIVRANCE

OFFRES ACTUELLES

NOUVELLES OFFRES

DATES CALL 2

RETOUR CALL2

DATES TRANSMISSION CONTRAT

PROMOTEURS

RETOUR CONTRAT

DATES RETOUR CONTRAT

NUM DDE

ETAT DDE

DATES VAL

COMMENTAIRES

25/01/2023

CASES 658Y0GBPY

NOUVEL ABONNEMENT

FIBRE

477I

AUDRE

KEURGUI MAX

OK

ABDOU AZIZ GUEYE

RECU

VA

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/ ND

N° DEMANDE

OFFRES

OPERATION

UNIVERS

DATES VA

LOGIN_AGT

CANAL DE RECEPTION

sylvanu · 27 Janvier 2023

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") =...

sylvanu · 27 Janvier 2023

Bonjour Ben soumare, et bienvenu sur XLD,
N'avez vous pas un petit fichier test, ce serait beaucoup plus simple.
On peux le faire simplement en VBA. Acceptez vous une approche VBA ?

ben soumare · 27 Janvier 2023

sylvanu à dit:
Bonjour Ben soumare, et bienvenu sur XLD,
N'avez vous pas un petit fichier test, ce serait beaucoup plus simple.
On peux le faire simplement en VBA. Acceptez vous une approche VBA ?

Bonjour
bien sur je met le tableau

je voudrai que quand l'état de la demande passe en VA colonne "W" dans les différents feuilles en orange (MQT KIBARU et MQT AUTRES CANAUX) que les donnés soit soit directement copier dans la feuille VA en bleu

sylvanu · 27 Janvier 2023

Re,
Vos feuilles MQT xx comportent ces colonnes :

Le feuille VA celles ci :

Donc question :
On colle quoi où ? Aucune colonne de MQT va dans VA.

ben soumare · 27 Janvier 2023

sylvanu à dit:
Re,
Vos feuilles MQT xx comportent ces colonnes :
Regarde la pièce jointe 1161696
Le feuille VA celles ci :
Regarde la pièce jointe 1161697
Donc question :
On colle quoi où ? Aucune colonne de MQT va dans VA.

les informations qui se trouve dans les colonnes

NCLI/ ND

N° DEMANDE

OFFRES

OPERATION

UNIVERS

DATES VA

LOGIN_AGT

CANAL DE RECEPTION

qui sont dans les deux MQT soit coller dans le tableau qui se trouve dans feuille VA quand ETAT DDE = VA

sylvanu · 27 Janvier 2023

Inutile de vous répéter. Ca, j'avais compris, mais :
1- Que met on dans DatesVA : DatesVal ou Dates ?
2- Que met on dans Login_AGT ?
3- Que met on dans Canal de réception ?
4- Que met on dans N° Demande ? N° CIN/PASSEPORT ou Num DDE ?

Essayez au moins que chaque colonne des feuilles AGT ait le même titre qu'une des colonnes de VA. ce sera plus simple pour tout le monde.

ben soumare · 27 Janvier 2023

ben soumare à dit:
les informations qui se trouve dans les colonnes

NCLI/ ND N° DEMANDE OFFRES OPERATION UNIVERS DATES VA LOGIN_AGT CANAL DE RECEPTION

qui sont dans les deux MQT soit coller dans le tableau qui se trouve dans feuille VA quand ETAT DDE = VA

sylvanu à dit:

Inutile de vous répéter. Ca, j'avais compris, mais :
1- Que met on dans DatesVA : DatesVal ou Dates ?
2- Que met on dans Login_AGT ?
3- Que met on dans Canal de réception ?
4- Que met on dans N° Demande ? N° CIN/PASSEPORT ou Num DDE ?

Essayez au moins que chaque colonne des feuilles AGT ait le même titre qu'une des colonnes de VA. ce sera plus simple pour tout le monde.

Cliquez pour agrandir...

pour d

ben soumare · 27 Janvier 2023

pour date VA on met date val
pour login AGT pas besoin d'etre renseigner
pour canal de réception on met KIBARU si le info provient de MQT KIBARU
et pour N° Demande on met Num DDE

sylvanu · 27 Janvier 2023

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") = F.Cells(L, "O")       ' Nouvelles Offres
        .Cells(DL, "D") = F.Cells(L, "D")       ' Opérations
        .Cells(DL, "E") = F.Cells(L, "E")       ' Univers
        .Cells(DL, "F") = F.Cells(L, "X")       ' Date VA
        .Cells(DL, "H") = Mid(NomFeuille, 5)    ' Canal de réception
    End With
End Sub

A noter que j'ai supprimée la Feuil2 pour essai. Car la feuille 2 ralentit énormément les macros. Je ne sais pas pourquoi mais je pense que c'est à cause des 150 petits dessins de calendrier.
Que représente ces petits dessins ? Il doit être possible de pointer es jours sans utiliser d'icones, comme une MFC par exemple.

ben soumare · 27 Janvier 2023

sylvanu à dit:

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") = F.Cells(L, "O")       ' Nouvelles Offres
        .Cells(DL, "D") = F.Cells(L, "D")       ' Opérations
        .Cells(DL, "E") = F.Cells(L, "E")       ' Univers
        .Cells(DL, "F") = F.Cells(L, "X")       ' Date VA
        .Cells(DL, "H") = Mid(NomFeuille, 5)    ' Canal de réception
    End With
End Sub

A noter que j'ai supprimée la Feuil2 pour essai. Car la feuille 2 ralentit énormément les macros. Je ne sais pas pourquoi mais je pense que c'est à cause des 150 petits dessins de calendrier.

c'est vrai que c'est pas évident 🙂

j'ai essayer de remplire mais le copie ne passe tjr pas
en passant je suis pas trop VBA 😅

sylvanu · 27 Janvier 2023

Oui, mais là, sans VBA c'est difficile.
Pour le coup, je ne sais pas faire.

ben soumare · 27 Janvier 2023

sylvanu à dit:
Oui, mais là, sans VBA c'est difficile.
Pour le coup, je ne sais pas faire.

donc coup a chaque foi que j'ai des données je doit mettre le codage VBA ou bien c'est déjà automatiser

sylvanu · 27 Janvier 2023

Essayez !
Vous entrez une ligne dans un tableau, vous mettez VA en colonne W .... et vous regardez la feuille VA, la ligne y est déjà transférée.
( Mais il faut penser à valider les macros si ce n'est pas encore fait sur votre PC )

ben soumare · 27 Janvier 2023

sylvanu à dit:
Essayez !
Vous entrez une ligne dans un tableau, vous mettez VA en colonne W .... et vous regardez la feuille VA, la ligne y est déjà transférée.
( Mais il faut penser à valider les macros si ce n'est pas encore fait sur votre PC )

d'accord merci bcp

et comment on valide les maccros

sylvanu · 27 Janvier 2023

Vous n'avez pas Google ?

Activer ou désactiver les macros dans les fichiers Microsoft 365 - Support Microsoft

Améliorez la sécurité, évaluez et atténuez les risques liés à l’exécution de macros, et découvrez comment activer ou désactiver des macros pour Microsoft 365.

support.microsoft.com

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

ben soumare

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

ben soumare

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

ben soumare

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ben soumare

XLDnaute Nouveau

ben soumare

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

ben soumare

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ben soumare

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ben soumare

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Activer ou désactiver les macros dans les fichiers Microsoft 365 - Support Microsoft

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

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Privacy & Transparency

Privacy & Transparency