VBA: Boucle

Fermé

lili - 26 août 2011 à 11:44
Macarons Messages postés 4 Date d'inscription vendredi 26 août 2011 Statut Membre Dernière intervention 26 août 2011 - 26 août 2011 à 17:42

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

A voir également:

VBA: Boucle
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Paf
26 août 2011 à 12:18

Bonjour

rien compris au besoin !

on récupère des données : Ok
on récupère d'autres données Ok

on fait une boucle basée sur un test qui n'évoluera jamais puisque les valeurs testées sont figées ( on vient de les récupérer juste avant) : pas Ok

(a priori on est dans un userform ?)

A+ d'infos

lili
26 août 2011 à 14:29

je suis bien dans un userform.

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

Paf
26 août 2011 à 15:07

les valeur que l'utilisateur inscrit sur l'userform se range dans des cellule d'excel

heu ..., a priori c'est l'inverse !

Ce que j'aimerai faire c'est une incrémentation de la cellule acier de 0.005

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

Bonne suite ou A+

lili
26 août 2011 à 15:23

je vais encore t'embéter Paf ma variable acier est comprise entre P1 et P5 et je doit incrementé la variable acier jusqu'a ce que Nint>Next et Eint>Eext

merci pour cette aide ça ma beaucoup aidé deja.

Paf
26 août 2011 à 15:36

je ne vois pas bien comme ça.
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+

lili
26 août 2011 à 15:45

oui mais comment on fais..

:S

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters