Autres Bascule entre deux cellules et mise à zéro à l'ouverture, EXCEL 2007

GUGUSSE2

XLDnaute Occasionnel
Bonjour,

J'ai voulu profiter du confinement pour améliorer un programme en me basant sur un autre pour lequel vous m'aviez aidé, mais visual basic et moi ne sommes pas copains !
Sur le fichier "OFPC", je veux que :
- les cellules B2, B3 et B4 soient vides à l'ouverture du fichier.
- Que l'on ne puisse mettre une valeur que dans B2 ou dans B3 (ou exclusif), à l’instar de ce qui avait été programmé pour les cellules B2-B4 du fichier "Diviseur 40-45".
Je pensais (naïvement) qu'il me suffirait de recopier le "VB" et d'adapter les adresses, mais je ne trouve pas l'erreur.
Merci d'être indulgent et de me donner la solution.

bien cordialement,
GUGUSSE2
 

Pièces jointes

  • OFPC.xlsm
    17.8 KB · Affichages: 7
  • Diviseur 40-45.xlsm
    41 KB · Affichages: 3
C

Compte Supprimé 979

Guest
Salut Gugusse2

Alors quand il s'agit de faire une action à l'ouverture d'un classeur, le code ce met là
2020-04-10_18h12_45.png


Et pour ce qui concerne la saisie dans l'une ou l'autre des cellules, il faut modifier ton code ainsi
VB:
Private Sub Worksheet_Change(ByVal r As Range)
  Application.EnableEvents = False
  If r.Address = "$B$2" Then
     [b3] = ""
     [b3].Select
  ElseIf r.Address = "$B$3" Then
     [b2] = ""
     [b2].Select
  End If
  Application.EnableEvents = True
End Sub
 

GUGUSSE2

XLDnaute Occasionnel
Merci à vous deux.
J'ai copié les deux macro et si la première (effacement cellules) fonctionne bien, il n'en est pas de même pour la seconde :
-Si après avoir mis une valeur en "B2", j'en mets une en "B3", la cellule "B2" ne s'efface pas.
- Si après avoir mis une valeur en "B3", j'en mets une en "B2", la cellule "B3" ne s'efface pas.
Je vous joins le fichier avec le VB que vous m'avez indiqué.
Encore merci pour votre aide.

GUGUSSE2
 

Pièces jointes

  • OFPC.xlsm
    17.8 KB · Affichages: 2

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088