XL 2010 "si" référence circulaire

[Océane-33]

Bonjour ,

Je n 'arrive pas à trouver la bonne formule, si vous pouviez m 'aider..
Lorsque que je remplie une cellule, si celle du dessus n 'a pas été saisie ( valeur inconnue ou oubli )
qu'elle prenne par défaut la cellule au dessus d'elle ( la dernière valeur connue )( ex je saisie en A5, la cellule A4 n 'est pas remplie donc A4=A3
1 ) je tombe sur une référence circulaire .
2 ) la formule appliquée à toutes les cellules ,dont celles à venir ( ou pas si il y a un oubli ) me marque faux..
Merci pour votre aide.

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Océane-33
Difficile de traiter ton cas avec une formule dans la colonne B et sans référence circulaire ...
Mais tu peux essayer avec l'événement "Change" de ta feuille (Target étant la cellule objet de changement)
Dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    'Si la modif ne porte que sur une cellule en colonne B (2) :
    If Target.Count = 1 And Target.Column = 2 Then
        'Si la cellule voisine dans la colonne A est une date :
        If VarType(Target.Offset(0, -1)) = vbDate Then
            Application.EnableEvents = False
            'Si la celule du dessus est vide, la remplir avec la valeur de la cellule 2 lignes au-dessus :
            If Target.Offset(-1) = "" Then Target.Offset(-1) = Target.Offset(-2)
            Application.EnableEvents = True
        End If
    End If
End Sub

Faire Alt F11 pour voir le code VBA:

Voir le fichier joint
Amicalement
Alain

 

[Océane-33]

merci c est exactement ça !!
Sauf que je pensais avoir une formule donc je n ai mis qu'une colonne en exemple,
en fait des colonnes il y en une vingtaine.
désolé

 

[AtTheOne]

Re-bonjour,
Peux-tu mettre un exemple plus représentatif
Alain

 

[AtTheOne]

Re-Bonjour
En attendant, un exemple valable sur un ensemble de colonnes déterminées (avec la date en colonne A)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Si la modif ne porte que sur une cellule :
    If Target.Count = 1 Then
        With Target
            Select Case .Column
                'si la modification porte sur une des colonnes données par les N° ci-dessous
                Case 2, 3, 5, 10 To 13, 15 To 21
                    'Si la cellule de la colonne A est une date (sur la même ligne)
                    If VarType(.Offset(, -(.Column - 1))) = vbDate Then
                        Application.EnableEvents = False
                        'si la cellule du dessus est vide, la remplir avec la valeur de la cellule 2 lignes au-dessus
                        If .Offset(-1) = "" Then .Offset(-1) = .Offset(-2)
                        Application.EnableEvents = True
                    End If
                Case Else
                     Exit Sub
            End Select
        End With
    End If
End Sub

Amicalement
Alain

 

[Océane-33]

Re-Bonjour
En attendant, un exemple valable sur un ensemble de colonnes déterminées (avec la date en colonne A)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Si la modif ne porte que sur une cellule :
    If Target.Count = 1 Then
        With Target
            Select Case .Column
                'si la modification porte sur une des colonnes données par les N° ci-dessous
                Case 2, 3, 5, 10 To 13, 15 To 21
                    'Si la cellule de la colonne A est une date (sur la même ligne)
                    If VarType(.Offset(, -(.Column - 1))) = vbDate Then
                        Application.EnableEvents = False
                        'si la cellule du dessus est vide, la remplir avec la valeur de la cellule 2 lignes au-dessus
                        If .Offset(-1) = "" Then .Offset(-1) = .Offset(-2)
                        Application.EnableEvents = True
                    End If
                Case Else
                     Exit Sub
            End Select
        End With
    End If
End Sub

Amicalement
Alain

 

[Océane-33]

AtTheOne,

Ton fichier marche nickel, super.

Merci beaucoup.