XL 2019 effacer texte dans cellules si / dans autres cellules

[Quicksland]

Bonjour le forum 😉

Bonne année 2022 a tous et toutes ....

Dans le fichier ci-joint

Je souhaiterai que lorsque je tape un / en cellule T14,U14 et ainsi de suite jusqu'à T21,U21 le texte en F14 a F21 s'efface

si au contraire une valeur en chiffre apparait en cellule T14,U14 et ainsi de suite jusqu'à T21,U21 le texte reste apparent

Merci pour votre aide 👍

 

[Phil69970]

Bonjour @Quicksland

Je te propose ce code à mettre dans le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i&
If Not Application.Intersect(Target, Range("T14:U21")) Is Nothing Then
'Et si tu veux contrôler de T14 à U57 tu remplaces la ligne du dessus par celle de dessous
'If Not Application.Intersect(Target, Range("T14:U57")) Is Nothing Then
    For i = 14 To 21
        If Not IsNumeric(Range("U" & i)) Then Range("D" & i) = ""
    Next i
End If
End Sub

*Merci de ton retour

@Phil69970

 

[Quicksland]

Super Phil69970 👍

Bien vu pour la deuxième ligne de code ('If Not Application.Intersect(Target, Range("T14:U57")) Is Nothing Then ) 😉

Une idée pour l'ajout d'un bouton avec remise a zéro cellule "T14:U57"

 

[Phil69970]

Re

Tu crée un bouton et tu copies ceci

Sub CommandButton1_Click()
[T14:U57] = ""
End Sub

*Merci de ton retour

@Phil69970

 

[Phil69970]

Re

Et avec un fichier cela donne ceci :

*Merci de ton retour

@Phil69970

 

[Quicksland]

Impeccable 👍

Merci Phil69970 😉