afficher contenu de cellule...

Question

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



Configuration: Windows Vista / Internet Explorer 9.0

michel_m · Answer

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

Afficher contenu de cellule...

1 réponse

Discussions similaires

Newsletters