copier coller auto vers le bas

pes_com · 1 Septembre 2016

bonjour à tous

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

Lien supprimé

job75 · 1 Septembre 2016

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 · 1 Septembre 2016

Re,

Correction : A29 et A31 contiennent un espace.

Maintenant par macro c'est bien simple :

Code:

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+

copier coller auto vers le bas

pes_com

Guest

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

copier coller auto vers le bas

pes_com

Guest

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency