Autres Recopier plage de cellules pleines sans les cellules vides

[Caninge]

Bonjour,

ce n'est pas faute d'avoir cherché sur le forum la solution à mon problème.
Je me fie donc à vos connaissances pour résoudre mon problème.
Comment recopier les cellules pleines de la feuille 1 dans la feuille 2 sans prendre en compte les cellules vides.
Surement simple mais...

Cher excelliens merci de se pencher sur mon fichier.

CANINGE

 

[djidji59430]

Bonjour à tous,

Un essai ;

 

[Caninge]

Bonjour djidji59430

je ne veux pas faire un filtre automatique sur ma feuille.
ma plage de données se nomme "pts_perdus_Chantal" en cas de besoin.
merci

 

[patricktoulon]

bonjour
pourquoi ne pas filtrer????????
tu remplace "$C$2:$C$12" par le nom de ta plage

copy destination ne pouvant pas être transposé avec des cellules non contiguës
ET SANS PASTE !!!!! donc pas besoins d’être sur une des feuilles concernées
LE filtre est enlever tout de suite

Sub test()
    Dim x&
With Feuil1.Range("$C$2:$C$12")' Feuil1.Range("TOTO")
        .AutoFilter Field:=1, Criteria1:=">0"
        For Each cel In .SpecialCells(xlVisible)
            With Feuil2.[C3].Offset(, x): .NumberFormat = "0.00%": .Value = cel.Value: x = x + 1: End With
        Next
        .AutoFilter
    End With
End Sub

on aurait pus boucler sur les cells sans filtre mais sur une liste plus longue la différence en terme de temps se fait sentir
😉

 

[djidji59430]

Bonjour djidji59430

je ne veux pas faire un filtre automatique sur ma feuille.
ma plage de données se nomme "pts_perdus_Chantal" en cas de besoin.
merci

"et quid de la solution matricielle ?

Crdlmt

 

[mapomme]

Bonjour à tous,

Une autre piste ?:

Sub test()
Dim t, n&, i&
   With Feuil1: t = .Range(.Cells(2, "c"), .Cells(.Rows.Count, "c").End(xlUp)): End With
   For i = 1 To UBound(t)
      If Len(t(i, 1)) > 0 Then n = n + 1: t(n, 1) = t(i, 1)
   Next i
   If n > 0 Then
      Feuil2.Range("c2").Resize(, n) = Application.Transpose(t)
      Feuil2.Range("c2").Resize(, n).NumberFormat = "0.00%"
   End If
End Sub

 

[job75]

Bonjour à tous,

Sub Copier()
On Error Resume Next 'si aucune SpecialCell
With Feuil2.[C2]
    .Resize(, .Parent.Columns.Count - .Column + 1).ClearContents 'RAZ
    Feuil1.[C:C].SpecialCells(xlCellTypeConstants, 1).Copy
    .PasteSpecial xlPasteAll, Transpose:=True
End With
Application.CutCopyMode = 0
End Sub

A+

 

[Caninge]

Bonjour à tous,

vous allez me dire que je suis embêtant, mais je préférerai uns solution sans VBa et sans filtre.
uniquement par une formule.
Dans le genre du fichier joint que d'ailleurs je n'ai pas pu adapter.

Merci

 

[mdo100]

Bonjour à toutes et tous,
@Caninge,

En "Feuil2" cellule "C2".

=SIERREUR(INDEX(pts_perdus_Chantal;PETITE.VALEUR(SI(pts_perdus_Chantal<>"";LIGNE(pts_perdus_Chantal)-1);COLONNE()-2));"")

Formule matricielle a valider avec les touches ctrl + maj + entrée

Cordialement.

 

[job75]

Salut mdo100,

Bah djidji59430 au post #2 a donné la même formule, suffit de la tester.

A+

 

[mdo100]

Salut job75,

La formule de djidji59430 ne fonctionne pas puisqu'elle prend en compte les cellules vides sauf celles inférieures ou égales à 0

Cdlt.

 

[job75]

La formule de djidji59430 fonctionne très bien, son test >0 est aussi bien que votre <>"".

 

[mdo100]

Re job75,

Moi je veux bien, mais tant qu'une valeur quelconque n'a pas été mise dans les cellules vides de la "Feuil1" quitte à la supprimer ensuite, alors la formule ne fonctionne pas correctement.
Voir les cellules jaunes du fichier joint:

Cdlt.

 

[job75]

Dans votre fichier les cellule "vides" ne sont pas vides mais contiennent le texte "".

Dans le fichier de djidji59430 les cellules "vides" ne contiennent rien.

 

[mdo100]

Voui 🙂, mais ce n'est pas mon fichier, mais celui de son auteur et je préfère ma formule puisqu'elle tien compte des zéros et des négatifs, ce qui peut arriver même avec les pourcentages.

Bonne soirée.