remplir tableau 4 entrées

[verd]

Bonjour à tous

Je souhaite remplir le tableau qui se trouve dans la feuille "Résultats"
Je vois à peu près comment procéder, mais je ne suis pas très bon en VB.😛
Pour chaque cellule du tableau, il faudrait changer sur la feuille "Données" les valeurs de débit(B4), profondeur(B18), longueur(B16), et d(B13), lancer la macro Flux(et pertescharges pour un second tableau à remplir), et copier la valeur de la cellule G10 qui se trouve dans "régime transitoire" (copier la valeur de la cellule F22 de la feuille "Données" pour un second tableau).
Est-ce possible?
Désolé de ne pouvoir envoyer le fichier excel, même compressé, il fait 1Mo, je vous envoie donc uniquement la feuille qui contient le tableau...

Merci de votre aide

 

[ODVJ]

Re : remplir tableau 4 entrées

Bonjour,

proposition 1 :
tu remplaces ta macro Flux par une fonction à 4 paramètres et tu mets directement = mafonction_flux (Param1, Param2, Param3, Param4) dans chaque cellule de ton tableau résultats.

naturellement, il faut apprécier la complexité de tes macros avant d'entreprendre cette transformation.

Proposition 2 :
utilise l'enregistreur de macro avec les copier/coller qui vont bien, le calcul avec ta macro et le copier/coller retour vers ton tableau résultats.
ensuite, tu adaptes le code en l'intégrant dans 4 boucles

cordialement

 

[verd]

Re : remplir tableau 4 entrées

J'opte pour la proposition 2
Mais comment intégrer un indice de boucle à des noms de cellule?
Merci

 

[ODVJ]

Re : remplir tableau 4 entrées

Bonsoir,

d'après la structure de ta feuille :

le n° de colonne sera : =3+(Débit-70)*3/20+(d-0,1)*20
le n° de ligne sera : =8+(Profondeur-0,5)*2*4+(Longueur-20)/10

avec les boucles :

FOR Profondeur=0,5 to 3 step 0,5
FOR Longueur=20 to 50 step 10
FOR D=0,1 to 0.2 step 0,05
FOR Débit=70 to 150 step 20

Cordialement

 

[verd]

Re : remplir tableau 4 entrées

Bonjour,

J'ai essayé de faire ces boucles, voici le code que j'ai:

Sub tableau()
'
' tableau Macro
' Macro enregistrée le 28/07/2006
'

'
Dim profondeur As Double
Dim longueur As Double
Dim d As Double
Dim débit As Double
Dim li As Double
Dim col As Double
For profondeur = 0.5 To 3 Step 0.5
For longueur = 20 To 50 Step 10
For d = 0.1 To 0.2 Step 0.05
For débit = 70 To 150 Step 20
li = 8 + (profondeur - 0.5) * 2 * 4 + (longueur - 20) / 10
col = 3 + (débit - 70) * 3 / 20 + (d - 0.1) * 20
Selection.Copy
Sheets("Données").Select
Range("B4") = débit
Range("B13") = d
Range("B18") = profondeur
Range("B16") = longueur
Sheets("Régime transitoire").Select
Application.Run "'puits canadien.xls'!Graph6.Flux"
Range("G10").Select
Selection.Copy
Sheets("Résultats").Select
Range("li & col").Select 'erreur ici
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next débit
Next d
Next longueur
Next profondeur
End Sub

J'obtiens l'erreur d'éxécution 1004: la méthode 'Range' de l'objet '_Global' a échoué
Bonne journée

 

[ODVJ]

Re : remplir tableau 4 entrées

Bonjour,

essaye avec CELLS(li, col).SELECT plutôt qu'avec RANGE qui attend une adresse littérale genre "T13"

Au fait, ton premier SELECTION.COPY ne sert à rien me semble-t-il
Et met plutôt ton Sheets("Régime transitoire").Select après ton Run

A+

 

[verd]

Re : remplir tableau 4 entrées

Merci, ca marche bien sauf pour la colonne d=0,2; mais bon j'ai fixé d à 0,2 et j'ai supprimé la boucle pour remplir la colonne.
Merci encore et bon week-end