Copier sur les cellules du dessous

bonjour,

je fais appel a vous pour essayer de connaitre une astuces car je suis dans l'impasse, je m'explique,

j'ai un tableau fait de cette facon (voir image) :

untitled

Bref l'idee est de faire un tableau croise dynamique, mais a la base les cellules "partners" etait fusionnees donc qund je les splits, le nom de mon client de se copie pas sur les cellules du dessous et donc qund je fais mon TCD jai une cellules en bas "Blanc".

Auriez vous une astuces pour reporter le nom de chaque cellules "partners" sur les cellules vides du dessous ?

Je vous remercie pour votre reponse rapide

CP

Ps: ayant 2000 lignes environ ca me serait d'une grande aide ...

Salut,

Je n'aime pas trop travailler sur la base d'une image ; la prochaine fois joins s'il-te-plait un fichier

La macro ci-dessous devrait faire l'affaire (voir le fichier ci-joint) :

Option Explicit

Sub ss()
Dim i As Integer, DerLig As Integer

Application.ScreenUpdating = False

DerLig = Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To DerLig
    Range("E" & i) = Range("A" & i)
    If Range("E" & i) = "" Then Range("E" & i) = Range("E" & i - 1)
Next i

Range("E2:E" & DerLig).Cut Range("A2")

End Sub

Cordialement.

22ninjametal.zip (10.54 Ko)

Salut,

Voici un petit processus qui permet de compléter les case vides laissées par la suppression de la fusion

Sélection du tableau (CTRL A)

Suppression de la fusion

On suppose que toutes les cellules vides doivent être remplies avec la valeur située au-dessus.

F5 (atteindre), puis Cellules vides.

Repérer la cellule active

Taper = puis clic sur la cellule au-dessus la cellule active

CTRL + Entrée (recopie dans toutes les cellules sélectionnées)

Copier tableau coller valeur

Et c'est fini !

merci pour vos reponses ca m'a ete bien utile !

Rechercher des sujets similaires à "copier dessous"