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.
Merci par avance et j'espere que c'est compréhensible.
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
21
22 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
Macarons
Partager