[Catégorie modifiée .Net -- VBA] Suppression de cellule lorsque deux autres conRésolu

Question

Bonjour, je m'explique tout simplement. Mon classeur est tel qu'il s'agit d'un tableau pour la gestion d'une compétition sportive, le billard lol. Mon problème est le suivant. Pour lancer un match je dois sélectionner dans une liste déroulante, un billard sur lequel je lance le match et je clic ensuite sur un logo et la feuille s'imprime. Ensuite dès que la partie est terminée, je saisis le score dans deux cellules, celui du joueur A puis du joueur B, puis je supprimer manuellement le numéro de billard. J'aimerai savoir si il ya un moyen (macro, formule..) pour que dès que j'ai saisi le score dans les deux cellules, le contenu de la cellule comportant le numéro de billard soit effacée automatiquement. Merci

cs_Jack · Accepted Answer

Oups, erreur.
Is Empty (type/attribut) provoque une erreur
Il faut utiliser IsEmpy (fonction)
    If (Not IsEmpty(Range("A1").Value)) And _
       (Not IsEmpty(Range("B1").Value)) And _
       (Not IsEmpty(Range("C1").Value)) Then
        Range("C1").Value = ""
    End If

cs_Jack · Answer

Salut
Merci de noter le changement de catégorie de question pour ta prochaine question.

En fait, une fois que :
quelque chose dans case A
ET quelque chose dans case B
ET quelque chose dans numéro de billard
Alors vider le contenu du numéro de billard.
Est-ce bien cela ?

A chaque fois que tu modifies quelques chose dans une cellule, un évènement se produit sur ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
End Suboù Target représente la cellule ou le groupe de cellules concernées.

Donc, à chaque modif, il te suffit de vérifier si les conditions dictées plus haut sont vraies, genre :
    If (Not Range("A1").Value Is Empty) And _
       (Not Range("B1").Value Is Empty) And _
       (Not Range("C1").Value Is Empty) Then
        Range("C1").Interior.ColorIndex = 4  ' ou vidage
    End If(à l'intérieur la Sub nommée au-dessus)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Gugu_29 · Answer

Merci pour le déplacement ainsi que pour le code sa fonctionne très bien !
 A bientôt

[Catégorie modifiée .Net --> VBA] Suppression de cellule lorsque deux autres con

3 réponses

Votre réponse

Discussions similaires