Afficher contenu de cellule...
Gontran71
Messages postés
1
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je souhaiterai, que le contenu de toutes les cellules A1 d'un classeur composé d'une trentainne de feuille soit renvoyer, en colonne, sur une trente et unieme feuille, en ignorant les cellules A1 vides.
EXEMPLE:
A1 feuil1 tomate
A1 feuil2 vide
A1 feuil3 courgette
A1 feuil4 vide
A1 feuil5 vide
A1 feuil6 haricot
ME RENVERAI SUR KA TRENTE ET UNIEME FEUILLE :
tomate (enA1)
courgette (enA2)
haricot (en A3)
voila, je ne sait si cela est possible ?
Merci à vous
Gontran
je souhaiterai, que le contenu de toutes les cellules A1 d'un classeur composé d'une trentainne de feuille soit renvoyer, en colonne, sur une trente et unieme feuille, en ignorant les cellules A1 vides.
EXEMPLE:
A1 feuil1 tomate
A1 feuil2 vide
A1 feuil3 courgette
A1 feuil4 vide
A1 feuil5 vide
A1 feuil6 haricot
ME RENVERAI SUR KA TRENTE ET UNIEME FEUILLE :
tomate (enA1)
courgette (enA2)
haricot (en A3)
voila, je ne sait si cela est possible ?
Merci à vous
Gontran
A voir également:
- Afficher contenu de cellule...
- Fusionner deux cellules excel en gardant le contenu - Guide
- Proteger cellule excel - Guide
- Excel afficher couleur conditionnelle dans une cellule - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
- Afficher taille dossier windows - Guide
1 réponse
Bonjour,
Je ne vois difficilement une soution par formule.... donc par macro
si tu ne connais pas les macros (on vit très bien sans), fais signe en précisant ta version Excel
Je ne vois difficilement une soution par formule.... donc par macro
Option Explicit
Option Base 1
Sub reporter_sinonvide()
Dim Nbre As Byte, Cptr As Byte
Dim T_out()
'initialisations
Application.ScreenUpdating = False
ReDim T_out(1)
Nbre = ThisWorkbook.Sheets.Count
'mémorisation valeur cellules A1 si non vides
For Cptr = 1 To Nbre - 1
With Sheets(Cptr)
If .Range("A1") <> "" Then
cpt = cpt + 1
ReDim Preserve T_out(cpt)
T_out(cpt) = .Range("A1")
End If
End With
Next
'restitution des cellules A1 non vides sur la dernière feuille
With Sheets(Nbre)
.Columns("A").Clear
With .Range("A1:A" & cpt)
.Value = Application.Transpose(T_out)
.Borders.Weight = xlThin
End With
.Select
End With
End Sub
si tu ne connais pas les macros (on vit très bien sans), fais signe en précisant ta version Excel
je ne sais ou copier durablement ce code, afin qu'il fonctionne?
je ne suis qu'un petit autodidact amateur qui cherche a comprendre.
ceci dit ta macro a fonctionnée, donc j'ai bon espoir.
Merci encor
Gontran
on a tous débuté!
quelle est ta version d'Excel ?
1/ Si l'onglet Développeur n'apparait pas dans le ruban:
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur le menu Standard.
Cocher l'option Afficher l'onglet Développeur dans le ruban.
Cliquer sur le bouton OK pour valider.
2/ activer les macros
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur centre de gestion de confidentialité
puis sur param^tre du centre de gestion de la confidentialité
puis cocher le bouton radio activer les macros
Cliquerz sur le bouton OK pour valider.
ton Excel est maintenant définitivement prêt à travailler avec des macros
N'oublie pas d'enregistrer sous: classeur prenant en charge les macros