Bonjour,
J ai un problème avec la petite macro que j ai faite (voir fichier ci-joint).
J'aimerais bien qu'elle s'arrête quand la valeur de ma dernière cellule = "END", malheureusement ca ne fonctionne pas, elle tourne en continu.
Pourriez-vous me dre ce qui ne va pas et eventuellement me conseiller une meilleure façon de procéder (j'imagine que toutes mes boucles qui se suivent ce n est pas l'ideal).
Merci d'avance pour votre aide,
Gregory
J ai un problème avec la petite macro que j ai faite (voir fichier ci-joint).
J'aimerais bien qu'elle s'arrête quand la valeur de ma dernière cellule = "END", malheureusement ca ne fonctionne pas, elle tourne en continu.
Pourriez-vous me dre ce qui ne va pas et eventuellement me conseiller une meilleure façon de procéder (j'imagine que toutes mes boucles qui se suivent ce n est pas l'ideal).
Merci d'avance pour votre aide,
Gregory
Code:
Sub UpdateChecks()
'
' UpdateChecks Macro
' Macro recorded 12/12/2006 by
'
'
Sheets("AAA CHECKS").Select
VarName = Range("D6").Value
Range("B19").Select
Sheets("FULL").Select
Range("A3").Select
'Do Until ActiveCell.Value = "END"
Do Until ActiveCell.Value = VarName
ActiveCell.Offset(0, 1).Activate
Loop
Do Until ActiveCell.Value = "END"
Do Until ActiveCell.Value = "x"
ActiveCell.Offset(1, 0).Activate
Loop
VarDescription = ActiveCell.Offset(0, -3).Value
VarFrequency = ActiveCell.Offset(0, -2).Value
VarPeriod = ActiveCell.Offset(0, -1).Value
Sheets("AAA CHECKS").Select
ActiveCell.Value = VarDescription
ActiveCell.Offset(0, 1).Value = VarFrequency
ActiveCell.Offset(0, 2).Value = VarPeriod
ActiveCell.Offset(1, 0).Activate
Sheets("FULL").Select
ActiveCell.Offset(1, 0).Activate
Loop
End Sub