Microsoft 365 Comparer chaque cellule contiguë de deux colonnes, et les transférer

t.dort

XLDnaute Nouveau
Bonjour
je vous fais part de mon problème, en essayant dêtre le plus le plus circonscrit possible… Pfuii !

0. il y a 4 x onglets « Données » / « Accords » / « désaccords » / « Archives »
1. La colonne H / vente = "Oui" ou "Non" ou "en attente"
2. La colonne I / Date= «une date quelconque » ou est vide : exemple "10.04.23" ou est vide ""

3. Si H="Oui" et sa cellule contiguë I= " " … est vide, pas de date, (une seule des conditions est remplie)
3.1 alors message : "il manque une date de vente" et stopper VBA, ne rien faire

4. Si H= "Oui" et I ="avec une date" … (les 2 conditions sont remplies)
4.1 faire toujours un copier coller de toutes les lignes dans de l’onglet « Données dans l'onglet "Archives". les nouvelles données s’ajouteront en dessous ultérieurement
4.2 copier chaque lignes de H = « Oui » et I= « avec une date » séparément dans l'onglet "Accords" et effacer les lignes dans l'onglet "Données"
4.2 copier chaque lignes de la colonne H ="Non", dans l'onglet " Désaccords" et effacer les lignes dans l'onglet "Données"

Merci d’avance pour vos réponses
t.dort
 

Pièces jointes

  • Classeur_vente.xlsm
    23.8 KB · Affichages: 6
Solution
Nlig = [Tdonnées].Rows.Count
Vous avez essayer ma PJ ?
J'ai renommé les quatretableaux Tdonnées, Taccords, Tdésaccords, Tarchives.
testez et ça marche :
20230503_212134.gif

t.dort

XLDnaute Nouveau
je te prie vraiment de m'exuser, je suis en plein "stress", car je dois présenter le fichier demain matin, et j'avoue être parti bille en tête, en cherchant des aides sur tout le réseau.
milles excuses
Et ben, la moindre des politesses, réponds sur l'autre forum, tu as peut-être la solution???????
j'ai répondu dans l'autre forum !
et pour être honnête, j'aurai pu prendre prendre un autre pseudo!
encore merci de ton aide
je vais voir comment m'en sortir
t.dort
 

t.dort

XLDnaute Nouveau
Vous avez essayer ma PJ ?
J'ai renommé les quatretableaux Tdonnées, Taccords, Tdésaccords, Tarchives.
testez et ça marche :
Regarde la pièce jointe 1169511
j'ai essayé et la vba c'est arrété
'Control de saisie complète
With Sheets("Données").ListObjects("t_Données") 'avec la table "t_Données" de la feuille "Données"

je vous remercie tous pour votre collaboration
je fatigue et ne suis plus en mesure de comprendre les substilités
mercie encore
t.dort
 

Discussions similaires

Statistiques des forums

Discussions
312 158
Messages
2 085 831
Membres
102 997
dernier inscrit
sedpo