DATES | CASES | DESCRIPTION | OPERATIONS | UNIVERS | ND/NCLI | PRENOM ET NOM | ADRESSES | CORDONNEES GPS | TELEPHONES | 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 |
NCLI/ ND | N° DEMANDE | OFFRES | OPERATION | UNIVERS | DATES VA | LOGIN_AGT | CANAL DE RECEPTION |
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
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") =...
BonjourBonjour 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 ?
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.
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.
NCLI/ ND | N° DEMANDE | OFFRES | OPERATION | UNIVERS | DATES VA | LOGIN_AGT | CANAL DE RECEPTION |
les informations qui se trouve dans les colonnes
qui sont dans les deux MQT soit coller dans le tableau qui se trouve dans feuille VA quand ETAT DDE = VA
NCLI/ ND N° DEMANDE OFFRES OPERATION UNIVERS DATES VA LOGIN_AGT CANAL DE RECEPTION
pour dInutile 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.
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
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
Avouez que vu de l'extérieur, c'est impossible à deviner.
En PJ un essai avec dans chaque feuille MQTxx :
et en module :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
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.
donc coup a chaque foi que j'ai des données je doit mettre le codage VBA ou bien c'est déjà automatiserOui, mais là, sans VBA c'est difficile.
Pour le coup, je ne sais pas faire.
d'accord merci bcpEssayez !
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 )