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 : 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 Si je n'étais pas assez précise, n'hésitez pas à me demander.

Merci beaucoup