Copier une colonne de valeurs sans cellules vides

Bonjour à tous,

Encore une fois je me tourne vers vous pour un peu d'aide.

Je joins un exemple pour d'avantage de clareté, tout est expliqué dedans.

Mon objectif est de recueillir l'ensemble des valeurs contenues sur la plage C4:C15 de ma feuille TEST et d'insérer le tout dans la colonne H de ma feuille TRANSPOSE de manière automatique.

La difficulté réside dans le fait que ma plage C4:C15 contient des cellules vides qui, si j'inscris la formule basique" =TEST!C4:C15" sont copiées également, ce que je ne souhaite pas...

J'ai beau chercher je ne parviens pas à trouver de formule me permettant de réaliser cette opération...

Merci d'avance pour votre aide! 8)

Bonjour,

Tu créer un bouton sur la feuille que tu veux et tu lui associe cette macro

Sub Filtre()
Dim Lg&, f As Worksheet
    Set f = Sheets("TEST")
    Lg = f.Range("b" & Rows.Count).End(xlUp).Row
    f.Range("k2") = "=c4<>"""""                     'critère
    f.Range("c3:c" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    f.Range("k1:k2"), CopyToRange:=Sheets("TRANSPOSE").Range("h5"), Unique:=False
    f.Range("k2").ClearContents
    Sheets("TRANSPOSE").Range("h5").ClearContents
End Sub

Amicalement

Claude

Bonjour

Salut Claude

La solution par formules

Cordialement

Hé bien vous êtes rapides !

Bon comme j'ai aussi une solution différente je la colle, histoire de pas avoir bossé pour rien

La marco du bouton que j'ai mis sur la feuille jointe :

Sub transpose()

Dim Plg As Range
Dim Cel As Range
Dim Cmpt As Long

Set Plg = Range("C4:C15")

For Each Cel In Plg

    If Cel.Formula <> "" Then
    Sheets("transpose").Activate
    Range("H6").Offset(Cmpt).Formula = Cel
    Cmpt = Cmpt + 1
    Else: End If
    Next Cel

End Sub

Wouah! Impressionant la rapidité de réponse!

Un grand merci à tous, les 3 fonctionnent, et cela répond exactement à mon besoin!

Merci encore!