Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recopier la cellule du haut

A

AzertyuioL

Guest
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

XLDnaute Nouveau
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:
 
A

AzertyuioL

Guest
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 !!!!
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…