Fonction dans Excel

Fonction dans Excel - Logiciels - Windows & Software

Marsh Posté le 23-05-2007 à 09:21:26    

Bonjour.
 
Je cherche à faire faire une action à excel sans y arriver ni trouver l'information. Peut-être est-ce simplement impossible...
 
Le cas de figure est simple: je voudrais dans un tableau, faire copier une partie de ligne et la faire coller dans un autre fichier si la valeur d'une cellule de cette ligne est differente de 0.
 
Par ex: 1ere colonne remplie de A1 à K1. Si la valeur de F1 est differente de 0, copier de A1 à C1 et F1 et coller ces cellules dans un autre fichier. Si la valeur = 0 ou rien, ne rien faire.
 
Est-ce possible?
 
Par avance, merci.


Message édité par ulx238 le 23-05-2007 à 09:22:59
Reply

Marsh Posté le 23-05-2007 à 09:21:26   

Reply

Marsh Posté le 23-05-2007 à 09:25:19    

Bonjour,
Aurais-tu un tableau avec des clients et une facture à complèter?
voir le 104506 dans Programmation
Cordialement
 
Si c'est pour un autre classeur, et non pas une autre feuille, faire recherche sur workbook dans la section programmation, il y a plein d'infos.


Message édité par seniorpapou le 23-05-2007 à 09:35:45
Reply

Marsh Posté le 23-05-2007 à 09:37:08    

Bonjour Seniorpapou et merci pour ta réponse.
 
Ce n'est pas de la facturation mais ça doit etre le meme principe. C'est un listing de demande de materiel sur 4 lieux avec 4 fournisseurs. Le tableau principal comporte les demandes générales avec les 4 fournisseurs (une feuille par lieu) et je voudrais pouvoir remplir automatiquement la demande par fournisseur ou n'apparaiterait que ce qui est demandé au fournisseur.
 
Je ne vois pas 104506 dans programmation.

Reply

Marsh Posté le 23-05-2007 à 10:12:47    

Re,
CE n'est pas la même chose.
 
mais est-ce que cela ne suffirait pas de faire un filtre automatique sur Fournisseur?
Cordialement
Edit:
J'ai retrouvé quelque chose dont tu dois pouvoir te servir en en prenant l'essentiel
 
 
Application.DisplayAlerts = False  
    ligneinser = Sheets("feuil2" ).Cells(65527, 1).End(xlUp).Row + 1  
    monarticle = "06-12-005"  
     
    Range("a1" ).AutoFilter Field:=1, Criteria1:=monarticle  
     
    Range(Cells(2, 1), Cells(65527, 1).End(xlUp)).Select  
    Selection.EntireRow.Copy  
    ActiveSheet.Paste Destination:=Sheets("feuil2" ).Cells(ligneinser, 1)  
     
           ActiveSheet.ShowAllData  
    Application.DisplayAlerts = True  
 
 
 


Message édité par seniorpapou le 23-05-2007 à 11:01:45
Reply

Marsh Posté le 23-05-2007 à 11:00:07    

Merci Seniorpapou.
 
Ce n'était pas tout à fait ce que je recherchais, mais cela peut en effet répondre à ma demande.
 
Cordialement idem.

Reply

Marsh Posté le 23-05-2007 à 11:06:51    

re,
je viens de faire un edit de mon message

Reply

Marsh Posté le 23-05-2007 à 11:58:57    

Oula, Ça à l'air plus complexe que mes connaissances actuelles me permettent de comprendre. Je me colle ton info quelque part et dès que j'en aurais le loisir, je bosse la dessus pour comprendre. En attendant, j'ai modifié mon fichier pour pouvoir le travailler aisément avec les filtres et je te remercie grandement pour l'intérêt que tu as porté à ma question.
 
Cordialement.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed