Excel: compatibilité entre macros
Résolu
axion
-
axion -
axion -
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
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
