transfère de donnée de la feuille1 à la feuille2 avec des condit Fermé

Question

Bonjour  à vous tous,
je veus faire le tranfer de mes donées qui sont dans la feuille1 pour aller les mettre dans la feuille2 avec des conditions. 
je m"explique
-que soit transferer tout les donées de la ligne dont il ya une date  "ATA PAYS"et pas de date "ATA SITE"
-que soit tranferer tout les données de la ligne dont il ya une date "ATA PAYS" et une date "ATA SITE" dans ce cas que ses donées reste dans la feuille2 seulement pour  7jour après s'efface.
-que soit transferer tout les données de la ligne dont il ya une date "ETA" .
voir ci dessous un exemple du fichier.

http://cjoint.com/?3CpxKV2XW6n

Salutations



Configuration: Windows 7 / Internet Explorer 9.0

PHILOU10120 · Answer

Bonjour

Votre fichier modifié

https://www.cjoint.com/?3CqkBQXfz0P

Voir pour date en ETA je ne l'ai pas traité vu que toutes les ligne on une date ce qui reviendrait à tous copier coller si ce n'est pas le cas on peut ajouter une option

gbinforme · Answer

Bonjour à tous,
 
En fonction de la demande voici les macros correspondantes que j'ai comprises :

https://www.cjoint.com/c/CCqkX3rnXlA

Les lignes restent 7 jours en feuille 2 si 2 dates.

Vaucluse · Answer

Bonjour     
une proposition ici.     
tient compte à la fois des arguments suivants:     
date en ATA PAYS et pas de date en ATA SITE     
date en ATA PAYS et date en ATA SITE inférieure à date du jour en cours + 7 jours.   
date en ETA  
Les références de la liste ayant des dates en M et N disparaissent lorsque la date est dépassée de 7 jours.     
Sous réserve de bonne compréhension, l'interprétation de PHILOU étant différente?     

Le système donne un e liste continue en feuille 2     
La colonne  de la feuille 21 eut être masquée où sur une autre feuille. Il suffit que les formules qu'elle contient restent en ligne avec le tableau feuille 1     
en feuille 1, le champ en O10:O577est nommé code et le champ en A10:N577 est nommé Champ     

https://www.cjoint.com/c/CCqlsuAEEFQ  

Revenez si non conforme ou besoin de complément!    

A noter que j'ai modifié des données en feuille 1 pour traiter les cas de figures différents    

PHILOU pour info:     
une fois que vous avez trouvé les codes en A, il est inutile de "charger" le fichier avec des formules de calculs plus lourdes qu'une simple RECHERCHE puisque la référence est spécifique à chaque ligne     

crdlmnt     

Ps: je viens de changer le lien,  suite correction du fichier ,on va y arriver  
      
Errare humanum est, perseverare diabolicum

CUTUITIOJ · Answer

PHILOU10120 , 
je crois vous m'avez bien compris. 
Comme condition des ETA c'est: 
Que soit transferer toute la ligne dont il ya une date "ETA " à condition que "ATA" pays ="n/a" et " ATA" SITE ="n/a. 

En outre votre formule fait ressortir les données qui non pas de date "ATA SITE correct c'est ce que je voulais. 
Mais en plus de ça,ça doit faire ressortir les données qui ont une date ATA SITE :comme condition de ces données que celà soit annuler de la feuille2 si la date ATA SITE depasse 7 jours à compté du jour ou on met cette date.

CUTUITIOJ · Answer

Vaucluse,
votre tranfère prend toute les donées tu feuille1 et la ramène au feuille2 or c'est ça que je veus.
Voir ci-dessous ma
que soit transferer tout les donées de la ligne dont il ya une date "ATA PAYS"et pas de date "ATA SITE"
 -que soit tranferer tout les données de la ligne dont il ya une date "ATA PAYS" et une date "ATA SITE" dans ce cas que ses donées reste dans la feuille2 seulement pour 7jour après s'efface.
 -Que soit transferer toute la ligne dont il ya une date "ETA " à condition que "ATA" pays ="n/a" et " ATA" SITE ="n/a.

Vaucluse · Answer

Bonjour   

pour moi: une inversion de signe   
pour vous: votre premier message ne parle pas de N/A. ?  

en feuille 2 liste regroupée   
en feuille 3 liste avec les lignes en place   

au choix   
 https://www.cjoint.com/c/CCrhK0UEM41   
Ça devrait aller mieux 
note: l'édition ne prend pas en compte les lignes qui ont un cellule vide en M ou N  

A +    
Errare humanum est, perseverare diabolicum

PHILOU10120 · Answer

Bonjour

le fichier modifié

https://www.cjoint.com/?3CrkCzvY3p8

CUTUITIOJ · Answer

PHILOU,
le transfère est bon mais il reste une chose pour que ça soit parfait.
je m'explique.
-la formule ne transfère pas les donées dont il ya date ATA SITE.
EXEMPLE: si tu met la date du 17/03/2013 sur la ligne10 dans la colonne ATA SITE.
ça doit transferer tout les données.mais ces donées doivent s'effacer après 7 jours c'est à après le 24/03/2013.
sinon à part ça tout le reste est bon

CUTUITIOJ · Answer

VAUCLUSE,
votre formule ressous 100/100 mon problème ,
j'aimerai savoir puis-je supprimer la feuille2 puis la formule ne s'applique pas la dessus.

CUTUITIOJ · Answer

Vaucluse,
je vais proceder pour la feuille2,
Pouvez me dire comment introduire les formules dans mon nouveau fichier identique au fichier ci-dessus.

CUTUITIOJ · Answer

VAUCLUSE,
Voir ci-dessous le bon fichier.
Le transfère doit aller à la feuille4.
http://cjoint.com/?3Crr5bcOUGa

Vaucluse · Answer

Bien reçu, je vous regarde ça pour ce soir ou demain matin au plus tard.

On confirme bien les règles pour le transfert des informations: 

sont transférés:
les lignes qui ont une date en ATA pays et N/A en ATA site
les lignes qui ont une date en ATA pays et une date en ATA site pendant 7 jours après la date ATA site
les lignes qui ont une date en ETA et N/A en ATA pays et N/A en ATA site

Ok ??
à vous lire

CUTUITIOJ · Answer

VAUCLUSE,
voir la bonne règle ci dessous.
sont transférés.
-les lignes qui ont une date en ATA pays et N/A en ATA site
-les lignes QUI ONT UNE DATE EN ATA pays et une date en ATA site dans ce cas que ses donées reste dans la feuille4 seulement pour 7jour après s'efface. 
-Les  lignes qui ont une date en ETA et N/A en ATA pays et N/A en ATA site 
Salutations

CUTUITIOJ · Answer

vaucluse, 
le n° 28 deux fois est une erreur il faut supprimer le second
le n°32 deux fois est une erreur il faut supprimer le second

CUTUITIOJ · Answer

VAUCLUSE,
le 2e celui qui à le xxxx
le n° 32 AUSSI LE 2e

Vaucluse · Answer

Alors voila

 https://www.cjoint.com/c/CCrt6UziOXW

vérifiez bien que tout corresponde bien à ce que vous attendez et revenez si non conforme.

Pour information:
   _ les formules sont implantées dans les deux feuilles jusqu'à la ligne 600
   _ les champs,dans les formules sont affectés de ligne 10 à ligne 10000
   _ Si besoin il suffit de "tirer" les formules plus bas dans tout le tableau de la feuille 4
   _ la colonne de codage est la colonne BA sur la Feuil1. Elle ne doit pas être modifiée, mais les formules peuvent être "tirées" au dessous de 600 si besoin.
   _ La Feuil4 est protégée (sans mot de passe) . Pöur accéder à des modifications, clic droit sur le nom de l'onglet Feuil4 et choisir " ôter la protection".


Revenez si problème.
crdlmnt

CUTUITIOJ · Answer

VAUCLUSE, 
la formule est bonne mes à qoui sert la Feuil5,
maintenant j'essai de comprendre avec les seules formule "si"que le transfère a été possible oubien il ya une option execl qui fait ce transfère

CUTUITIOJ · Answer

VAUCLUSE, Lle transfère des ficher est bon donc je veut utilser une macro d'alerte pour ce fochier transfer. voir le Macro en dessous. Mais macro n'arrive pas a ressortir les fichiers transfere avec les condition que j'ai mis. veuillez m'aider s'il vous plait Private Sub Workbook_Open() On Error Resume Next mes = "RAPPORT POUR COLIS LIVRER :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW DATE LIVRAISON TRANSIT" & Chr(10) & Chr(10) Sheets("Feuil4").Select der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9 For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der nom = Cells(n, 3) ord = Cells(n, 9) abw = Cells(n, 4) dif = Date - Cells(n, 13).Value If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value <> "N/A" And dif < 8 And dif >= 0 Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3) & "" & " jours" & Chr(10) Next MsgBox (mes) mes = "RAPPORT POUR COLIS EN SOUS DOUANE :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW TRANSIT " & Chr(10) & Chr(10) Sheets("Feuil4").Select der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9 For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der nom = Cells(n, 3) ord = Cells(n, 9) abw = Cells(n, 4) If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value = "N/A" Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & "sous douane" & Chr(10) Next MsgBox (mes) End Sub .

Vaucluse · Answer

Bonjour, 

Pour ce qui est des feuilles, seules les feuilles 1 et 4 sont utiles dans le modèle. Les autres n'ont aucune information utile.

par contre, pour ce qui est des macros, ce n'est pas dans ma compétence... je ne connais que peu VBA et je ne peux pas vous aider.

Vous devriez retourner sur le forum pour y placer une nouvelle discussion sur ce sujet.
Ou alors si vous êtes inscrit comme membre, vous pouvez essayer de contacter gbinform en cliquant directement sur son pseudo dans le message qu'il vous avait laissé dans le même fil.

Dans le message ci dessous, cliquez sur son pseudo et "envoyer un message privé"

https://forums.commentcamarche.net/forum/affich-27374087-transfere-de-donnee-de-la-feuille1-a-la-feuille2-avec-des-condit#2

bonne route
crdlmnt

PHILOU10120 · Answer

Bonjour

Par formules j'ai eu un problème avec les date N/A il faut les mettre à zéro (00/01/00) car le teste des dates <à  7 jours ne peut pas s'éxécuter autrement.
Du texte + un nombre ça ne marche pas
Le zéro est la seul solution

Le lien du fichier

https://www.cjoint.com/?3Csls4yWwxA

CUTUITIOJ · Answer

Bonjour,  
oui ça marche mais ne prend pas en compte tout les données.essaie d'appliquer sur le tableau  que tu m'a envoié dans le fichier transféré feuille4. ça saute des donées que ça doit prendre en compte.

gbinforme · Answer

Bonjour à tous,
 
Voici le classeur avec la macro de contrôle modifiée selon la demande :

https://www.cjoint.com/c/CCujz0cpYqC

CUTUITIOJ · Answer

gbinforme,
exceptionnel,pouvez vous me dire comment tu as fait le petit d'affiche .

CUTUITIOJ · Answer

gbinforme,
J'ai essaié de refaire la petite affiche dans le macro .
chez moi ça met "erreur de compilation variable non definie "et en bleu "ivwreport" a la fin de la macro pouvez vous m'aider s'il te plait

CUTUOTIOJ · Answer

Bonjour gbinforme,
je vous remercie pour la leçon , je suis vraiment désolé.mes excuses.

Aimeriez vous m'aider à faire un bouton de recherche sur la listbox que vous avez cré.
J'aimerai si vous le voulez bien mettre ce bouton à côté du bouton Excel.
Sincères Salutations
Cutuotioj

CUTUOTIOJ · Answer

Bonjour gbinforme,
Vous tout à fait raison  et j'ai beaucoup aimé la façon dont vous avez utilisé pour me faire comprendre mon defaut c'est humain et respectueux.
Merci

CUTUOTIOJ · Answer

Bonjour gbinforme,
aimeriez vous me dire si je doit vous donner plus d'explication par rapport au bouton de recherhe listbox.

Salutations

CUTUOTIOJ · Answer

Bonjour gbinforme,
problème ressoulu à la perfection je vous remerci.
A+
CUTUOTIOJ

Transfère de donnée de la feuille1 à la feuille2 avec des condit

28 réponses

Discussions similaires