Simplification de code

Version imprimable

Bonjour,

je souhaiterais réduire mon code.
quelle fonction me permettrait de taper moins de ligne "identiques" ?
voici un petit bout de mon code.
j'ai une 30ène de lignes identiques à saisir et vérifier à chaque mise à jour.

merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    If Sheets("Supports").Cells(27, 7).Value / Sheets("Supports").Cells(26, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If
    If Sheets("Supports").Cells(29, 7).Value / Sheets("Supports").Cells(28, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If
    If Sheets("Supports").Cells(45, 7).Value / Sheets("Supports").Cells(44, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If
    If Sheets("Supports").Cells(47, 7).Value / Sheets("Supports").Cells(46, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If

16/11/2017, 14h34
joe.levrai

Bonjour,

afin de vérifier que les suites sont parfaitement logiques ... et comprendre le but de ton Goto, peux-tu poster l'intégralité de la procédure ?

en l'état actuel de ce que tu fournis, un simple Array {27,29,45,47} à parcourir pour boucler sur

Code:

If Sheets("Supports").Cells(Variable, 7).Value / Sheets("Supports").Cells(Variable - 1, 7).Value < 1.04 Then

Variable etant l'élément parcouru dans ton array

il manquait juste les 3 premières lignes

en gros :
- hgc est la hauteur d'une poutre
- j'impose une valeur à hgc
- je calcul la flèche de la poutre et sa contrainte sur ma feuille "Supports"
- les lignes IF.... servent à vérifier que la flèche et la contrainte sont en dessous de valeurs admissibles : valeur admissible / valeur réelle < 1.04
- si c'est faux, je boucle pour augmenter la hauteur hgc de 5 mm
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 hgc = 100 testgcb: Range("Q18").FormulaR1C1 = hgc If Sheets("Supports").Cells(27, 7).Value / Sheets("Supports").Cells(26, 7).Value < 1.04 Then hgc = hgc + 5 GoTo testgcb End If If Sheets("Supports").Cells(29, 7).Value / Sheets("Supports").Cells(28, 7).Value < 1.04 Then hgc = hgc + 5 GoTo testgcb End If If Sheets("Supports").Cells(45, 7).Value / Sheets("Supports").Cells(44, 7).Value < 1.04 Then hgc = hgc + 5 GoTo testgcb End If If Sheets("Supports").Cells(47, 7).Value / Sheets("Supports").Cells(46, 7).Value < 1.04 Then hgc = hgc + 5 GoTo testgcb End If

16/11/2017, 15h59
unparia
Bonjour
Déjà : utiliser la propriété FormulaR1C1 pour définir la valeur ) donner à une cellule est plus qu'abusif

Je ne comprends par ailleurs pas la logique (voire la finalité) de lignes de code du genre :
Code:

1 2 3 4 5 6 testgcb: Range("Q18").FormulaR1C1 = hgc If Sheets("Supports").Cells(27, 7).Value / Sheets("Supports").Cells(26, 7).Value < 1.04 Then hgc = hgc + 5 GoTo testgcb End If
qui ne peuvent que tourner en boucle pour toujours agir sur la valeur de toujours la même cellule :hola:
Qu'est-ce que c'est, que le "secret" d'un tel mécanisme type "Louis XVI" (où le dernier qui parle est celui qui a raison) ?
16/11/2017, 16h13
jauffray

Citation:

Envoyé par unparia

Déjà : utiliser la propriété FormulaR1C1 pour définir la valeur ) donner à une cellule est plus qu'abusif

je n'en connais pas d'autre. je débute

Citation:

Envoyé par unparia

Je ne comprends par ailleurs pas la logique (voire la finalité) de lignes de code du genre (...)
qui ne peuvent que tourner en boucle pour toujours agir sur la valeur de toujours la même cellule

c'est un peu le but ici
16/11/2017, 16h24
unparia

Citation:

je n'en connais pas d'autre. je débute

Je comprends que l'on débute. Mais lorsque l'on débute, il faut commencer par le début. C'est d'ailleurs ainsi (et pas autrement) que j'ai moi-même débuté.
Veux-tu donc s'il te plait commencer par consulter ton aide interne VBA pour y apprendre ce qu'est un objet Range et quels en sont les membres et propriétés et leur définition ?
Merci de le faire.

EDIT :

Citation:

c'est un peu le but ici

Ah bon ?
Dans ce cas (puisque l'on est dans la posture à la "Louis XVI"), parcours donc ta plage de bas en haut et arrête-toi au 1er trouvé ! Il sera forcément celui que tu trouve en dernier en parcourant de haut en bas :lol: