Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transferer avec conditions

  • Initiateur de la discussion Initiateur de la discussion mumuriton
  • 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 !

mumuriton

XLDnaute Occasionnel
Bonjour,

Voici ma demande :
Dans l'onglet "machine", lorsque qu'une date est renseignée dans l'une des 2 colonnes "Date retour" ou "date vente", la ligne complète disparaisse est aille dans l'onglet "clos".

Merci pour votre aide.
mumu
 

Pièces jointes

Re : Transferer avec conditions

Bonjour, à tester pour identifier les bugs.

Code:
Sub dégage_ligne()
i = 2
With Feuil1
While .Cells(i, 1) <> ""
If .Cells(i, 8) <> "" Xor .Cells(i, 9) <> "" Then
.Rows(i).Cut Feuil3.Cells(Rows.Count, 1).End(xlUp)(2)
End If
i = i + 1
Wend
.Columns(1).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=(xlUp)
End With
End Sub
 
Re : Transferer avec conditions

Bonjour mumu,

En PJ la copie de ton fichier modifié.

Une macro événementielle transfère la ligne automatiquement sur la feuille "clos" si une date est entrée en colonne H:I.

Des messages d'erreur s'affichent si une erreur de date survient.

Bon dimanche.

Cordialement.

Edit: suis à la bourre moi! Bonjour CPk, JCGL.
 

Pièces jointes

Re : Transferer avec conditions

Bonjour papounet jcgl mumu.

Non Papou, nullement à la bourre...Juste une heure ou deux :/
Mumu, JCGL à répondu pour moi du coup, et pardon de ne pas avoir été plus explicite. C'est une macro tache qui s'effectue lors d'un evenement programmé et qui traite de façon automatique ce que vous vouliez faire.
 
Re : Transferer avec conditions

Bonjour à tous,

La macro est faite dans le fichier joint par CPK
Insert une forme et Affecte la macro à cette forme par un clique droit sur la forme.

A+ à tous
 
- 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

Réponses
4
Affichages
283
Réponses
3
Affichages
215
Réponses
12
Affichages
776
Réponses
3
Affichages
574
Réponses
6
Affichages
301
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…