trouver des valeurs

Version imprimable

08/10/2012, 10h24
Daniela

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

Bonjour,

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

Code:

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

pourquoi j'ai deux sub? il s'affiche un erreur: il manque un end sub mais je sais pas eu

Code:

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

Efface mon

Code:

Sub Absent_Feuille_Vente()

Code:

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

08/10/2012, 12h48
Daniela

merci merci marche tres bien..... :ccool:
19/10/2012, 09h42
Daniela

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
19/10/2012, 14h06
Sogestion

Bonjour

Citation:

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