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

[GUGUSSE2]

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

 

[st007]

Bonjour,
dans this workbook

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("B2,B4").ClearContents
ActiveSheet.Protect
End Sub

 

[Compte Supprimé 979]

Salut Gugusse2

Alors quand il s'agit de faire une action à l'ouverture d'un classeur, le code ce met là

Et pour ce qui concerne la saisie dans l'une ou l'autre des cellules, il faut modifier ton code ainsi

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]

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

 

[st007]

Bonsoir,
un peu de concentration svp ....

 

[GUGUSSE2]

Bonsoir,
un peu de concentration svp ....

Merci, cela fonctionne comme je le souhaitais.
Mais même avec de la concentration, je ne vois pas qu'elle erreur j'avais faite.
Car si l'écriture d'une valeur dans une cellule (B2 ou B3) efface bien l'autre cellule, ces deux cellules ne sont pas vides à l'ouverture du fichier.

GUGUSSE2