Comment restraindre les fonctions "loop"?

[Fab291]

Bonjour,

Je voudrais faire en sorte qu'une série d'action se répète un nombre de fois variable (nombre qui est renseigné par une fonction inputbox).

Je sais que pour répéter une série d'actions il suffit d'employer les fonctions "loop", mais comment faire pour restreindre la répétition à un certain nombre?

 

[Risleure]

Re : Comment restraindre les fonctions "loop"?

Bonjour Fab291

Un essai avec une boucle For Next en PJ

A+

 

[Fab291]

Re : Comment restraindre les fonctions "loop"?

Pas mal! ça devrait convenir.

Merci !

 

[Fab291]

Re : Comment restraindre les fonctions "loop"?

Après réflexion, un problème se pose.
Je voudrais insérer un élément transitoire dans la fonction. Cette élément permettrait de compter les décimales après la virgule en quelque sorte.
Pour un chiffre x = 1 La fonction ferait 0.5(première partie de la fonction) + 0.5(deuxième partie de la fonction)
Ainsi lorsque l'on demandera 1.5 il ne répondra pas automatiquement 2


Voilà à quoi correspond la partie qui pose problème :
Range("A1:F12").Select
Selection.Copy

Dim compteur
For compteur = 1 To reponse
ActiveCell.Offset(13, -7).Range("A1:F12").Select
ActiveSheet.Paste
'élément transitoire à placer
ActiveCell.Offset(0, 7).Range("A1:F12").Select
ActiveSheet.Paste
Next compteur

 

[Fab291]

Re : Comment restraindre les fonctions "loop"?

J'ajoute le fichier correspondant pour plus de concret.

 

[kjin]

Re : Comment restraindre les fonctions "loop"?

Bonjour,

Pour un chiffre x = 1 La fonction ferait 0.5(première partie de la fonction) + 0.5(deuxième partie de la fonction)
Ainsi lorsque l'on demandera 1.5 il ne répondra pas automatiquement 2

Euh..., oui mais encore

Après réflexion, un problème se pause.

C'est une grosse pause qu'il va falloir faire, ou poser des congés...!

J'ajoute le fichier correspondant pour plus de concret.

Pour le concret, je cherche encore...
A+
kjin

 

[Fab291]

Re : Comment restraindre les fonctions "loop"?

Merci pour tes lumières Kjin, c'est toujours profitable.

Je ré-explique donc ce que je veux...

Je voudrais pouvoir répéter 2 actions (le nombre de fois choisi) qui dépendent d'une condition chacune.

Je ré-ajoute le fichier "pour plus de concret"

A+

 

[Fab291]

Re : Comment restraindre les fonctions "loop"?

J'ai finalement compris et réussi.
Reste une question simple à laquelle je reste sans réponse :

Comment faire pour dire :

Si la cellule active est rangée sur la colonne "H" alors..

If ActiveCell.??? Then

 

[Dull]

Re : Comment restraindre les fonctions "loop"?

Salut Fab291, kjin, Risleure, le Forum

Peut-être comme cela

Dim i As Long
    For i = 1 To 1000 [COLOR=Green]' a modifier selon le nombre de Lignes[/COLOR]
        If ActiveCell.Address = Cells(i, 8).Address Then MsgBox "OK": Exit Sub
    Next i

Salut Nono Plus c'est simple mieux c'est

y'adesmomentsoùjeferaisbienderestercouché

Bonne Journée

 

[camarchepas]

Re : Comment restraindre les fonctions "loop"?

Bonjour la foule ,

Le test un peu plus simple peut être :

If ActiveCell.Column = 8 Then MsgBox "Dans colonne H"

 

[Fab291]

Re : Comment restraindre les fonctions "loop"?

2ème réponse plus appropriée à mon problème et plus simple effectivement!

Merci à tous !

Problèmes résolus
A+