Discussion :

[Pascaltech]

Bonjour,

Je suis débutant-1 en programmation de macro.

Je souhaite faire évoluer 2 variables, indépendamment l'une de l'autre et l'une après l'autre, dans une formule et enregistrer tous les résultats obtenus. Par exemple, pour simplifier :

V1 + V2 = R

Faire varier V1 de 1 à 9
Faire varier V2 de 1 à 9

Enregistrer l'ensemble des résultats obtenus R et les valeurs de V1 et V2 correspondantes, pour chaque valeur de V1 et V2.

Merci de votre aide.

Pascal

[eric4459]

Bonjour,
Essayes ce 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
Sub Calcul_Valeur_R()
Dim wksht As Worksheet
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim R As Range
Dim V1 As Range
Dim V2 As Range
Set wksht = ThisWorkbook.Sheets("Feuil1")
Set R = wksht.Range("A2")
Set V1 = wksht.Range("B2")
Set V2 = wksht.Range("C2")
k = 0
For i = 1 To 9
    For j = 1 To 9
        R.Offset(k, 0) = i + j
        V1.Offset(k, 0) = i
        V2.Offset(k, 0) = j
        k = k + 1
    Next j
Next i
 
End Sub

Sur ton premier onglet en A1 tu écris "Valeur de R" en B1 "Valeur de V1" et en C1 "Valeur de V2"

Eric

[Pascaltech]

Bonjour Eric,

Je te remercie pour ta réponse rapide. J'essaie et je te recontacte.

Je ne vois pas la fonction pour enregistrer la liste des valeurs obtenues de R.

Pour l'exprimer différemment, je souhaite extraire la valeur de R à chaque boucle du programme sur i et j.

Cette fonction doit se situer en ligne 19, je pense, avant k = k + 1 ?

Je ne vois pas comment écrire les valeurs de R dans des cellules différentes. C'est sûrement très simple. Je me forme mais je suis impatient d'obtenir la solution.

Merci.

Pascal

[eric4459]

Bonjour Pascal

Je ne vois pas la fonction pour enregistrer la liste des valeurs obtenues de R.

La liste des valeurs de R est définie par

Code :

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

R.Offset(k, 0) = i + j

Lorsque k va s'incrémenter le résultat apparaîtra en colonne A, tout d'abord en A2 puis en A3, A4 etc..

Pour l'exprimer différemment, je souhaite extraire la valeur de R à chaque boucle du programme sur i et j.

Que veux-tu dire par là?
En colonne A tu aura le résultat, en colonne B la valeur de i( de 1 à 9) et en colonne C la valeur de j (de 1 à 9)
Eric

[Pascaltech]

Bonjour Eric,

Merci pour ta réponse.

Tel que tu me le présente ( résultats de R dans la colonne A) cela me convient. Ne tiens pas compte de ma deuxième demande, elle est redondante.

J'ai saisi le programme que tu m'as proposé, et la fonction Worksheet n'est pas reconnu. J'ai essayé avec Spreadsheet, fonction qui est utilisée dans les différents exemples que j'ai trouvé, et cela ne marche pas non plus.

J'utilise Calc de Apache OpenOffice V4. Peux-tu me confirmer que ton programme est compatible.

Merci,

Pascal

PS : je n'ai pas internet chez moi, alors je ne suis pas très réactif.

[eric4459]

Bonjour,
Je n'utilise pas ce tableur, il se peut donc qu'il y ait incompatibilité.
Regardes ceci, tu y trouveras peut-être ton bonheur
https://www.openoffice.org/fr/Docume...ht01_basic.pdf

http://silkyroad.developpez.com/VBA/PiloterOpenOffice/

Eric

[Pascaltech]

Bonjour Eric,

Merci pour ta réponse.

le site www.openoffice.org est ma base d'information. Je n'ai pas encore trouvé de bibliothèque exhaustive des commandes. Je crois que c'est assez astronomique.

Je n'ai pas pensé à poser ma question sur ce site. C'est ce que je vais faire.


Cordialement,

Pascal

[kiki29]

Salut, la place de ce post serait là

[Pascaltech]

Bonjour Kiki,

Et merci. Je suis désolé, je n'ai vu cette section.

Pascal.

[Pascaltech]

Le code solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Calcul_Valeur_R()
Dim oSheet As Object
Dim i As Integer, j As Integer, k As Integer
   oSheet = ThisComponent.Sheets("Feuille1")
   k = 0
   For i = 1 To 9
      For j = 1 To 9
         oSheet.getCellByPosition(0,2+k).value = i + j
         oSheet.getCellByPosition(1,2+k).value = i
         oSheet.getCellByPosition(2,2+k).value = j
         k = k + 1
      Next j
   Next i
End Sub