Autres Copie de macro VBA d'un classeur dans un autre qui ne fonctionne pas (EXCEL 2007)

GUGUSSE2 · 7 Mai 2021

Bonjour,
Mes fichiers sont en "EXCEL 2007".

Dans le fichier "Diviseur 40-45.xlsm" il y a une macro qui ne permet d'entrer une donnée QUE dans "B2" ou (exclusif) "B4".
Je voulais avoir le même comportement avec les cases "B2" ou "B3" dans le fichier "Ergot.xlsm".
J'ai donc importé la macro en modifiant les adresses ("B4" changé en "B3").
Mais seulement, les données ne sont pas effacées dans la case voisine quand on entre une valeur dans l'autre case !
Quelle est mon erreur ?
Quelqu'un peut-il corriger ce problème ?

Bien cordialement,
GUGUSSE2

sylvanu · 7 Mai 2021

Bonsoir Gugusse,
Worksheet_Change est une macro événementielle, elle doit donc se trouver dans la Feuil1.
Ensuite le code réfère B2 et B4.
Donc je l'ai modifiée ainsi :

VB:

 Private Sub Worksheet_Change(ByVal r As Range)
Application.EnableEvents = False
ActiveSheet.Unprotect
If r.Address = "$B$2" Then
   [b3] = ""
   [b3].Select
Else
   [b2] = ""
   [b2].Select
End If
'ActiveSheet.Shapes("Groupe 1").Visible = IIf([B7] >= 0, True, False)
'ActiveSheet.Shapes("Groupe 2").Visible = IIf([B7] < 0, True, False)
If [B1] > 0 Then
'ActiveSheet.Shapes("Groupe 1").Visible = False
'ActiveSheet.Shapes("Groupe 2").Visible = False
End If
ActiveSheet.Protect
Application.EnableEvents = True
End Sub

Par contre ça coince sur ActiveSheet.Shapes("Groupe 1"), à vous de voir ce que vous voulez faire.
en PJ j'ai mis ça en commentaire, vous pouvez au moins tester le comportement de B2 B3.

GUGUSSE2 · 10 Mai 2021

Je ne vois pas la réponse que j'avais faite, je réitère donc :
Il est normal que les "ActiveSheet.Shape" ne fonctionnent pas puisqu'il n'y en a pas et qu'il n'y en a pas besoin dans le fichier "Ergot".
Le "ou exclusif" entre B2 & B3 fonctionne.
Considérez le problème résolu (je ne trouve pas le bouton pour le faire.
Merci aux sympathiques membres.
Bien cordialement,
GUGUSSE2

soan · 10 Mai 2021

sylvanu à dit:
Bonsoir Gugusse,

on ne s'adresse pas ainsi aux membres, voyons ! c'est bien trop familier !

... oh, pardon ! j'viens d'voir que c'est le pseudo du demandeur !

soan

Autres Copie de macro VBA d'un classeur dans un autre qui ne fonctionne pas (EXCEL 2007)

GUGUSSE2

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

GUGUSSE2

XLDnaute Occasionnel

soan

XLDnaute Barbatruc

Discussions similaires