Positionnement automatique dans une cellule en fonction d'un contenu

[clapas]

A la retraite faire de la gymnastique intellectuelle est aussi importante que celle physique
mais les neurones fonctionnent moins bien
aussi je bute parfois sur des petits problèmes résolus avec du temps mais là !!!

Merci d'avance (j'apprendrai un peu plus)

 

[tototiti2008]

Re : Positionnement automatique dans une cellule en fonction d'un contenu

Bonjour clapas,

peut-être un truc comme ça dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Long
    Col = 0
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 3 Then
        If Target.Value = "dépenses" Then
            Col = 4
        ElseIf Target.Value = "recettes" Then
            Col = 5
        End If
        Target.Offset(0, Col).Select
    End If
End Sub

Edit : Salut Jean-Claude, je trouve ta proposition encore bien mieux

 

[JCGL]

Re : Positionnement automatique dans une cellule en fonction d'un contenu

Bonjour à tous,

Une proposition simple avec un SI()

A+ à tous

Edition : Salut Marc

 

[BOISGONTIER]

Re : Positionnement automatique dans une cellule en fonction d'un contenu

Bonsoir,

voir PJ

JB

 

[JCGL]

Re : Positionnement automatique dans une cellule en fonction d'un contenu

Bonjour à tous,
Salut JB,

Effectivement une somme négative (dans une "compta" familiale) est souvent une Dépense.

A+ à tous

 

[clapas]

Re : Positionnement automatique dans une cellule en fonction d'un contenu

Grâce à tous je progresse, je progresse
merci encore