Fonction For Next
Bonjour,
Je voudrais insérer un élément transitoire dans la fonction For / Next (si sa existe bien sûr).
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 correspondante à mon 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
Bonjour,
Est-ce ce code est complet ? car il va buguer sur cette ligne ActiveCell.Offset(13, -7).Range("A1:F12").Select et la variable Reponse ne correspond à rien.
Mets ton fichier sans données confidentielles avec ce que tu veux obtenir et où dans la feuille. Ce sera plus simple de te donner une solution
Amicalement
J'ai réglé le problème, il suffisait finalement de placer deux conditions.
Merci pour ton aide tout de même !
A+