copie auto si vide de la valeur juste au dessus

[bignou77]

bonjour,
le titre doit laissé rêveur certains d'entre vous.
les explication sont dans le fichier joint,
mais en gros ce que je voudrais faire : si la case A2 est vide on copie la valeur en A1, etc ... si A26 a 30 sont vide on copie la valeur de A25.

Je sais c'est farfelu, mais j'en est besoin pour mon projet.

Je vous remercie d'avance de prendre du temps pour mon probleme
@ bientôt
bignou77


PS : mon projet n'existe que grâce a vous, et je vous ne remercie encore une fois.

 

[skoobi]

Re : copie auto si vide de la valeur juste au dessus

Bonjour,

une proposition:

Sub copiesivide()
Dim cel As Range, acopier As Range
For Each cel In Range([A2], Range("A" & Range("B65536").End(xlUp).Row))
   If Not IsEmpty(cel.Value) Then
      Set acopier = cel
   ElseIf IsEmpty(cel.Value) Then
      cel = acopier
   End If
Next
   
End Sub

 

[Banzai64]

Re : copie auto si vide de la valeur juste au dessus

Bonjour

Un essai

Me manque des vitamines

Bonjour skoobi

 

[pierrejean]

Re : copie auto si vide de la valeur juste au dessus

bonjour bignou77
Salut Skoobi

Une autre solution

Private Sub Worksheet_Activate()
For n = 3 To Range("B65536").End(xlUp).Row
 If Range("A" & n) = "" Then Range("A" & n) = Range("A" & n - 1)
Next n
End Sub

 

[bignou77]

Re : copie auto si vide de la valeur juste au dessus

RE,
Merci a tous, je test vos solutions et je vous tien au courant, mais deja c'est super d'avoir autant de réactivité, un big merci a tous

-----------------------------------------------------------------------------------------------

Pour vous 3 ca fait exactement ce que je voulais, c'est parfait, je ferais mon choix suivant mon projet final. mais les 3 soluces sont parfaite, un énorme merci encore une fois et a bientot.
bignou77