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.

[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.

[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]

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.

[halaster08]

L'erreur est toujours sur la même ligne ?
Elle apparait dès la première itération?
Pourquoi n'as tu pas défini aussi cmin et cmax?

[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).

[Tenebrah]

Menhir :
l1 : 3 (car données de liste a sur ligne 3)
l2 : 5 (car données de liste a sur ligne 5)
c1 : 5 (car premier champs de la liste a sur la colonne E (5) et il va également servir d'incrémentation d'où le cmin qui est bloqué à 5 et le cmax qui va trouver la valeur la plus grande (ici 9))
c1 : 5 (car premier champs de la liste b sur la colonne E (5)t il va également servir d'incrémentation d'où le cmin qui est bloqué à 5 et le cmax qui va trouver la valeur la plus grande (ici 9))

j'ai vérifié grâce à des Msgbox et ceux sont bien les valeurs des variables

Halaster :

L'erreur apparaît sur la même ligne mais elle apparait après que la boucle While c2 soit fini c'est-à-dire à la première incrémentation du C1

je vais de ce pas définir Cmin et Cmax


Vous deux :

Merci pour votre patience je viens de commencer aujourd'hui le VBA et j'avoue que ça me dépasse pas mal ...

[Menhir]

j'ai vérifié grâce à des Msgbox et ceux sont bien les valeurs des variables

Un conseil : quand tu développes garde ouverte la fenêtre des variables locale (Menu Affichage > Fenêtre des variables locales).
Ca te permet, en cas de plantage, de consulter le contenu de chaque variable.

Autre conseil : Affiche la fenêtre d'exécution (Menu Affichage > Fenêtre Exécution).
Elle te permet, entre autre, d'afficher le résultat de Debug.Print qui est plus pratique que MsgBox pour afficher des données au fil du code.
https://msdn.microsoft.com/fr-fr/VBA...s/debug-object

[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]

Voici la capture.

Le format des deux termes à multiplier sont bien en format nombre.
ATTACH=CONFIG]330848[/ATTACH]

[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

[Tenebrah]

C'est bon avec le Cint s'est passé j'ai crée une variable a pour faire la multiplication puis j'ai mis la valeur de a dans la cellule active et ça a fonctionné parfaitement .

Merci encore pour tout et pour vos conseils.

[Menhir]

Comme c'est plus facile à écrire qu'à expliquer :

Code :

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

1
2
3
4
5
6
7
8
Sub Calcul_2()
Dim LigA As Long, LigB As Long
For LigA = 1 To 5
   For LigB = 1 To 5
      Cells(10 + LigA, 4 + LigB).Value = Cells(3, LigA + 4) * Cells(5, LigB + 4)
   Next LigB
Next LigA
End Sub

[unparia]

Bonjour Ami Menhir.
Comme le poisson ne se laisse pas taquiner (coefficient de marée trop faible), j'ai envie de taquiner ce que je peux taquiner (faute de grives ...)
Pourquoi effacer ce que l'on va écraser ?

EDIT : ah zut ! Raté ! Tu t'en es aperçu et a déjà corrigé pendant que je répondais ...

[Menhir]

Pourquoi effacer ce que l'on va écraser ?

Le réflexe du bon bricoleur : nettoyer l'établi des scories du travail précédent avant d'en commencer un nouveau.
Mais ici, ça n'aurait d'intérêt que si le nombre de valeur variait.

[unparia]

nettoyer l'établi des scories du travail précédent avant d'en commencer un nouveau

C'est particulièrement vrai et nécessaire pour certains travaux (surtout d'utilisation d'abrasifs de plus en plus fins)
Il y a toutefois des cas où la "pollution" engendre des "ratés" très prisés et beaucoup plus chers. Un exemple ? --->> certaines poteries au Rajasthan ...
Amitiés d'un bricoleur à l'autre.