Discussion :

[Tenebrah]

Bonjour,

Je débute dans le VBA et j'ai tenté de faire un "exercice" qu'on ma donné pour m'entrainer.

Alors voila j'ai une première suite de chiffre (en bleue) et une autre suite de chiffre (en verte). (voir capture)

Pour que ce soit plus simple la première liste je vais l'appeler la liste a (bleue) et la seconde la liste b (verte)

Je veux qu'il sélectionne le premier chiffre de la liste a et qu'il le multiplie successivement avec tous les chiffres de la liste b mais en réalisant une multiplication par cellule et faire la suivante en dessous de la précédente. (Voir capture du résultat attendu)

J'ai réalisé un code mais ça coince à un endroit et je ne comprends pas pourquoi. (voir code)

c'est peut-être tout bête mais je vois pas.

(Désolé si je n'ai pas fait ce qu'il fallait c'est la première fois que je poste sur le forum)

[halaster08]

Bonjour,

Plutôt qu'une capture d'écran, copie/colle ton code et utilise la balise code (bouton #), il manque aussi le descriptif de l'erreur.
Jouer avec les Activate est rarement une bonne idée, tu peux écrire dans une cellule sans l'activer.

[Tenebrah]

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
 
Sub Calcul_2()
Range("E11").Select
cmin = ActiveCell.Offset(-4, 0).Value
cmax = ActiveCell.Offset(-4, -1).Value
l1 = ActiveCell.Offset(-3, 0).Value
l2 = ActiveCell.Offset(-2, 0).Value
c1 = cmin
c2 = cmin
 
While c1 <= cmax
 
    While c2 <= cmax
    a = Cells(l1, c1) * Cells(l2, c2)
    ActiveCell.Offset(1, 0).Activate
    c2 = c2 + 1
    Wend
ActiveCell.Offset(-4, 1).Activate
 
c2 = cmin
c1 = 1
 
Wend
 
 
End Sub

D'accord du coup que me conseillez-vous ?

[Tenebrah]

Merci Mennhir et halaster08

Voici l'erreur qui apparait

Désolé je n'ai pas encore les bons réflexes

[halaster08]

cells(i,j) attend pour i et pour j des nombres entier, comme tu n'as pas défini tes variables (dim i as integer par exemple), Vba l'as fait a ta place, et il vu l'erreur il y a de forte chance qu'il se soit planter.

[Tenebrah]

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
 
Sub Calcul_2()
Range("E11").Select
cmin = Cells(7, 5).Value
cmax = Cells(7, 4).Value
Dim l1 As Integer
Dim l2 As Integer
Dim c1 As Integer
Dim c2 As Integer
l1 = Cells(8, 5).Value
l2 = Cells(7, 5).Value
c1 = cmin
c2 = cmin
 
While c1 <= cmax
 
    While c2 <= cmax
    ActiveCell.Value = Cells(l1, c1).Value * Cells(l2, c2).Value
    ActiveCell.Offset(1, 0).Activate
    c2 = c2 + 1
    Wend
ActiveCell.Offset(-4, 1).Activate
 
c2 = cmin
c1 = 1
 
Wend
 
 
End Sub

Hum ... je viens de définir les valeurs l1 l2 c1 et c2 comme des entiers mais l'erreur est toujours là.
Je m'y suis mal pris je suppose ?

Cependant je viens de noter qu'il a bien multiplié le premier terme de la liste a à tout ceux de la liste b les uns à la suite des autres mais après il s'est stoppé

[Menhir]

Deux remarques liminaires :
Quand tu mets ton code dans un message, fais une copie texte (avec des balises CODE) plutôt qu'une image parce qu'on ne peut pas reprendre ton code pour le corriger.
Deuxièmement, "ça coince", ce n'est pas très explicite comme description : est-ce que l'exécution génère un message d'erreur (et, dans ce cas, lequel) ? Est-ce que le résultat est différent de ce que tu souhaites ?

Une remarque sur ton code : pourquoi jouer uniquement avec des ActiveCell.Offset ?
Ne serait-il pas plus simple de donner directement les adresses de cellules ?
Par exemple, pour le début de ton code :

Code :

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

1
2
3
4
cmin = Cells(7, 5).Value
cmax = Cells(7, 4).Value
l1 = Cells(8, 5).Value
l2 = Cells(7, 5).Value

Pour ce qui est de ton problème, la première chose à vérifier, c'est les valeurs contenues dans les variables.
Regarde dans la liste des variables locales les valeurs contenues dans l1, c1, l2 et c2.

[Menhir]

D'accord du coup que me conseillez-vous ?

Pour ce qui est de ton problème, la première chose à vérifier, c'est les valeurs contenues dans les variables.
Regarde dans la liste des variables locales les valeurs contenues dans l1, c1, l2 et c2.

[Menhir]

Voici l'erreur qui apparait

Regarde aussi le contenu des deux cellules concernées par la multiplication (en fonction du contenu des variables au moment du plantage).
Je n'ai pas de certitude mais je mettrais volontiers une pièce sur le probabilité qu'une des deux ne contient pas une valeur numérique (ce qui plante la multiplication).

Pourrais-tu faire une copie d'écran comme celle de ton premier message mais sur laquelle on voit les numéros de ligne et de colonne.
Parce que dans ton code, certaines variables sont renseignées par des contenu de cellules et sont ensuite utilisées comme coordonnées, ce qui semble étrange (mais est peut-être normal).

[halaster08]

Regarde aussi le contenu des deux cellules concernées par la multiplication (en fonction du contenu des variables au moment du plantage).
Je n'ai pas de certitude mais je mettrais volontiers une pièce sur le probabilité qu'une des deux ne contient pas une valeur numérique (ce qui plante la multiplication).

Si le problème est là, tu peux utiliser la fonction Cint pour forcer la conversion

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
 
Sub Calcul_2()
Range("E11").Select
cmin = Cells(7, 5).Value
cmax = Cells(7, 4).Value
Dim l1 As Integer
Dim l2 As Integer
Dim c1 As Integer
Dim c2 As Integer
l1 = Cells(8, 5).Value
l2 = Cells(7, 5).Value
c1 = cmin
c2 = cmin
 
While c1 <= cmax
 
    While c2 <= cmax
    ActiveCell.Value = Cint(Cells(l1, c1).Value) * cint(Cells(l2, c2).Value)
    ActiveCell.Offset(1, 0).Activate
    c2 = c2 + 1
    Wend
ActiveCell.Offset(-4, 1).Activate
 
c2 = cmin
c1 = 1
 
Wend
 
 
End Sub

Et pourquoi tu as C1=1 et pas C1 = C1+1

[Tenebrah]

Et pourquoi tu as C1=1 et pas C1 = C1+1[/QUOTE]


Parce que c'est un gros oublie de ma part ... je vais essayer avec ce que tu m'as dit