Discussion :

[jauffray]

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 :

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

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

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

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

[jauffray]

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 :

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

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

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

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
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) ?

[jauffray]

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

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

[unparia]

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 :

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