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