copier coller auto vers le bas

pes_com

XLDnaute Nouveau
bonjour à tous


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


Lien supprimé
 

Pièces jointes

  • aide 27.xlsx
    16.6 KB · Affichages: 37
Dernière édition:

job75

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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+
 

Statistiques des forums

Discussions
312 885
Messages
2 093 256
Membres
105 658
dernier inscrit
Mario Richard