Macro boucle pour faire comme un décompte...un par un....

francedemo

XLDnaute Occasionnel

• 12 Juillet 2012

• #2

Re : Macro boucle pour faire comme un décompte...un par un....

bonjour,
à tester
for i=1 to 8
cells(1,1).offset(0,1).value=cells(1,1).value-i
next i
je ne vois pas trop à quoi ça peut te servir, mais bon

à+

 

Vote positif 0 Vote négatif

A

ayaflo

Guest

• 12 Juillet 2012

• #3

Re : Macro boucle pour faire comme un décompte...un par un....

Salut

Essaye de copier le code suivant dans un module.

Sub Decremente()

Dim i As Variant 'Compteur de passage
i = 1 'Initialise compteur à 0

Range("A1").Select 'Cellule référence à décrémenter

'Boucle de passage sur 8 lignes
While i < 8
ActiveCell.Offset(i, 0).FormulaR1C1 = "=R[-1]C - 1" 'On décrément sur la ligne qui correspond à i
i = i + 1 'on passe au i suivant
Wend

End Sub

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Juillet 2012

• #4

Re : Macro boucle pour faire comme un décompte...un par un....

Bonjour à tous,

pour pouvoir visualiser le décomptage, il vaut mieux mettre une temporisation

Code:

For i = 1 To 8
[A2] = [A1] - i
Application.Wait (Now + TimeValue("00:00:01"))
Next i

à+
Philippe

 

Vote positif 0 Vote négatif

O

Oraff

Guest

• 12 Juillet 2012

• #5

Re : Macro boucle pour faire comme un décompte...un par un....

Merci a vous tous je devrais m'en sortir ! ;-)

 

Vote positif 0 Vote négatif