Sujet Précédent Sujet Suivant

VB Incrementation macro excel

Résolu/Fermé
zbuck Messages postés 20 Date d'inscription dimanche 11 mai 2008 Statut Membre Dernière intervention 17 mars 2011 - 19 nov. 2010 à 09:02
Ayuritenshi Messages postés 278 Date d'inscription vendredi 15 mai 2015 Statut Membre Dernière intervention 5 mai 2016 - 20 mai 2015 à 16:29
Bonjour, je souhaite faire une macro qui permet
1) l'incrémentation d'une valeur de 2 en 2 .Exemple : la valeur de départ est 10 et évolue jusqu'à 20
2) les 5 résultats obtenus devront être affichés dans 5 cellules différentes .

je pensai à une boucle du style : for x=10 to 20 step 2.
je recherche des idées .

Merci
A voir également:

5 réponses

Réponse 1 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 19/11/2010 à 09:55
Bonjour,
Un exemple : 
Dim Lign As Integer  
Dim Valeur As Integer  
Valeur = 8  
For Lign = 1 to 6  
    Valeur = Valeur + 2  
    Cells(Lign, 1).Value = Valeur 
Next Lign

Ou, pour une meilleure compréhension du code : 
Dim Lign As Integer  
Dim Valeur As Integer  
Valeur = 10  
For Lign = 1 to 6  
    Cells(Lign, 1).Value = Valeur
    Valeur = Valeur + 2 
Next Lign


Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
0
Réponse 2 / 5
zbuck Messages postés 20 Date d'inscription dimanche 11 mai 2008 Statut Membre Dernière intervention 17 mars 2011 4
19 nov. 2010 à 10:03
Bonjour pijaku,
j' ai essayé le code que tu m' as envoyé ,résultat j'ai 5 fois la valeur 10 dans les cellules de A1 à A5 ???
la valeur est incrémentée uniquement au premier passage
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
19 nov. 2010 à 10:06
Retente, j'ai modifié le code ci dessus, suite à effaccement d'une ligne dans la macro...
0
Sensei
19 nov. 2010 à 10:11
Il manquait peut etre le step 1 

Dim Lign As Integer  
Dim Valeur As Integer  
Valeur = 10  
For Lign = 1 to 6  step 1
    Cells(Lign, 1).Value = Valeur
    Valeur = Valeur + 2 
Next Lign


En théorie valeur doit s'incrémenter de 2 à chaque fois qu'il passe dans la boucle...
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
19 nov. 2010 à 10:15
Salut sensei.
Non j'ai juste mis un mauvais code la première fois et je l'ai modifié par la suite... Erreur de copier / coller qui a merdé... Donc oui, tu peux ajouter Step 1, mais non ça n'est pas obligatoire, VBA le comptant par défaut.
Le code au dessus est bon, les 2 fonctionnent.
Bonne journée
0
Réponse 3 / 5
zbuck Messages postés 20 Date d'inscription dimanche 11 mai 2008 Statut Membre Dernière intervention 17 mars 2011 4
19 nov. 2010 à 10:23
impeccable , c'était le résultat espéré .
il ne me reste plus qu'a approfondir mon travail
Merci
0
Réponse 4 / 5
zbuck Messages postés 20 Date d'inscription dimanche 11 mai 2008 Statut Membre Dernière intervention 17 mars 2011 4
19 nov. 2010 à 10:24
resolu
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Ayuritenshi Messages postés 278 Date d'inscription vendredi 15 mai 2015 Statut Membre Dernière intervention 5 mai 2016 53
20 mai 2015 à 16:29
Bonjour
je cherche a Incrémenté simplement deux cellules de 5 en 5 jusqu'à un seuil exemple:
admettons que j'ai une plage de données dans deux case distinctes -5 pour le min et 150 pour le max avec une textBox qui donnerais une marge que l'utilisateur devrais rentrer
admettons maintenant qu'il écrive 20 donc j'aimerais que la les deux case s'incrémente pour aller à -25 pour le min de 5 en 5 et à 170 pour le max de 5 en 5 également .
Auriez vous une idée pour m'aider ?
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses