Transfert de ligne d une feuille à une autre sous conditions

  • Initiateur de la discussion Initiateur de la discussion mimy
  • Date de début Date de début

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 !

mimy

XLDnaute Occasionnel
Bonjour à tous,

Je voudrais savoir comment transférer des données d une feuille à une autre, évidemment sous certaines conditions. Je m explique:

j ai dans les colonnes de la feuille1 :

quantité---prix d achat---dernier cours---devise---profit en %
500________100_________102__________USD_____ -16%

Dans la feuille 2 j ai un tableau de devise:
EUR______1
USD______1.33

Ce que je voudrais faire dans la feuille 3 c'est :
si pour chaque ligne de ma feuille 1, j ai un profit <= -15%
et/ou si [(dernier cours-prix d achat)*quantité/valeur de la devise de la feuille2] <= -150 000
je transfère la ligne entière dela feuille1 dans la feuille3.

Pour cela je voudrais faire une macro grâce à un bouton
Je vous remercie beaucoup!!!
 
Dernière édition:
Re : Transfert de ligne d une feuille à une autre sous conditions

Bonsoir @ tous,
Je t'ai fait une solution par Formule en en attendant une par Macro.
Pour,
et/ou si [(dernier cours-prix d achat)*quantité/valeur de la devise de la feuille2] <= -150 000
je t'ai fait le test sur l'onglet 1, mais j'ai pas comrpis que veux tu dire ...
Un fichier plus riche va nous aider a bien comprendre la question.
Amicalement
 

Pièces jointes

Re : Transfert de ligne d une feuille à une autre sous conditions

Bonjour Rachid_0661,

Merci beaucoup d'avoir lu mon sujet. J ai rajouté des choses dans le fichier excel, j espère que ca t 'aidera à comprendre ce que je veux faire.
 

Pièces jointes

Re : Transfert de ligne d une feuille à une autre sous conditions

re,

J ai commencé à bidouller un petit truc mais ca n affiche qu une seule valeur et je ne sais pas pourquoi.
Quand je lis pas à pas le code je vois qu on reconnait uniquement la valeur de la preéière ligne et pas des autres.

sub Transfert()

sheets("sheet1").select
dim i,j as integer

For i=1 to sheets("sheet1").Rows.Count
If Range ("F"&i).value<=(-15/100) Then
Range ("F"&i).EntireRow.Select
Selection.Copy
Sheets("sheet3").Select
Range("A"&i).Select
ActiveSheet.Paste
End if
Next

End Sub
 
- 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

Discussions similaires

Retour