copier coller auto vers le bas

[pes_com]

bonjour à tous


copier coller auto vers le bas a chaque ligue différent


Lien supprimé

 

[job75]

Bonjour pes_com,

Une solution simple sans macro :

- effacer d'abord A29 et A31 qui contiennent un texte vide, c'est du vice ça !!!

- sélectionner la colonne A

- touche F5 => Cellules => Cellules vides

- dans la barre de formule entrer la formule =A1 et valider par les touches Ctrl+Entrée

- Copier-Collage spécial/Valeurs de la colonne A sur elle-même pour supprimer les formules.

A+

 

[job75]

Re,

Correction : A29 et A31 contiennent un espace.

Maintenant par macro c'est bien simple :

Sub Copier()
Dim P As Range, t, i&
Set P = Intersect([A:A], ActiveSheet.UsedRange)
If P Is Nothing Then Exit Sub
t = P.Resize(, 2) 'au moins 2 éléments
For i = 2 To UBound(t)
  If Trim(t(i, 1)) = "" Then t(i, 1) = t(i - 1, 1)
Next
P = t
End Sub

C'est aussi très rapide car on utilise un tableau VBA.

A+