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

T

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
sylvanu
t.dort à dit:
Nlig = [Tdonnées].Rows.Count
Cliquez pour agrandir...
Vous avez essayer ma PJ ?
J'ai renommé les quatretableaux Tdonnées, Taccords, Tdésaccords, Tarchives.
testez et ça marche :
20230503_212134.gif
Trier par date Trier par votes
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour T.dort, et bienvenu sur XLD,
Un essai en PJ avec :
VB: 
Sub Archive()
    Application.ScreenUpdating = False
    Dim L%, C%
    Nlig = [Tdonnées].Rows.Count
    For L = Nlig To 1 Step -1
'NON
        If UCase([Tdonnées[Vente]].Item(L)) = "NON" Then
            If [Tdésaccords].Item(1, 1) = "" Then NligD = 1 Else NligD = 1 + [Tdésaccords].Rows.Count
            For C = 1 To 11
                [Tdésaccords].Item(NligD, C) = [Tdonnées].Item(L, C)
            Next C
            [Tdonnées].ListObject.ListRows(L).Delete
        End If
'OUI
        If UCase([Tdonnées[Vente]].Item(L)) = "OUI" And IsDate([Tdonnées[Date]].Item(L)) Then
            If [Taccords].Item(1, 1) = "" Then NligA = 1 Else NligA = 1 + [Taccords].Rows.Count
            If [Tarchives].Item(1, 1) = "" Then NligArchives = 1 Else NligArchives = 1 + [Tarchives].Rows.Count
            For C = 1 To 11
                [Taccords].Item(NligA, C) = [Tdonnées].Item(L, C)
                [Tarchives].Item(NligArchives, C) = [Tdonnées].Item(L, C)
            Next C
            [Tdonnées].ListObject.ListRows(L).Delete
        End If
'Incidents
        If UCase([Tdonnées[Vente]].Item(L)) = "" And IsDate([Tdonnées[Date]].Item(L)) Then
            [Tdonnées[Vente]].Item(L) = "Statut ?"
        ElseIf UCase([Tdonnées[Vente]].Item(L)) = "OUI" And IsDate([Tdonnées[Date]].Item(L)) = False Then
            [Tdonnées[Date]].Item(L) = "Date ?"
        End If
    Next L
End Sub
 

Pièces jointes

  • Classeur_vente.xlsm
    25.5 KB · Affichages: 4
Vote positif 0 Vote négatif
T

t.dort

XLDnaute Nouveau
sylvanu à dit:
Bonjour T.dort, et bienvenu sur XLD,
Un essai en PJ avec :
VB: 
Sub Archive()
    Application.ScreenUpdating = False
    Dim L%, C%
    Nlig = [Tdonnées].Rows.Count
    For L = Nlig To 1 Step -1
'NON
        If UCase([Tdonnées[Vente]].Item(L)) = "NON" Then
            If [Tdésaccords].Item(1, 1) = "" Then NligD = 1 Else NligD = 1 + [Tdésaccords].Rows.Count
            For C = 1 To 11
                [Tdésaccords].Item(NligD, C) = [Tdonnées].Item(L, C)
            Next C
            [Tdonnées].ListObject.ListRows(L).Delete
        End If
'OUI
        If UCase([Tdonnées[Vente]].Item(L)) = "OUI" And IsDate([Tdonnées[Date]].Item(L)) Then
            If [Taccords].Item(1, 1) = "" Then NligA = 1 Else NligA = 1 + [Taccords].Rows.Count
            If [Tarchives].Item(1, 1) = "" Then NligArchives = 1 Else NligArchives = 1 + [Tarchives].Rows.Count
            For C = 1 To 11
                [Taccords].Item(NligA, C) = [Tdonnées].Item(L, C)
                [Tarchives].Item(NligArchives, C) = [Tdonnées].Item(L, C)
            Next C
            [Tdonnées].ListObject.ListRows(L).Delete
        End If
'Incidents
        If UCase([Tdonnées[Vente]].Item(L)) = "" And IsDate([Tdonnées[Date]].Item(L)) Then
            [Tdonnées[Vente]].Item(L) = "Statut ?"
        ElseIf UCase([Tdonnées[Vente]].Item(L)) = "OUI" And IsDate([Tdonnées[Date]].Item(L)) = False Then
            [Tdonnées[Date]].Item(L) = "Date ?"
        End If
    Next L
End Sub
Cliquez pour agrandir...
Bonjour
je te remercie pour toute ton implication...mais..cela ne fonctione pas!
la macro m'envoie une erreur "Nlig = [Tdonnées].Rows.Count".. ??

j'aurais une peitie remarque:
la 1ière condition primordiale à remplir, est avant tout si A="oui" et B="". de la découlent toutes les autres conditions.
A="Non" n'intervient que si la 1ière condition est remplie.
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
t.dort à dit:
Bonjour
pfuii..vraiment désolé, mais la macro s'arrête au départ:
'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 ne comprends pas trop pourquoi
Cliquez pour agrandir...

si tu as fait un copier coller de la macro dans ton fichier, il faut enlever les espaces qu'il y a après "oui" dans ta colonne vente

sinon. bah.. elle s'arrete si il y a un oui et pas de date..
 
Vote positif 0 Vote négatif
T

t.dort

XLDnaute Nouveau
t.dort à dit:
Bonjour
pfuii..vraiment désolé, mais la macro s'arrête au départ:
'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 ne comprends pas trop pourquoi
Cliquez pour agrandir...
Rebonjour

j'ai générer un nouveau fichier excel et recopier toute ta macro:
1. je recois bien le message d'erreur
2. Maia la macro s'arrête à : 'Recopie de toutes les lignes dans la feuille archives
-> With Sheets("Archives").ListObjects("t_Archives")
 
Vote positif 0 Vote négatif
Cousinhub

Cousinhub

XLDnaute Barbatruc
Re-,
Comme ma petite intervention est passée inaperçue....
T.Dort, il est déconseillé de multi-poster... (Une simple lecture des chartes te l'aurait appris....)
Soit tu réponds à @chris dans l'autre forum, et tu clos le fil dédié, soit tu préviens que tu as demandé sur plusieurs forums...
Les personnes qui prennent le temps de te répondre n'ont peut-être pas que ton pb....
Bonne soirée
Edit, il est vrai que mon "Bonsoir", il suffisait de cliquer dessus....
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Question
XL 2016 identifier chaine de caractère dans une cellule et ramener une donnée d'une table de correspondance
Réponses
5
Affichages
240
pmid20
P
Z
  • Question
XL 2010 tableau pour comparer deux colonnes et écrire le résultat dans une troisième colonne
2
Réponses
28
Affichages
1 K
zephir94
Z
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
816
AlexiaC
A
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
126
GClaire
G
L
  • Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
2 K
Staple1600
Staple1600
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
721
c.branco
C
Gen Rose
  • Résolu(e)
Microsoft 365 Comparer deux colonnes et souligner les différences
Réponses
13
Affichages
926
Gen Rose
Gen Rose
E
  • Question
Microsoft 365 rapprocher deux fichiers grâce à une correspondance entre colonnes
Réponses
7
Affichages
325
sylvanu
sylvanu
M
  • Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
127
JHA
J
eric57
  • Résolu(e)
Autres 2007- Trie et classements de colonnes
Réponses
11
Affichages
440
job75
job75

Membres actuellement en ligne

9 membres et 80 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 104
Messages
2 085 346
Membres
102 868
dernier inscrit
JJV