Positionnement automatique dans une cellule en fonction d'un contenu

tototiti2008

XLDnaute Barbatruc

• 9 Mars 2013

• #2

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

Code:

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

 

Dernière édition: 9 Mars 2013

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Mars 2013

• #3

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

Bonjour à tous,

Une proposition simple avec un SI()

A+ à tous

Edition : Salut Marc

 

Pièces jointes

• JC Position cellule.xlsx

  18.3 KB · Affichages: 49

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Mars 2013

• #4

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

Bonsoir,

voir PJ

JB

 

Pièces jointes

• Copie de JC Position cellule.xlsx

  12.9 KB · Affichages: 46

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Mars 2013

• #5

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

 

Vote positif 0 Vote négatif

clapas

XLDnaute Nouveau

• 10 Mars 2013

• #6

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

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

 

Vote positif 0 Vote négatif