Pourquoi parfois la macro ne mache pas !

[Creepy]

Bonjour all,

J'ai fait une macro qui compare une liste de chiffre selectionné par rapport à une autre colonne

La colonne de reference est demandée dans une inputbox et est stocké dans la variable "reference". Idem pour le seuil à appliqué et stocké dans la variable "QUOI"

Le problème est que parfois, et je ne sais pas pourquoi, la macro ne fonctionne pas et j'ai tout à NS, quelque soit le seuil rentré dans "Quoi"

Kk1 peut-il m'expliquer ?????

Merci d'avance

Creepy

------------------------ CODE -----------------------------

Sub Ns()
Debut: ' Déclaration des variables et etiquette pour boucler
Dim Ns As Variant
Dim Reference As String
Dim Quoi As String

Reference = InputBox("Par rapport à quelle colonne comparer ? (si vous êtes s êtes en B et que vous comparer à A tapez : -1. Si votre references est en à C tapez 1, etc...")
On Error GoTo GestionErr
Quoi = InputBox("Quelle limite utiliser (Strictement inferieur)?")

On Error GoTo GestionErr

If Reference <> "" And Not IsNumeric(Reference) Then ' Si saisie et non numérique
MsgBox "Saisie non numérique !! Veuillez recommencer S.V.P. ;-)"
GoTo Debut:
End If

If Quoi <> "" And Not IsNumeric(Quoi) Then ' Si saisie et non numérique
MsgBox "Saisie non numérique !! Veuillez recommencer S.V.P. ;-)"
GoTo Debut:
End If

For Each Ns In Selection ' Formule de comparaison pour chaque cellule
' Ns.HorizontalAlignment = xlCenter
' Ns.VerticalAlignment = xlCenter
' Ns.Offset(0, Reference).VerticalAlignment = xlCenter
' Ns.Offset(0, Reference).HorizontalAlignment = xlCenter
If Ns.Offset(0, Reference).Value < Quoi And Ns.Offset(0, reference).Value <> "" Then
Ns.Value = "N.S."
Ns.Offset(0, Reference).Value = "N.S."
End If
Next
Exit Sub

GestionErr: ' Gestion du clique sur le botuon annuler
Exit Sub
End Sub

 

[JPM]

Salut Creepy

Je crois savoir que ce qui sort d'une inputbox n'est pas du numérique et que tu dois le convertir avec CinT
Quoi = CInt(Quoi)
Et puis ton test

A+ JPM

 

[Roland]

Bonjour à tous

Essaie de mettre provisoirement un msgbox dans ta gestion d'erreur celà te permettra sans doute plus claire.

Roland

 

[Creepy]

c pas ca une autre idée ??

 

[Roland]

Salut Creepy

Met ton appli sur le fil. Je pense que c'est soit la gestion d'erreur soit le fait de réécrire dans NS qui est ta variable de boucle.

A+ Roland