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

GUGUSSE2 · 10 Avril 2020

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 · 10 Avril 2020

Bonjour,
dans this workbook

VB:

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

Compte Supprimé 979 · 10 Avril 2020

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

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 · 10 Avril 2020

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 · 10 Avril 2020

Bonsoir,
un peu de concentration svp ....

GUGUSSE2 · 10 Avril 2020

st007 à dit:
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

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

GUGUSSE2

XLDnaute Occasionnel

Pièces jointes

st007

XLDnaute Barbatruc

Compte Supprimé 979

Guest

GUGUSSE2

XLDnaute Occasionnel

Pièces jointes

st007

XLDnaute Barbatruc

Pièces jointes

GUGUSSE2

XLDnaute Occasionnel