XL 2019 obliger à remplir une cellule et vider l'autre

[matlatarte]

Bonjour, je cherche à obliger l'utilisateur à remplir soit A1 soit A2 mais que si A1 est pleine, A2 soit vide (ou vidé) et que si A2 est pleine A1 soit vide... J'ai un peu regardé en vba mais je m'y perds un peu... Pourriez vous m'éclairer ?

merci

 

[job75]

Bonjour matiatarte,

Si par exemple par copier-coller on remplit A1 et A2 que doit-il se passer ? On efface A1 et A2 ?

A+

 

[matlatarte]

oui ou l'un des 2 mais les 2 ne doivent pas être remplis en même temps; à priori pas d'utilisation du copier coller

 

[fanfan38]

Bonjour
Clic droit sur l'onglet de la feuille concernée
choisir visualiser le code
copier la macro ci dessous

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  If Target.Address = "$A$1" And Range("A2").Value <> "" Then Target.Value = ""
  If Target.Address = "$A$2" And Range("A1").Value <> "" Then Target.Value = ""
End Sub

A+ François

 

[matlatarte]

Merci François mais il reste un problème, si je rentre en A1 une valeur RAS mais si je rentre une valeur ensuite en A2 il me l'efface (car a1 non vide) alors qu'il faudrait effacer A1 et garder A2 (et inversement)

 

[matlatarte]

il m'affiche de plus "espace pile insuffisant" au premier essai

 

[job75]

Re, salut fanfan38,

Voyez le fichier joint avec dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountA([A1:A2]) = 2 Then [A1:A2] = ""
ScrollArea = IIf(Application.CountA([A1:A2]) = 1, "", "A1:A2")
End Sub

Et dans ThisWorkbook :

Private Sub Workbook_Open()
Feuil1.[A1] = Feuil1.[A1] 'lance la macro Worksheet_Change
Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Quand la plage A1:A2 est vide on ne peut sélectionner que A1 ou A2.

A+

 

[matlatarte]

merci cela fonctionne sans bug mais même remarque lorsque a1 est rempli, je rempli a2 cela efface tout et il faut reremplir a2 et inversement lorsque a2 est rempli et que je rempli a1 cela efface tout et il faut reremplir a1. Est ce possible d'éviter cela ? soit je rempli a1 et cela efface a2 soit je rempli a2 et cela efface a1. merci !

 

[job75]

Fichier (2) avec :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And CStr([A1]) <> "" Then [A2] = ""
If Not Intersect(Target, [A2]) Is Nothing And CStr([A2]) <> "" Then [A1] = ""
ScrollArea = IIf(Application.CountA([A1:A2]) = 1, "", "A1:A2")
End Sub

Bonne nuit.

 

[matlatarte]

YES MERCI ca marche !