Afficher contenu de cellule...

Fermé

Gontran71 Messages postés 1 Date d'inscription samedi 20 octobre 2012 Statut Membre Dernière intervention 20 octobre 2012 - 20 oct. 2012 à 21:42
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 oct. 2012 à 16:30

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

A voir également:

Afficher contenu de cellule...
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Afficher mot de passe wifi android - Guide
Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
Verrouiller cellule excel - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
21 oct. 2012 à 08:52

Bonjour,

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

gontran71
21 oct. 2012 à 22:14

Bonsoir Michel et merci, effectivement je ne connais pas suffisament les macros.
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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
22 oct. 2012 à 08:37

Bonjour,

on a tous débuté!
quelle est ta version d'Excel ?

gontran71
22 oct. 2012 à 15:37

office 2007

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 22/10/2012 à 16:32

pour activer les macros sous XL2007

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

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

Afficher toutes les lignes masquées excel

Youtube: Ce contenu n'est pasdisponible dans votre pays

Excel si cellule contient texte alors...

Formule Excel : "SI" une cellule contient un mot, alors ?