Discussion :

[BOU59000]

Bonjour,

J'ai deux feuilles, une avec certaines informations dont des noms et des quantités (A) , une autre (B) est une sorte de feuille récapitulative.

Par exemple si A contient:
pomme 0,2
pomme 0,1
pomme 0,1

B contiendra
pomme 0,4

Voici un extrait de 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub DRIL_EST_UN()
 
Dim i As Integer
Dim j As Integer
Dim Cel As Range
Dim Cel2 As Range
Dim MaListe(10) As String
Dim Compteur As Integer
Dim SommeUn As Integer
 
 
Set Cel = Worksheets("Feuil5").Range("A12")
 
    For i = 1 To 10
        MaListe(i) = Cel.Offset(i)
    Next i
 
 
Set Cel2 = Worksheets("Feuil4").Range("A5")
Compteur = 1
 
While Cel2.Offset(Compteur) <> ""
Compteur = Compteur + 1
Wend
 
SommeUn = 0
 
 
    For j = 1 To Compteur
 
            If Cel2.Offset(j).Value = MaListe(1) Then
                SommeUn = SommeUn + Cel2.Offset(j, 8)
            End If
    Next j
 
    Cel.Offset(1, 3).Value = SommeUn
 
    End Sub

Et sa ne fonctionne pas
SommeUn reste toujours à 0
et la cellule Cel.offset(1,3) ne prends jamais aucune valeur, même pas 0

J'ai intercalé un MsgBox Cel2.offset(j, 8)
Et mon programme lit bien pomme = 0.02, puis 0.01 puis 0.01... Si le message box fonctionne, pourquoi le SommeUn ne s'incrémente t-il pas?

[Krovax]

Un integer est un nombre entier essaye de faire

Code :

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

1
2
3
4
5
6
 
dim i as integer
i=0.5
msgbox i
i=1.9
msgbox i

Toi tu reste toujour a 0
Essaye de mettre par exemple

Code :

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

Dim SommeUn As double

Un tuto qui te sera sans aucun doute utile
http://silkyroad.developpez.com/VBA/LesVariables/

[BOU59000]

Bonjour,

Désolé pour le temps de réponse

Oui tu as raison le problème venait effectivement des déclarations de variables

Merci de m'avoir orienté, et merci pour le lien