macro avec condition qui ne fonctionne pas

[Lagache]

Bonjour le Forum

Voici ma formule en macro:
Dim rc as Variant

if rc -1 <5 then
.Cells(1, 34) = 0
if rc -1 <10 then
.Cells(1, 34) = 2
if rc -1 <15 then
.Cells(1, 34) = 4
if rc -1 <20 then
.Cells(1, 34) = 6
End If
End If
End If
End If

mais ça ne fonctionne pas

 

[Lagache]

Re : macro avec condition qui ne fonctionne pas

Re Bonjour le Forum, Pascal,Jacques et Jyll

Bon finalement comme j'avais vraiment un probléme avec rc et son initialisation,que je ne sais toujours pas faire , j'ai contourné le probléme par l'userform avec les conditions liées à un TextBox.Tout semble bien fonctionner!

Je vous joints le fichier théoriquement terminé pour info et remerciements pour votre aide à tous

Salut et @ +

 

[JYLL]

Re : macro avec condition qui ne fonctionne pas

Bonjour Lagache et le forum,

Je pense avoir compris ton problème, j'ai modifier ton code et initialisé rc et le résultat me semble bon. j'ai mis un commentaire pour que tu trouves la ligne. Maintenant il doit manquer des conditions car les gens qui ont plus de 20ans d'ancienneté non rien en plus, un petit détail à régler.

Bon test et j'attends ta réponse pour voir si je n'ai pas taper à côté.

Amicalement.

Jean-Yves

 

[Lagache]

Re : macro avec condition qui ne fonctionne pas

Re Salut Pascal, Jacques et JYLL

Finalement je me suis orienté plus vers l'userform pour les calculs sous condition dans la mesure ou je ne sais pas initialiser les variables ! Si quelqu'un peut m'expliquer ce sera le bienvenu pour ma culture personnelle car même avec l'aide VBA je n'ai pas trouvé!
Par contre pour info , je joints mon fichier qui semble être finalisé.

Merci à Vous et Bon Week End
@+

 

[Lagache]

Re : macro avec condition qui ne fonctionne pas

Re Jyll

Merci , je ne sais pas ce qu'il s'est passé dans les posts , cela a dû se chavaucher ou croiser , bref j'ai vu ta modif et effectivement cela fonctionne correctement ,et maintenant j'ai compris ce que veut dire initialiser .

Merci beaucoup deton aide
@+