Ajouter en boucle dans la cellule active.

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Je reviens vers vous une fois de plus pour vous demander de l'aide.
J'ai enregistré une macro, mais elle a ses limites...
Mon projet est d'ajouter dans la cellule active un nombre
un certain nombre de fois. Ce n'est jamais le même nombre
et jamais le même nombre de fois.
Je vous joints un fichier. Par avance, Merci pour votre aide.

Cordialement.

 

[Dan]

Re : Ajouter en boucle dans la cellule active.

Bonjour,

Essaie ce code à la pace de ta macro

Sub Macro1()
Dim b as integer
' Touche de raccourci du clavier: Ctrl+d
b = InputBox("Combien de fois voulez-vous ajouter le chiffre " & Range("D1"))
For i = 1 To b
ActiveCell = ActiveCell + Range("D1")
Next
End Sub

Amicalement

@+ Dan

 

[Modeste]

Re : Ajouter en boucle dans la cellule active.

Salut aubelix, Dan,

Proposition semblable avec toute petite variante, en pièce jointe.

Modeste

 

[Gorfael]

Re : Ajouter en boucle dans la cellule active.

Salut aubelix et le forum
J'ai du mal à comprendre la nécessité de faire une boucle 😕

Sub Macro1()
Dim b as integer
' Touche de raccourci du clavier: Ctrl+d
b = InputBox("Combien de fois voulez-vous ajouter le chiffre " & Range("D1"))
ActiveCell = ActiveCell + (Range("D1")*b)
End Sub

A+

 

[aubelix]

Re : Ajouter en boucle dans la cellule active.

Bonjour matinal à Dan, Modeste, GorFael et tout le Forum. 🙂

Merci pour vos réponses respectives.
Je retiendrai celle de Modeste.
Mais comme je l'ai indiqué sur mon Post, additionner à la
"Cellule Active" et non à B3 (c'était un exemple") 😕
Ta macro ne modifie que la Cellule B3.
Peux-tu STP me l'adapter à la cellule active.

Par avance Merci pour votre aide.
Cordialement.

 

[Modeste]

Re : Ajouter en boucle dans la cellule active.

Mes hommages de l'après-midi à tous,

aubelix, si tu remplaces

Sheets(1).Range("B3").Value = Sheets(1).Range("B3").Value + nbr * occur

par

ActiveCell.Value = ActiveCell.Value + nbr * occur

... Il me semble que ça devrait fonctionner.

Modeste

 

[Dan]

Re : Ajouter en boucle dans la cellule active.

re,

Message à Gorfael.
Evidemment que tu as raison ou ai-je la tête !!!! pfff 😕 🙄
A bientôt

Dan

 

[aubelix]

Re : Ajouter en boucle dans la cellule active.

Bonjour Modeste. 🙂

Merci pour ton aide.
Cela fonctionne...

Cordialement.