copier toutes les cellules non vides d'une feuille sur une autre feuille

[bili]

Bonjour,

J'ai une feuille de calcul avec plusieurs résultats. J'ai besoin de copier les cellules non vides sur une autre feuille automatiquement. Je ne connaît pas VBA.

Merci pour votre aide.

 

[Spitnolan08]

Re : copier toutes les cellules non vides d'une feuille sur une autre feuille

Bonjour,

Ce code est à placer dans un module standard :

Sub Copietout()
    Cells.Copy
    Sheets("Feuil3").Paste
End Sub

Mais tu aurais pu utiliser l'enregistreur automatique de macro pour obtenir un résultat similaire.
Outils/Macro/Nouvelle macro

Cordialement

 

[Spitnolan08]

Re : copier toutes les cellules non vides d'une feuille sur une autre feuille

Re,

Oublié le fait que tu ne connais pas VBA : Pour utiliser le 1er code, il faut rajouter un bouton.

Une autre solution consiste à placer ce code dans le module de la feuille origine :

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Copy
    Sheets("Feuil3").Paste
End Sub

Dès qu'un changement affectera une cellule quelconque de la feuille, tes données seront immédiatement recopiées vers la feuille destination (Ici : la feuille 3)

Ceci étant je t'encourage vivement à utiliser l'enregistreur de macros pour te familiariser avec VBA.

Cordialement

 

[bili]

Re : copier toutes les cellules non vides d'une feuille sur une autre feuille

Merci beaucoup pour votre aide !!