Vider une cellule suivant la nouvelle valeur d'une autre

Résolu
CamdenTown Messages postés 37 Date d'inscription   Statut Membre Dernière intervention   -  
CamdenTown Messages postés 37 Date d'inscription   Statut Membre Dernière intervention   -
Amis internautes bonjour,

Voila le soucis
J'ai 3 cellule:
Une ou je rentre une donnée grace à une liste déjà crée.
La deuxième, selon la donnée de la première, me dit qui faut que je remplisse ou non la troisième cellule avec une autre donnée.
Jusque la tout va bien sauf que je souhaiterai que quand je re sélectionne une autre donnée dans la première cellule bin la 3ème se vide automatiquement.
et voir donc l'information qui s'affiche dans la 2ème et faire ce que j'ai à faire.

J’espère avoir été assez claire.

Merci à l'avance.

1 réponse

  1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour
    pour effacer la cellule C (sur la ligne) lorsque vous entrez une valeur en A

    clic droit sur l'onglet et visualiser le code et coller ceci

    <ital>Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    Target.Cells.Offset(0, 2).Value = ""
    End If
    End Sub
    </ital>

    associer le rang de la colonne( ici =1=) à la colonne utile

    crdlmnt
    0
    1. CamdenTown Messages postés 37 Date d'inscription   Statut Membre Dernière intervention  
       
      Pardon mais je suis un peu perdu...
      La cellule a effacer est la C3 et celle ou je rentre une valeur est la B3
      Ca revient à quoi dducoup ?
      Est ce ?
      If Target.Column = 2 Then
      Target.Cells.Offset(0, 3).Value = ""

      MErci
      0
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      Non

      Target.cells.offset(0,1).value=""

      (offset > décalage ligne, colonne

      puisqu'il s'agit de la cellule à droite de la cellule active
      0
    3. CamdenTown Messages postés 37 Date d'inscription   Statut Membre Dernière intervention  
       
      Autant pour moi
      Merci infiniment et bonne fin de journée !
      0