Erreur(s) de fonctionnement Résolu/Fermé

Question

Bonjour, 

Après plusieurs essais de correction, je m'en réfère à vous.

Mon code ayant pour but :

- De comparer ligne par ligne le tableau de la feuille 3.
En fonction du Texte de la colonne C et de l'indice de la colonne D, d'incrémenter différentes cases de la feuille 1, voici le code créer :


 Sub graph()

Dim l As Integer 'Variable comparatrice'
Dim m As Integer ' Variable Tireuse'
Dim n As Integer ' Variable Rinceuse'
Dim o As Integer 'Variable pasteurisateur'


m = 0
n = 0
o = 0

For l = 3 To 100

If Range("C" & l) = "Tireuse" And Range("D" & l) = C Then 
 m = m + 1 

ElseIf Range("C" & l) = "Rinceuse" And Range("D" & l) = C Then 
 n = n + 1 

ElseIf Range("C" & l) = "Pasteurisateur" And Range("D" & l) = C Then
o = o + 1 

Worksheets("Global").Range("F3") = m
Worksheets("Global").Range("C3") = n
Worksheets("Global").Range("I3") = o


End If
Next
End Sub 

Ce code n'incrémentant pas les cases de la feuille 1.

Si quelqu'un voit le(s) problème(s),

Merci d'avance,
DGVDR

Configuration: Windows 7 / Firefox 16.0

f894009 · Accepted Answer

Bonjour,

Ce code n'incrémentant pas les cases de la feuille 1.

Vous parler de feuille1 et feuille3, mais dans votre code il y a seulement une feuille "Global". 

Donnez les infos: 
En fonction du Texte de la colonne C et de l'indice de la colonne D------>nom de la feuille

d'incrémenter différentes cases de la feuille 1,------>nom de la feuille

merci

Heliotte · Answer

Bonjour DGVDR,
Nulle part dans ton code tu ne t'adresse à la feuille 1 ou feuille 3 !
L'unique feuille à laquelle tu t'adresse est Worksheets("Global")

DGVDR · Answer

Merci à vous,

Suite à vos remarques j'ai modifié le code, sans succès... :

Sub graph()

Dim l As Integer 'Variable comparatrice'
Dim m As Integer ' Variable Tireuse'
Dim n As Integer ' Variable Rinceuse'
Dim o As Integer 'Variable pasteurisateur'


m = 0
n = 0
o = 0

For l = 3 To 100

If Worksheets("Enregistrements interventions").Range("C" & l) = "Tireuse" And Worksheets("Enregistrements interventions").Range("D" & l) = C Then 'Comparaison effectué sur la feuille 3'
 m = m + 1 '
ElseIf Worksheets("Enregistrements interventions").Range("C" & l) = "Rinceuse" And Worksheets("Enregistrements interventions").Range("D" & l) = C Then 'Comparaison effectué sur la feuille 3'
 n = n + 1
ElseIf Worksheets("Enregistrements interventions").Range("C" & l) = "Pasteurisateur" And Worksheets("Enregistrements interventions").Range("D" & l) = C Then 
o = o + 1 

Worksheets("Global").Range("F3") = m
Worksheets("Global").Range("C3") = n
Worksheets("Global").Range("I3") = o


End If
Next
End Sub



DGVDR

Erreur(s) de fonctionnement

3 réponses

Discussions similaires