Sélectionner cellules non vides d'un tableau et regrouper dans une colonne
1 réponse
laucsap
Bonjour,
je souhaiterai regrouper toutes les cellules non vides dispersées dans un tableau et les copier à la suite les unes des autres dans une seule colonne séparée de la même feuille
en utilisant les fonctions ou les macros
merci par avance pour vos réponses
Laucsap
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
Bonsoir, Sub mettre_en_colonne() n = 1 For Each c In Range("a1:c10") If c.Value > "" Then Range("G" & n).Value = c.Value n = n + 1 End If Next End Sub Jacques " Le vin est au repas ce que le parfum est à la femme." . "laucsap" a écrit dans le message de groupe de discussion : Bonjour, je souhaiterai regrouper toutes les cellules non vides dispersées dans un tableau et les copier à la suite les unes des autres dans une seule colonne séparée de la même feuille en utilisant les fonctions ou les macros merci par avance pour vos réponses Laucsap --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Bonsoir,
Sub mettre_en_colonne()
n = 1
For Each c In Range("a1:c10")
If c.Value > "" Then
Range("G" & n).Value = c.Value
n = n + 1
End If
Next
End Sub
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"laucsap" a écrit dans le message de groupe de discussion :
07GdnW0NxpZVfL3FnZ2dnUU7983NnZ2d@giganews.com...
Bonjour,
je souhaiterai regrouper toutes les cellules non vides dispersées dans un
tableau et les copier à la suite les unes des autres dans une seule colonne
séparée de la même feuille
en utilisant les fonctions ou les macros
merci par avance pour vos réponses
Laucsap
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Bonsoir, Sub mettre_en_colonne() n = 1 For Each c In Range("a1:c10") If c.Value > "" Then Range("G" & n).Value = c.Value n = n + 1 End If Next End Sub Jacques " Le vin est au repas ce que le parfum est à la femme." . "laucsap" a écrit dans le message de groupe de discussion : Bonjour, je souhaiterai regrouper toutes les cellules non vides dispersées dans un tableau et les copier à la suite les unes des autres dans une seule colonne séparée de la même feuille en utilisant les fonctions ou les macros merci par avance pour vos réponses Laucsap --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
