Un copier/coller difficile!!!!!

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 !

vinzenty

XLDnaute Nouveau
Bonjour à tous,
Cela fait 5 jours que je me prend la tête la dessus!!!

Je m'explique,
je souhaite que lorsque je retire de mon stock (onglet "consommable with cure date" click sur "qty") une reference x, celle ci vienne se coller directement dans l'onglet "in line" ainsi que les infos batch, cure date, qté retiré de la ref correspondante.

Je suis pas vraiment un expert en macro et la je surf de bug en bug!!!😕

merci de votre aide
 

Pièces jointes

Re : Un copier/coller difficile!!!!!

Merci Pierrejean,

Après un petit ajustage j'ai exactement ce que je voulais.
Mais je vais abuser de ta bonté.

Pour finaliser ce fichier, j aimerais que lorsqu une ligne s'ajoute dans la feuille "in line", la ligne portant la meme référence, si elle s'y trouve, s'efface (de manière a ne pas avoir de doublon).

Merci de coup de pouce

A+
 

Pièces jointes

Re : Un copier/coller difficile!!!!!

Je me suis aussi posé la question....

Mais cela n'est pas vraiment dangereux car si je sors un produit de mon stock pour le mettre sur la chaine, cela signifie indirectement que mon produit en chaine en cours est terminé.
La quantité dispo dans l atelier n'est jamais supérieur à 1 (pour le moment...)
 
Re : Un copier/coller difficile!!!!!

Je me suis aussi posé la question....

Mais cela n'est pas vraiment dangereux car si je sors un produit de mon stock pour le mettre sur la chaine, cela signifie indirectement que mon produit en chaine en cours est terminé.
La quantité dispo dans l atelier n'est jamais supérieur à 1 (pour le moment...)
 
Dernière édition:
Re : Un copier/coller difficile!!!!!

Merci bcp Pierrejean pour ta réactivité.

Peux-tu m expliquer un peu cette commande car je ne trouve pas la logique:

For n = derlin To 2 Step -1
If .Range("A" & n) = Label4 Then
.Rows(n).Delete
End If
Next n


Cela me permettra de le faire moi même la prochaine fois.

A+
 
- 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
Retour