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:
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.
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
Merci beaucoup
Partager