[VBA-E]contenu d'une cellule gestion erreur macro
Bonjour à tous,
étant novice pour le VBA, je me pose de grosses questions quand à la gestion d'erreur levée par le contenu d'une cellule.
la situatin est simple :cry: : j'ai une feuille dans laquelle je dois sélectionner une cellule, et appuyer sur un bouton qui active la macro permettant de récupérer le contenue de cette cellule pour s'en servir de référence. Le test que je veux faire, c'est empécher à la macro de s'éxécuter (msgbox d'arret) si la cellule active ne contient pas cette référence. toutes les références sont dans la colonne A, et aussi ces référence ne peuvent être que des chiffres, ce ne peut-être que des chiffres.
les tests que j'ai fait ne sont pas pris en compte et je ne sais pas pourquoi (on rentre en débogage quand le type dans la cellule est pas bon; c'est ce que je veux empécher)
Pour faire simple, voici mon prg:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| Sub Macro3()
'
'
Dim MyActiveCell$
MyActiveCell = ""
MyActiveCell = ActiveCell.Offset(0, 0)
MyTest2 = Not IsEmpty(MyActiveCell)
MyTest = IsNumeric(MyActiveCell)
If MyTest = True And MyTest2 = True Then
'on sélectionne la partie month et on efface
Sheets("1").Select
Range("A3:N7").Select
Selection.ClearContents
'on laisse les deux lignes ou il ya le calcul pour la couleur
'on sélectionne la partie YTD et on efface
Sheets("1").Select
Range("A10:N13").Select
Selection.ClearContents
'on va chercher les valeurs pour le mois
Sheets("Data collection").Select
Range("A" & (MyActiveCell - 4) & ":" & "N" & MyActiveCell).Select
Selection.Copy
Sheets("1").Select
Range("A3:N7").Select
ActiveSheet.Paste
Range("A1").Select
Else
MsgBox MyTest
MsgBox MyTest2
End If
End Sub |
si quelqu'un a une idée, concernant soit la façon de tester si la cellule est bien un chiffre, non vide, ou bine si on pet tester si la cellule active est bien dan sla colonneA.. je suis attentive et je vous remercie d'avance :arrow: Si je n'étais pas assez précise, n'hésitez pas à me demander.
Merci beaucoup
Re: contenu d'une cellule gestion erreur macro
Citation:
Envoyé par matou_aouh
si quelqu'un a une idée, concernant soit la façon de tester si la cellule est bien un chiffre, non vide, ou bine si on pet tester si la cellule active est bien dan sla colonneA.. je suis attentive et je vous remercie d'avance :arrow: Si je n'étais pas assez précise, n'hésitez pas à me demander.
Merci beaucoup
Code:
1 2 3
| if isNumeric(ActiveCEll) and ActiveCell <> "" and ActiveCell.Column =1 then
MsgBox "OK"
endif |