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