Excel-Copier si cellule pleine

Résolu/Fermé

EmilieM Messages postés 20 Date d'inscription jeudi 25 mars 2010 Statut Membre Dernière intervention 2 juin 2010 - 21 mai 2010 à 15:18
visiteur - 24 nov. 2016 à 16:21

Bonjour,

Je souhaiterai savoir si il est possible de faire une macro ou autre afin de ne copier que les cellules pleines.
J'ai une colonne comportant des valeurs mais pas dans toutes les cellules et je souhaiterai copier dans une autre colonne que les cellules pleines et à la suite les unes des autres.

Quelqu'un aurait il une petite idée?

Emilie.

A voir également:

Si cellule non vide alors copier
Coeur vide ✓ - Forum Réseaux sociaux
Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
Si cellule contient texte alors ✓ - Forum Excel
Excel si cellule contient texte alors 1 ✓ - Forum Excel
Excel si cellule vide alors copier cellule précédente - Forum Excel

6 réponses

Réponse 1 / 6

tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 647
25 mai 2010 à 13:15

re,

une petite remarque :
si tu ne veux pas voir toutes les "animations" de copies des cellules, surtout si tu en as beaucoup, tu peux ajouter la ligne suivante juste avant la déclaration des variables (i.e. les lignes avec Dim) :
Application.ScreenUpdating = False

visiteur
24 nov. 2016 à 16:21

tu m'as sauvé la vie mdr

Réponse 4 / 6

tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 647
Modifié par tibouuh le 25/05/2010 à 11:21

Salut,

cette fois-ci je te propose une macro!
je l'ai testé et elle fonctionne.

pour ma macro, j'ai considéré que tu travaillais sur la Feuil1 et que tu voulais copier les cellules non vides de la colonne A vers la colonne B.
je te laisse adapter et optimiser selon ton cas.

Sub copie()

Dim cellule As Range
Dim Ligne As String
For Each cellule In Worksheets("Feuil1").Range("A1:A65536")
If Not IsEmpty(cellule) Then
If IsEmpty(Worksheets("Feuil1").Range("B65536").End(xlUp)) Then
Worksheets("Feuil1").Range("B65536").End(xlUp).Select
cellule.Copy Worksheets("Feuil1").Range("B65536").End(xlUp)
Else
Ligne = Worksheets("Feuil1").Range("B65536").End(xlUp).Row
Range("B" & Ligne + 1).Select
cellule.Copy Worksheets("Feuil1").Range("B" & Ligne + 1)
End If
End If
Next cellule

End Sub

Comme l'a dit le grand philosophe Mick Jagger : "Tu ne peux pas toujours avoir ce que tu veux"
Help me to help you!

Discussions similaires

Excel : protéger une partie de la feuille

Comparaison 2 colonnes excel+alignement

[VB] Defusionner des cellules

insérer la date de modif d'une cellule Excel

Utiliser la valeur affichée et non la formule

remplacer cellules vides par 0 excel

Discussions similaires

Newsletters