Excel: compatibilité entre macros

Résolu/Fermé
axion - 15 déc. 2011 à 16:49
 axion - 15 déc. 2011 à 21:16
Bonjour,

Je vous rassure : rien ne presse !
J'ai relooké un vieux tableau, avec les bons conseils de m@rina, Eric et tous les helpers de ce site, que je remercie encore et... tout va pour le mieux.
Pour l'occasion, j'ai rencontré un problème de compatibilité entre macros concernant
1 cellule commune. J'y ai remédié en l'excluant d'une macro et ainsi, apporte une sécurité intermédiaire au principe de remise à zéro du formulaire, dont voici l'énoncé :
(B12 est l'exclue de la RAZ)

Sub TAROT_RAZ()
If MsgBox("Confirmez-vous la REMISE à ZERO ?", vbYesNo, "Confirmation") = vbYes Then
[B13:B61,C12:C61,E12:F61,I12:M61].ClearContents
[B12].Select
End If
End Sub

La cellule B12 pilote la disponibilité d'un SpinButton qui gère des cellules extérieures par :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B12")) Is Nothing Then
Select Case Target.Value
Case Is <> ""
SpinButton1.Enabled = False
Case Is = ""
SpinButton1.Enabled = True
End Select
End If
End Sub

L'exclusion de B12 est due au refus d'exécution :
Erreur d'exécution `13' :
Incompatibilité de type
Case Is <> ""

Ce problème est résolu mais, pour un autre projet du même acabit, j'aurais besoin d'une autre solution (sans exclusion de B12)
Comment y parvenir ? T I T Q
Ça doit être encore un cas d'école mais c'est là où s'arrêtent mes compétences.
Merci encore à tous ceux qui prendront sur leur dévouement et leur patience !

Cordialement
axion

A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
15 déc. 2011 à 21:02
bonjour

Tu as une "Incompatibilité de type" et donc il me semble que pour corriger, il te suffit de remplacer ainsi ta macro change :

Select Case Target.Text
1
bonsoir, gbinforme

merci de ta réponse pertinente et diligente
en effet, c'est LA solution que je cherchais
je classe la question en "résolu"
et te souhaite de passer de bonnes fêtes

encore merci
cordialement
axion
0