recopier la cellule du haut

[AzertyuioL]

Bonjour a tous !!
javais deja posé cette kestion mais sans succes !

alors je la repose différement !


je voudrais donc recopier la cellule du dessus si la cellule selectionée est vide !!!
et tout ceci selon la selection que jaurais faite.

genre ça :
Sub copiage()
Dim c As Range

For Each c In ActiveCell.CurrentRegion.Select
If c = '' Then
ActiveCell.Value = ActiveCell.Offset(-1,0).Value
End If
Next c
End Sub

je sais kil y a un probleme mais lakel

en sachant que je debrouille en copiant collant les solution de plusieur autre post mais bon ça marche pas a tout les coup :S
alors bon merci a tous ciao

 

[sunnyland]

Essaie donc le code suivant:

Sub enleveblanc()
For Each c In Selection
Select Case c.Row:
Case 1:
Case Else:
If (IsEmpty(c) = True And IsEmpty(c.Offset(-1, 0)) = False) Then
c.Value = c.Offset(-1, 0).Value
End If
End Select
Next
End Sub

FRancoise
:side:

 

[sunnyland]

Desole le message avait ete poste en double
Message édité par: sunnyland, à: 03/02/2006 02:19

Message édité par: sunnyland, à: 03/02/2006 02:36

 

[AzertyuioL]

Alors !!
Françoise

Moi et mes collègues de bureau te remercions infinimant!!!!!!!!
le code VBA marche a merveille !!
il sera peut etre modifié pour etre intégré à un autre code !!

MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI

copier coller !!!!