Discussion :

[pilounet54]

bonjour a tous
j'ai cette division mais a chaque fois j'ai le message d'erreur 11 ,division par zero ? mais toutes mes valeurs sont positive

je vous donne le code

Code :

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

1
2
3
 For i = 10 To 29
    Range("J34").Offset(0, i - 10).Value = Cells(j, i) + Cells(k, i) / Cells(10, 20) 
Next

j'ai bien essayer avec l'aide du net de mettre <>0 cela n'a pas l'air de fonctionner ou je le mets à la mauvaise place ?
pouvez vous m'aider merci

[antonysansh]

Bonjour pilounet54,

Il y a quoi comme valeur dans ta cellule [T10] (celle qui sert à la division) ?
Et comment sont declarés tes variables j et k ?

Sinon niveau syntaxe, Next i serait mieux.

[pilounet54]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim j As Integer
Dim i As Integer
Dim k As Integer 
 
j = 8
k = 33
 
For i = 10 To 29
    Range("J34").Offset(0, i - 10).Value = Cells(j, i) + Cells(k, i) / Cells(10, 20)
Next
 
 
End Sub

toutes les valeurs sont entières , sans virgule et toutes positives
s'il y a quelques chose que tu pense changer donne moi stp un tout

dans sa forme cela me convient malgré tout beaucoup
cordialement

[antonysansh]

Chez moi ce code marche très bien :

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 j%, i%, k%
 
j = 8: k = 33
 
For i = 10 To 29
    Debug.Print Cells(j, i)
    Debug.Print Cells(k, i)
    Debug.Print Cells(10, 20)
    Debug.Print Cells(j, i) + Cells(k, i) / Cells(10, 20)
    Debug.Print "---------------------"
    Range("J34").Offset(0, i - 10).Value = Cells(j, i) + Cells(k, i) / Cells(10, 20)
Next
 
End Sub

Ça dépend donc des valeurs de cellules, avec le debug.print tu vas pouvoir visualiser les calculs et savoir ou ça plante.
(Dans la fenêtre d'exécution Ctrl+G)

[joe.levrai]

Bonjour,

comme tu n'indiques pas à quelle(s) feuille(s) font référence tes cellules, VBA prend les cellules de la feuille active

le quiproquo ne vient pas de là ?

tu penses faire référence à la Feuil1 par exemple, mais comme c'est la Feuil2 qui est active, ton code pointe sur les cellules de Feuil2, où la cellule T10 est vide

[pilounet54]

cela plante uniquement si je rajoute cela

Code :

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

/ Cells(10, 20)

[antonysansh]

D'ou le fait qu'on te demande se que vaut la cellule [T10] et surtout dans quelle feuille,
test :

Code :

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

Msgbox Sheets("Nom de ta feuille").[T10].Value

[pilounet54]

le bouton est sur la feuille active mais c'est vrai je peux indiquer la feuille mais ce n'est pas cela qui plante c'est uniquement si je fais la division il y a une astuce que je ne connais pas ,pour qu'il fasse la division j'ai essayer de regarder le <>0 et le = esterreur mais je ne sais pas si c'est cela qu'il me faut peut être faire un test avant ?
cordialement

[antonysansh]

C'est une valeur secrète en [T10] ?

Le Debug.Print a donné quoi ?

[pilounet54]

D'ou le fait qu'on te demande se que vaut la cellule [T10] et surtout dans quelle feuille,
test :

Code :

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

Msgbox Sheets("Nom de ta feuille").[T10].Value

je viens de trouver grâce à vos explications merci à tous et bonne journée

[pilounet54]

C'est une valeur secrète en [T10] ?

Le Debug.Print a donné quoi ?

non ! non ce n'est pas une valeur secrète je travail sur un brouillon pour le mettre au propre après, la valeur en l'occurrence étais 5 mais je pointais effectivement sur une mauvaise cellule

Code :

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

Debug.Print

pointait sur cells 10,20 qui était vide
merci à tous bonne bonne journée