PROBLEME ROUTINE VBA exel

[titiraf]

Bonjour, j'ai un souci avec cette routine.La boucle tourne indéfiniment.
Merci de votre aide.

Sub cotisations()
Do
If ActiveCell.Font.Bold = True Then ActiveCell.Offset(0, 1).Value = _
Range("B2")
Else
ActiveCell.Offset(0, 1).Value = _
Range("B1")
End If
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = " " Then Exit Do
Loop

End Sub

 

[ninbihan]

Re : PROBLEME ROUTINE VBA exel

Bonsoir Titiraf, le forum

Dur, dur le match... :-(
Pour ta macro je crois detecter un espace dans ta sortie de boucle:
If ActiveCell.Value = " " Then Exit Do
Donc peut être ceci est mieux:
If ActiveCell.Value = "" Then Exit Do

A tester,

Bonne soirée,

Ninbihan