Difficultés pour réaliser une boucle

Version imprimable

Bonjour,

Je cherche de l'aide sur une macro dont voici ci-après le code.
a partir des données d'entrées, je veux faire une boucle qui me permet de calculer les sommes des certaines valeurs mais j'ai un bug. C'est pour un programme que je dois faire pour l'ecole de gébie civil.
merci pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function pontuellegenerale(l1, p() As Range, x() As Range, cote)
ub = UBound(p)          'nbre de valeur dans le tableau p()
npoint = UBound(xpos)   'nbre de valeur dans le tableau x()
For i = 1 To ub
p = p(i)
For j = 1 To npoint
xpos = x(j)
 
rotationgauche = p * xpos * (l1 ^ 2 - xpos ^ 2) / (6 * l1)      'calcul des rotations à gauche des différents p avec xpos associée
rotationgauche = rotationgauche + rotationgauche                'somme de l'ensemble des rotations à gauche
rotationdroite = -p * xpos * (l1 - xpos) * (2 * l1 - xpos) / (6 * l1)   'somme de l'ensemble des rotations à droite
rotationdroite = rotationdroite + rotationdroite                        'calcul des rotations à droite des différents p avec xpos associée
Next i
Next j
 
 
If cote = "g" Then
rotationpontuelle = rotationgauche
ElseIf cote = "d" Then
rotationpontuelle = rotationdroite
End If
pontuellegenerale = rotationpontuelle
End Function

04/01/2017, 20h52
unparia

Bonjour
Tu ne donnes pas vraiment envie de t'aider, tant du fait de tes imprécisions (tu parles par exemple d'un "bug" mais ne dis pas où il s'exprime), tu présentes un code sans le mettre entre balises code, etc ...
Et tu ne prends même pas (au moins) le temps de te relire, en commençant d'ailleurs par le nom de ta propre école ....
Personnellement, je vais m'arrêter à la plus grossière (et loin d'être l'unique) des énormités que je vois :

Code:

npoint = UBound(xpos) 'nbre de valeur dans le tableau x()

elle en dit à elle seule déjà trop long sur tes "approches" du développement et le sérieux que tu confères à ces approches.
Je te souhaite bonne chance, certes, mais également de commencer à t'y mettre avec plus de sérieux.
Mais ce n'est pas grave. Il ne s'agit après tout que de la note qui sera attribuée au devoir dont tu remettras une copie. Elle sera celle qui correspond à tes mérites. Tout est donc pour le mieux dans le meilleur des mondes.
04/01/2017, 21h33
laminedu63

bonsoir unparia,

désole pour les erreurs c'est vrai que c plutôt

Code:

npoint=ubound(x)

pour la relecture je relis ce que pense c'est toujours un défaut que j'essaie de corriger je ferais mieux la prochaine fois. j'avoue que je me borne plus à vouloir être plus explicite pour la compréhension qu'autre chose. alors je suis en école d’ingénierie mais en génie civil merci de m'excuser si je n'utilise pas le bon vocabulaire "developpeur" par exemple bug si ce n'est pas adéquat.

J'espére que tu trouveras le courage de m'aider malgré les imperfections de mon code. c'est en forgeant avec de l'aide qu'on devient forgeron comme on dit.

Désolé et merci de m'aider à m'améliorer dans la VBA. J'apprend aussi à me débrouiller avec mes maigres moyens.
04/01/2017, 21h48
unparia

Citation:

J'espére que tu trouveras le courage de m'aider malgré les imperfections de mon code.

il y en a trop et trop sérieuses

Citation:

c'est en forgeant avec de l'aide qu'on devient forgeron comme on dit

commence donc à forger. Tu n'as à ce stade même pas installé la forge.
04/01/2017, 22h44
laminedu63

j'ai fait cette fonction avec l'aide du cours sur le site ainsi que le conseil que tu m'avais donné sur le redim quant à ma question matrice que j'avais posée.
Ceci étant je ne vois pas les autres erreurs mais bon sans aide je ne pense pas y arrivé franchement.
Ne pensez pas que demander de l'aide parce qu'on se sent impuissant ou incapable de trouver mieux est chose facile. Sauf que quand on est pas dans son domaine de "prédilection" en ce qui me concerne c'est le génie civil on ne peut que compter sur l'aide et la compréhension des autres.

Vous en remerciant par avance des différentes aides sur mes oublies ou mes manquements avec vos tolérances à tous..
06/01/2017, 09h53
Menhir

Citation:

Envoyé par laminedu63

merci de m'excuser si je n'utilise pas le bon vocabulaire "developpeur" par exemple bug si ce n'est pas adéquat.

Ce que te reproche Unparia, ce n'est pas l'utilisation de ce terme mais de ne par dire à quoi ça correspond.
Quel est l'effet de ton bug ? Rien ne se passe quand tu lances le programme ? Le résultat est erroné ? La macro plante (sur quelle ligne et avec quel message) ? Excel plante ? L'ordinateur plante ?

Parler d'un "bug", c'est dire qu'il y a un problème sans dire de quel problème il s'agit.
Donc, tant que tu n'auras pas été plus explicite, personne ne pourra t'aider. Et ce n'est pas faire des "up" sans donner d'explications supplémentaires qui pourra faire progresser.

Sans compter que tu ne montres pas la ligne appelante de ta fonction.
Et comme tu ne déclares pas le type de la plupart des paramètres (ci de tes variables d'ailleurs), difficile de comprendre ce que tu veux faire.
06/01/2017, 10h06
unparia
Quand on voit :
- quelque-chose du genre
Code:

1 2 3 4 For i = ... For j = ... next i next j
on commence à prendre son élan
et
- quelque-chose d'autre du genre :
Code:

1 2 3 4 For ddd = 1 to 20 toto = "aa" toto = toto & toto next
on se sauve (c'est en tout cas ce que je fais) à toutes jambes.
Car ce n'est pas que l'écriture, qui fait là défaut, mais également la raison/logique (ou la réflexion, ou l'effort de réflexion, ou le soin ...).
Et ce n'est pas tout ...
Voilà.

Bonjour à toues et à tous,

Comme déjà dit et afin d'être plus explicite, je cherche de l'aide pour faire une macro qui doit à partir des données d'entrée p et x me calculer la rotation gauche ou droite suivant le cas (voir image excel ci-dessous)
Pièce jointe 232729
Les cases en jaune sont les données d'entrées. le résultat de ma fonction donne #valeur. c'est ce que j'appelle bug dans mon précédent pote désolé si ce n'est pas le mot exact je suis pas information je me débrouille.
Voila le bout de code que j'ai fait avec mes maigres connaissances et sur la base des tutoriels à ma disposition.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Function pontuellegenerale(l1, p() As Range, x() As Range, cote) ub = UBound(p) 'nbre de valeur dans le tableau p() npoint = UBound(x) 'nbre de valeur dans le tableau x() For i = 1 To ub p = p(i) For j = 1 To npoint xpos = x(j) rotg = p * xpos * (l1 ^ 2 - xpos ^ 2) / (6 * l1) 'calcul des rotations à gauche des différents p avec xpos associée rotationgauche = rotg + rotg 'somme de l'ensemble des rotations à gauche rotd = -p * xpos * (l1 - xpos) * (2 * l1 - xpos) / (6 * l1) 'calcul des rotations à droite des différents p avec xpos associée rotationdroite = rotd + rotd 'somme de l'ensemble des rotations à droite Next i Next j If cote = "g" Then rotationpontuelle = rotationgauche ElseIf cote = "d" Then rotationpontuelle = rotationdroite End If pontuellegenerale = rotationpontuelle End Function
SI quelqu'un peut maider à résoudre mon problème. Merci d'avance.
En variant et toujours pour réduire le nombre de valeurs d'entrée je pensais à entrer P et X en même temps dans une même variable mais c du luxe pour le moment je me contenterai de l'aide pour cette fonction déja.

Vous en remerciant tous.

07/01/2017, 14h23
EBRAG

Bonjour,

De ce que je lis, je dirais plutôt que

Code:

rotationgauche = rotationgauche + rotg 'somme de l'ensemble des rotations à gauche

et

Code:

rotationdroite = rotationdroite + rotd 'somme de l'ensemble des rotations à droite

Mais je n'ai probablement pas bien compris la question ?

http://garbe.joel.free.fr
07/01/2017, 16h28
laminedu63

Bonjour,

Le problème est que même si je met une seul valeur pour p et une seul valeur pour x ce qui fait que je n'est pas à calculer la somme j'ai toujours comme resulat pour la fonction #valeur.

Je ne sais vraiment pas d'ou vient le problème et j'avoue que c'est énervant. J'ai fait la même fonction en enlevant les boucles et je retrouve le résultat pour un seul P et un seul x.
Si quelqu'un veut bien me venir en aide ce serait super.
Merci d'avance

Si tu pouvais indiquer en clair la formule qui est inscrite dans la cellule où il y a #VALEUR, comment elle arrive ici qu'on pourrait progresser...

Car ton problème tel qu'expliqué est probablement clair pour toi, mais pas pour ceux qui te lisent. ton code ne permet pas de savoir ce qui se passe dans ton document ! Ou alors, envoie le classeur !

@ plus tard ?

Je pense avoir compris (enfin !)

Il semble que ce soit le "p" qui figure dans ta formule...

J'ai transformé ton code par celui-ci...

Code:

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
31
32
33
Public Function pontuellegenerale(l1, p As Range, x As Range, cote) As Double
Dim ub As Long
Dim npoint As Long
Dim oCellP As Range
Dim oCellX As Range
Dim xPos As Double
Dim rotationgauche As Double
Dim rotationdroite As Double
Dim rotationpontuelle As Double
 
For Each oCellP In p
 
  For Each oCellX In x
    xPos = oCellX
 
    rotationgauche = oCellP * xPos * (l1 ^ 2 - xPos ^ 2) / (6 * l1) 'calcul des rotations à gauche des différents p avec xpos associée
    rotationgauche = rotationgauche + rotationgauche 'somme de l'ensemble des rotations à gauche
    rotationdroite = -oCellP * xPos * (l1 - xPos) * (2 * l1 - xPos) / (6 * l1) 'somme de l'ensemble des rotations à droite
    rotationdroite = rotationdroite + rotationdroite 'calcul des rotations à droite des différents p avec xpos associée
  Next
Next
 
 
If cote = "g" Then
  rotationpontuelle = rotationgauche
Else
  If cote = "d" Then
    rotationpontuelle = rotationdroite
  End If
End If
 
    pontuellegenerale = rotationpontuelle
End Function

Dis-nous quoi et bonne soirée !

et au final, pour avoir le résultat décrit dans le message :

Code:

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
31
32
33
34
35
Public Function pontuellegenerale(l1, p As Range, x As Range, cote) As Double
Dim oCellP As Range
Dim oCellX As Range
Dim xPos As Double
Dim pPos As Double
Dim rotationgauche As Double
Dim rotationdroite As Double
Dim rotationpontuelle As Double
Dim i As Long
Dim j As Long
For Each oCellP In p
  i = i + 1
  j = 0
  For Each oCellX In x
    j = j + 1
    If j = i Then
      xPos = oCellX
 
      rotationgauche = rotationgauche + oCellP * xPos * (l1 ^ 2 - xPos ^ 2) / (6 * l1) 'calcul des rotations à gauche des différents p avec xpos associée
      rotationdroite = rotationdroite - oCellP * xPos * (l1 - xPos) * (2 * l1 - xPos) / (6 * l1) 'somme de l'ensemble des rotations à droite
    End If
  Next
Next
 
 
If cote = "g" Then
  rotationpontuelle = rotationgauche
Else
  If cote = "d" Then
    rotationpontuelle = rotationdroite
  End If
End If
 
    pontuellegenerale = rotationpontuelle
End Function

on doit s'approcher l=de la vérité ?

07/01/2017, 20h20
laminedu63

Un très très grand MERCI EBRAG,
franchement elle fonctionne parfaitement ta fonction.
J'ai bien compris la tienne je pense.

en tout cas un gros merci. tu me sauves la vie.