Discussion :

[capi81]

Salut le forum

J'ai "bricoler" un code qui me permet de copier des données à partir de la feuille "SOURCE" et de les coller vers la feuille "TABLEAU_N".
L'objectif recherché est de copier les données de la plage A2:E (dernière cellule non vide de E) et de les coller à partir de TABLEAU_N!A2.
Le problème avec mon code est qu'il ne se limite pas à la plage non vide mais copie aussi les cellules vide et le collage est aussi faussé (je constate des cellules vide dans la plage de destinantion).
Merci de m'azider à améliorer mon code.
N.B: avant le collage, les données existant (anciennes données commencant par A3:E...) devront être supprimées.
http://cjoint.com/?DGFnBPckO5r

[Philippe Tulliez]

Bonjour,
Il est inutile de mettre un fichier à télécharger en début de discussion. Ce n'est pas dans l'esprit du forum.
Une bonne explication du contexte et l'affichage du code utilisé et à améliorer est suffisant. Tout au moins si tu souhaites un maximum de réactions car tout le monde ne se prête pas au téléchargement.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub select_zoma()
 
With Worksheets("TABLEAU_N")
    .UsedRange.Clear
    Worksheets("SOURCE").UsedRange.Copy .Range("A1")
    .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes).Name = "Tableau1"
End With
End Sub

On n'avance guère! Hein!

[capi81]

Salut Mercatog et phillipe

Phillipe merci pour vos conseils.
Comme d'habitude Mercatog vos solutions sont merveilleuses.
On va avancer un jour grâce à vos soutiens multiformes.
Que DIEU vous bénisses.