IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

trouver des valeurs


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Septembre 2006
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Septembre 2006
    Messages : 446
    Par défaut trouver des valeurs
    bonjour a tous, moi j'ai trois feuilles :
    feuil1 Achat où dans la colonne A sont listés tous les articles achetés
    feuil2 Vente où dans la colonne A sont listés tous les articles vendus
    feuil3 je voudrais afficher tous les articles que j'ai pas vendu, à travers un bouton.

    comment je peux faire?

    merci

  2. #2
    Membre Expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 475
    Par défaut
    Bonjour,

    Voici un jet (déjà vu qq part) à lier à ton bouton (les résultats arrivent dans la colonne B)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Sub Absent_Feuille_Vente()
     
    Dim PlageAchat As Range, PlageVente As Range
    Dim Tablo1, Tablo2, Plag3 As Range
    Dim A As Long, B As Integer, C As Long, D As Integer
    'si 100 lignes de comparaison
    Set PlageAchat = Sheets("Achat").Range("A1:A100")
    Set PlageVente = Sheets("Vente").Range("A1:A100")
    Set Plag3 = Sheets("Vente").Range("B1") 'début de plage de réception des différences
    'comparaison des plages
    If PlageAchat.Rows.Count <> PlageVente.Rows.Count Then
    MsgBox "Les plages à comparer ne sont pas identiques"
    Exit Sub
    End If
    Range("B1:B100").ClearContents 'efface la plage de réception
    Tablo1 = PlageAchat: Tablo2 = PlageVente: D = 1
    Application.ScreenUpdating = False
    For A = 1 To UBound(Tablo1, 1)
    For B = 1 To UBound(Tablo1, 2)
    If Tablo1(A, B) <> Tablo2(A, B) Then
    C = C + 1
    Plag3(C, D) = Tablo1(A, B)
    End If
    Next
    Next
    End Sub

  3. #3
    Membre éclairé
    Inscrit en
    Septembre 2006
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Septembre 2006
    Messages : 446
    Par défaut
    pourquoi j'ai deux sub? il s'affiche un erreur: il manque un end sub mais je sais pas eu
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    Private Sub CommandButton1_Click()
    Sub Absent_Feuille_Vente()
     
    Dim PlageAchat As Range, PlageVente As Range
    Dim Tablo1, Tablo2, Plag3 As Range
    Dim A As Long, B As Integer, C As Long, D As Integer
    'si 100 lignes de comparaison
    Set PlageAchat = Sheets("achat").Range("A1:A100")
    Set PlageVente = Sheets("vente").Range("A1:A100")
    Set Plag3 = Sheets("vente").Range("B1") 'début de plage de réception des différences
    'comparaison des plages
    If PlageAchat.Rows.Count <> PlageVente.Rows.Count Then
    MsgBox "Les plages à comparer ne sont pas identiques"
    Exit Sub
    End If
    Range("B1:B100").ClearContents 'efface la plage de réception
    Tablo1 = PlageAchat: Tablo2 = PlageVente: D = 1
    Application.ScreenUpdating = False
    For A = 1 To UBound(Tablo1, 1)
    For B = 1 To UBound(Tablo1, 2)
    If Tablo1(A, B) <> Tablo2(A, B) Then
    C = C + 1
    Plag3(C, D) = Tablo1(A, B)
    End If
    Next
    Next
    End Sub
    End Sub

  4. #4
    Membre Expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 475
    Par défaut
    Efface mon

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sub Absent_Feuille_Vente()
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Private Sub CommandButton1_Click()
    'Sub Absent_Feuille_Vente() ==> c'est en trop
    Dim PlageAchat As Range, PlageVente As Range
    Dim Tablo1, Tablo2, Plag3 As Range
    Dim A As Long, B As Integer, C As Long, D As Integer
    'si 100 lignes de comparaison
    Set PlageAchat = Sheets("achat").Range("A1:A100")
    Set PlageVente = Sheets("vente").Range("A1:A100")
    Set Plag3 = Sheets("vente").Range("B1") 'début de plage de réception des différences
    'comparaison des plages
    If PlageAchat.Rows.Count <> PlageVente.Rows.Count Then
    MsgBox "Les plages à comparer ne sont pas identiques"
    Exit Sub
    End If
    Range("B1:B100").ClearContents 'efface la plage de réception
    Tablo1 = PlageAchat: Tablo2 = PlageVente: D = 1
    Application.ScreenUpdating = False
    For A = 1 To UBound(Tablo1, 1)
    For B = 1 To UBound(Tablo1, 2)
    If Tablo1(A, B) <> Tablo2(A, B) Then
    C = C + 1
    Plag3(C, D) = Tablo1(A, B)
    End If
    Next
    Next
    End Sub

  5. #5
    Membre éclairé
    Inscrit en
    Septembre 2006
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Septembre 2006
    Messages : 446
    Par défaut
    merci merci marche tres bien.....

  6. #6
    Membre éclairé
    Inscrit en
    Septembre 2006
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Septembre 2006
    Messages : 446
    Par défaut
    Bonjour, je voudrais savoir s'il est possibile utiliser ce code pour obtenir ce resultat:

    feuil1(personnes prise en charge) nom prenom date_naissance
    feuil2 (personnes prise en charge qui ont fais l'exam) nom prenom date_naissance
    feuil3 lister toutes les personnes (nom prenom date_naissance) qui ont été prise en charge mais qui n'ont pas fais l'exam.

    merci beaucoup

  7. #7
    Membre éprouvé
    Homme Profil pro
    Retraité
    Inscrit en
    Février 2012
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Février 2012
    Messages : 75
    Par défaut
    Bonjour
    feuil1(personnes prise en charge) nom prenom date_naissance
    feuil2 (personnes prise en charge qui ont fais l'exam) nom prenom date_naissance
    feuil3 lister toutes les personnes (nom prenom date_naissance) qui ont été prise en charge mais qui n'ont pas fais l'exam.
    Simple suggestion
    Pourquoi ne pas prévoir sur la feuil1 une colonne supplémentaire < qui ont fais l'exam > qui serait annotée par Ex . Ok et ensuite trier le tableau
    _______________
    Cordialement

Discussions similaires

  1. cherche a trouver des valeurs
    Par l1informatique dans le forum Général Python
    Réponses: 4
    Dernier message: 26/01/2014, 20h13
  2. [AC-2007] VBA trouver des valeurs comprises entre valeurs min et max
    Par botaenviro dans le forum IHM
    Réponses: 2
    Dernier message: 14/11/2013, 04h47
  3. Trouver des valeurs non uniques dans une table
    Par morbli dans le forum Langage SQL
    Réponses: 11
    Dernier message: 29/09/2011, 11h56
  4. [find] Trouver des valeurs dans un tableau de cellules
    Par Pierre845 dans le forum MATLAB
    Réponses: 5
    Dernier message: 22/01/2009, 10h52
  5. Trouver des valeurs dans un vecteur
    Par hollowdeadoss dans le forum MATLAB
    Réponses: 8
    Dernier message: 08/12/2008, 15h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo