Discussion :

[hugues03]

Bonjour,

J'ai regardé pas mal sur le net, mais je ne trouve rien qui corresponde à ma recherche...

Je cherche par macro à lire dans mon TCD 2 colonnes et à comparer leur valeurs pour faire une conditionnelle. Je precise toutes les lignes sauf celle qui fait le sous total.

Par exemple si la valeur de la colonne A>5 et la valeur de la colonne B<75 alors message "Résultat non conforme".

Si quelqu'un a une idée?

Je ne sais pas si j'ai été assez clair?

Merci pour votre aide!

[DeaD78]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 1 To 10
 
    If Range("A" & i).Value > 5 And Range("B" & i).Value < 75 Then
        Range("C" & i).Value = "Résultat non conforme"
    End If
 
Next

Ici, j'ai pris le cas de ton exemple. Le résultat se retrouve dans la colonne C.

Tu peux préciser les lignes en dur comme je l'ai fait ici : de la ligne 1 à 10. Il te suffit alors de préciser la première et la dernière à comparer.

Bonne chance pour la suite.

[hugues03]

En fait, c'est plus compliqué...

Voici à quoi ressemble mon TDC:


Données
Colonne X |Colonne A |Colonne B|Colonne C
toto|8|13|57
tata|1|100|100
tutu|1|100|99
titi|1|1|95

Je voudrais venir dans la première ligne de la colonne A (en controlant qu'elle s'appelle bien Colonne A) et lire jusqu'à la dernière ligne et en même temps je compare la valeur qu'il y a dans la colonne C... Après si le resultat est mauvais je veux recuperer la valeur de la colonne x.

Je sais vous allez me dire que c'est tordu...

J'ai trouvé ça sur le net... Ca me permet de savoir quels champs j'ai dans Données

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
Sub tata()
 
Dim sho As String
 
For Each pvt In ActiveSheet.PivotTables
For i = 1 To pvt.ColumnFields.Count
 
sho = pvt.ColumnFields(i).Name
sho = sho & vbCrLf
 
For j = 1 To pvt.ColumnFields(i).PivotItems.Count
 
MsgBox (pvt.ColumnFields(i).PivotItems(j).Name)
 
Next j
Next i
Next pvt
 
End Sub

[bobinette33]

Es-tu certain de vouloir une macros pour cela?

Tu peux mettre une formule SI(ET(LIREDONNEESTABCROISDYNAMIQUE....)) avec tes conditions, tu auras seulement à changer des éléments pour pouvoir recopier ta formule pour tous ton tcd, ensuite tu fais un filtre automatique et tu sélectionnes tous tes "non conforme".

Regarde l'exemple en pièce jointe

[hugues03]

Oui il me faut absolument faire cette opération par macro, car mon application est une succession de macro.
Je connais cette fonction mais elle ne m'interresse pas.

Merci pour ton aide!

[bobinette33]

Ok alors tu peux mixer les deux, tu entre dans ta feuille la formule ensuite dans ta macro utilise

Range("F1:F10").Find("Résultat non conforme", lookat:=xlWhole)

Ce que va te renvoyer un objet range, ensuite tu adaptes à ta macro.

[hugues03]

J'ai reussi à faire qqchose mais pas ce que je veux...

Rappel de mon TCD:

+---ColonneA ---+---ColonneB---+---ColonneC---+---ColonneD---+
|------toto------|------6--------|----20---------|------80------|
|------tata------|------5--------|----44 --------|------67-------|

etc...

J'arrive à lire les valeurs jusqu'à la dernière ligne de ma Colonne A ainsi qu'à determiner le nombre exacte des lignes, mais ce que je voudrais faire maintenant c'est:

Je me place sur toto, je lis la valeur de la ColonneB et la valeur de ma ColonneD ensuite je fait ma conditionnelle (si ColonneB>5 et Colonne D<75 alors...), puis je me place sur tata et ainsi de suite...

Voici mon bout de code (j'ai pris un peu par tout sur le net...):

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
29
30
31
32
 
 
Sub Ctrl_QteTaux() 
 
Sheets("Feuil1").Select
 
'On compte le nombre de ligne dans le champ fournisseur
For Each pvt In ActiveSheet.PivotTables
MsgBox (pvt.PivotFields("Fournisseur").PivotItems.Count & " fournisseurs")
 
If pvt.PivotFields("Fournisseur").PivotItems.Count = 0 Then
MsgBox ("Pas de données trouvées...")
End If
Next pvt
 
'On vient lire les item dans le champ fournisseur
 
For Each pvt In ActiveSheet.PivotTables
 
For i = 1 To pvt.RowFields.Count
'MsgBox pvt.RowFields(i).Name
 
For j = 1 To pvt.RowFields(i).PivotItems.Count
MsgBox pvt.RowFields(i).PivotItems(j).Name
 
Next j
Next i
Next pvt
 
 
 
End Sub

En vous remerciant par avance pour votre aide

[zyhack]

Bonjour
récapitulatif

1ere demande

Par exemple si la valeur de la colonne A>5 et la valeur de la colonne B<75 alors message "Résultat non conforme".

2eme demande

Je voudrais venir dans la première ligne de la colonne A (en controlant qu'elle s'appelle bien Colonne A) et lire jusqu'à la dernière ligne et en même temps je compare la valeur qu'il y a dans la colonne C... Après si le resultat est mauvais je veux recuperer la valeur de la colonne x.

3eme demande

Je me place sur toto, je lis la valeur de la ColonneB et la valeur de ma ColonneD ensuite je fait ma conditionnelle (si ColonneB>5 et Colonne D<75 alors...), puis je me place sur tata et ainsi de suite...

pourrais tu être plus précis

si ColonneB>5 et Colonne D<75 alors... je fais quoi de la colonne C et de la colonne A?

[hugues03]

Salut zyhack,

Je ne touche pas mon TCD, c'est juste de la lecture de valeurs.
Je souhaite recuperer les valeurs de ma colonneA, colonneB, colonneD si elles sont non conformes pour les retravailler dans une autre macro...

[zyhack]

essaye ce code

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
 
Sub test()
Dim c As Range
With Sheets("Feuil1")
  For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If c.Offset(0, 1) > 5 And c.Offset(0, 3) < 75 Then
 
    MsgBox "Ligne " & c.Row & vbCrLf & _
           " ColA : " & c.Value & vbCrLf & _
           " ColB : " & c.Offset(0, 1).Value & vbCrLf & _
           " ColC : " & c.Offset(0, 1).Value & vbCrLf & _
           " ColD : " & c.Offset(0, 1).Value
    End If
  Next
End With
End Sub

en utilisant les références de cellule utilisé pour le message box tu peux facilement les récupérer et les utiliser ailleurs

[hugues03]

Merci de ton aide, j'ai fait un mixe de tout ça et ca fonctionne...
Maintenant je vais essayer de mettre les valeurs dans une listbox... Un nouveau challenge lol.

On peut dire que ce topic est clos.

Merci à tous pour votre aide!!!