XL 2013 souci d'affichage des additions

[clyde88]

Bonjour,

S'il vous plait je suis a la recherche d'une aide précieuse je suis entrain de crééer une feuille de calcul excel en language vba et j'arrive pas afficher dans chaque cellule le résultat de l'addition sachant que j'additionne avec un nombre de pas de 0.5 en démarrant d'un certain nombre comme le montre le tableau ci-dessous je vous envoie aussi mon programme et merci pour votre aide.

Sub itération()

Dim Ninf, profondeur, longueurpieu As Single

Dim cell As Range

Dim x As Integer

Range("G2").Select

ActiveCell.FormulaR1C1 = "=RC[-2]"

Ninf = Range("E2")

longueurpieu = Range("F2")

profondeur = longueurpieu + 0.5

If profondeur > longueurpieu Then

profondeur = longueurpieu

Else: profondeur = profondeur + 0.5

End If

Range("G3") = profondeur

End Sub

 

[vgendron]

Hello
je n'avais pas oublié, mais étais pris sur autre chose
en D4

=INDEX(B11:D13;EQUIV(B1;A11:A13;0);EQUIV(C4;B10:D10;0))

et en E4

=INDEX(F11:H13;EQUIV(B1;E11:E13;0);EQUIV(C4;F10:H10;0))

 

[clyde88]

Merci c'est gentille

 

[clyde88]

salut mec stp j'ai vraiment besoin d'aide dans mon programme

je voudrais qu'il m'affiche tout les valeurs de pl qui sont entre d-hd et d et qu'il fasse la soustraction de la premiere valeur de z superieure a (d-hd) après il continue avec le z des couche merci pour ton aide

 

[vgendron]

Ton fichier est corrompu. je ne peux pas l'ouvrir

 

[clyde88]

stp j'ai un probleme d'execution 91 et il me souligne ce code

j = Range("H6:H65000").Find(x, lookat:=xlWhole).Row

j'ai essayé un calcul avant ça a marché et quand j'ai relancé un autre ça m'affiche erreur d'execution 91

 

[clyde88]

salut l'ami stp tu peux verifier mon programme stp et j'ai envie qu'il fonctionne pour 1 et 2 couches

Merci

 

[vgendron]

Hello !
En ce retour de vacances. voici ton fichier en retour.
avant de comprendre ce qui ne va pas et le corriger. il faudrait purger tes macros..
Enormement de code inutile
ex: with sheets...
et juste en dessous. sheets.select..
l'interet du with réside justement dans le fait qu'on n'a pas besoin de faire du select..

j'ai commencé à purger jusqu'au module 7 - reste plus que les modules 8 et 9

 

[clyde88]

Merci c'est très gentil

 

[vgendron]

Voila la rev 6
j'ai purgé toutes tes macros..
beaucoup de select inutiles, ainsi que des boucles, des filldown "redondants".. etc etc
et j'ai nommé les modules histoire de s'y retrouver un peu mieux..

maintenant.. j'ai tout reseté.. donc..relance tes tests avec des valeurs qui vont bien. et dis moi où ca ne va pas. et ce qu'il faut changer.

De plus.. il y a apparemment deux macros qui ne sont jamais appelées..?
NextVersRb et DefinirLaCatégorieDuPieuPourLesCoefficeints

 

[clyde88]

oui exactement parceque avant je les ai fait mais pour but estétique j'ai annulé ces deux macros

 

[clyde88]

salut l'ami y a juste un petit souci quand je veux lancé le programme pour une couche ça ne marche pas y a un beugue

 

[vgendron]

l'ennui, c'est que je ne sais pas dans quel ordre tu cliques sur les boutons.
pas plus que les infos que tu écris AVANT de cliquer sur chaque bouton..

et l'utilisation des Cells(5,6) au lieu de range("F5") n'aide pas à la compréhension..
et à mon avis. c'est de la que vient ton pb.. car
dans la macro "Calcul des pieux", au moment où tu détermines la valeur h (range ("I3") = cells (3,9)
il doit y avoir une erreur dans les indices: regarde le commentaire que j'ai mis
j'ai remplacé NbreCouche+4 par NbreCouche + 5
dans le cas ou il n'y a qu'une seule couche NbreCouche=1) ca buggait car ca venait chercher une valeur en D5 (1+4). HORS. en D5, c'et du texte.. donc bug

par contre, quand il y a au moins 2 couches.. ca vient chercher à partir de D6.. mais. est ce que dans ce cas. tu es sur de venir chercher la bonne info..?

 

[vgendron]

Regarde les modifs que j'ai apportées dans la macro "Calcul des pieux"
j'ai remplacé tous les cells(....) par des range("")
c'est plus facile pour s'y retrouver et vérifier que les formules sont bonnes

je te laisse faire de meme pour la macro des calculs des micro pieux.
je pense qu'avec ca. tu devrais pouvoir détecter le pb

 

[vgendron]

autre point d'amélioration. qui permettrait d'alleger tes macros.
lorsque tu mets en forme certaines cellules pour indiquer qu'il faut les saisir..
il suffirait d'appliquer un style aux cellules..
ex

    With .Range("A3:B3").Interior 'on colore pour signaler qu'il faut saisir l'info
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With

pourrait se réduire à UNE ligne

Range("A3:B3").Style = "60 % - Accent1"

 

[vgendron]

bon voila. j'ai encore purgé un peu. avec toutes les cells qui sont devenues des range
et surtout Toutes les mises en forme inutile
Pour effacer des cellules. plutot que de faire un filldown à partir de la ligne du dessous.. il suffit de faire un ClearContents (ce qui n'efface QUE le contenu.. donc plus besoin de refaire la mise en forme)
ou alors un Clear. ce qui efface tout. contenu ET mise en forme

dans le module 1, j'ai laissé la ligne de code pour mettre en bleu (style accent) ou en vert (style "satisfaisant")