copie auto si vide de la valeur juste au dessus

bignou77 · 21 Novembre 2007

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 · 21 Novembre 2007

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

Bonjour,

une proposition:

Code:

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 · 21 Novembre 2007

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

Bonjour

Un essai

Me manque des vitamines

Bonjour skoobi

pierrejean · 21 Novembre 2007

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

bonjour bignou77
Salut Skoobi

Une autre solution

Code:

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 · 21 Novembre 2007

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

copie auto si vide de la valeur juste au dessus

bignou77

XLDnaute Occasionnel

Pièces jointes

skoobi

XLDnaute Barbatruc

Banzai64

XLDnaute Accro

Pièces jointes

pierrejean

XLDnaute Barbatruc

bignou77

XLDnaute Occasionnel

Discussions similaires

copie auto si vide de la valeur juste au dessus

bignou77

XLDnaute Occasionnel

Pièces jointes

skoobi

XLDnaute Barbatruc

Banzai64

XLDnaute Accro

Pièces jointes

pierrejean

XLDnaute Barbatruc

bignou77

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency