VBA: Boucle
lili
-
Macarons Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Macarons Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un probleme avec ma programmation dans VBA
j'ai besoin de récupéré des données des cellules d'excel et de m'en servir pour pouvoir faire ma boucle.
Sub Acier()
' Donnée à récupérée dans excel
P1.Value = Range("Données!I10")
P5.Value = Range("Données!I11")
acier = P1
'Donnée à récupéré dans excel
N_int.Value = Range("Module4!E8")
N_ext.Value = Range("Module4!E9")
E_int.Value = Range("Module4!E10")
E_ext.Value = Range("Module4!E11")
Do While (N_int < N_ext And E_int < E_ext Or P1 = P5)
acier = acier + 0.0005
Range("Données!I5").Value = acier
' On range la valeur de la cellule nommé acier dans la case correspondante et on fait une boucle par rapport à celle ci.
Loop
End Sub
Merci par avance et j'espere que c'est compréhensible.
lili
J'ai un probleme avec ma programmation dans VBA
j'ai besoin de récupéré des données des cellules d'excel et de m'en servir pour pouvoir faire ma boucle.
Sub Acier()
' Donnée à récupérée dans excel
P1.Value = Range("Données!I10")
P5.Value = Range("Données!I11")
acier = P1
'Donnée à récupéré dans excel
N_int.Value = Range("Module4!E8")
N_ext.Value = Range("Module4!E9")
E_int.Value = Range("Module4!E10")
E_ext.Value = Range("Module4!E11")
Do While (N_int < N_ext And E_int < E_ext Or P1 = P5)
acier = acier + 0.0005
Range("Données!I5").Value = acier
' On range la valeur de la cellule nommé acier dans la case correspondante et on fait une boucle par rapport à celle ci.
Loop
End Sub
Merci par avance et j'espere que c'est compréhensible.
lili
les valeur que l'utilisateur inscrit sur l'userform se range dans des cellule d'excel.
Une grosse partie de mon programme à été fait sur excel car les formule était simple.
Ce que j'aimerai faire c'est une incrémentation de la cellule acier de 0.005
Sachant que cette cellule a pour valeur minimum P1 et maximum P5
J'espere que mon besoin est un peu mieu expliquer..
la variable acier vaut P1 au départ ; faut-il l'incrémenter de 0.005 jusqu'à ce qu'elle atteigne P5
si oui alors:
Do While acier <= P5 acier = acier + 0.0005 Loop Range("Données!I5").Value = acierBonne suite ou A+
merci pour cette aide ça ma beaucoup aidé deja.
Nint, Next, Eint et Eext sont des textboxs (?) renseignées depuis Excel.
jusqu'a ce que Nint>Next et Eint>Eext veut dire que ces valeurs évoluent; mais comment ? manuellement?
alors est ce que pour chaque modification de Nint, Next, Eint ou Eext, il faudra incrémenter acier?
peut tu mettre un lien de ton fichier dans ton post de réponse, en utilisant cijoint.fr
A+
:S