extraire des cellules pleines dans une plage de cellules définies

Bonjour,

tu peux essayer cette procedure ( à mettre en action d'un click de boutton )

l'exemple suivant effectue le test sur A1:10 de la feuille 1 et retourne les résultats en A1:A10 de la feuille 2 .

---
Private Sub CommandButton1_Click()
Dim J As Integer
J = 1
For i = 1 To 10

If ((Worksheets("feuil1").Cells(i, 1).Value <> Empty)) Then
Worksheets("feuil2").Cells(J, 1).Value = Worksheets("feuil1").Cells(i, 1).Value
J = J + 1
End If

Next i
End Sub

---

A+

Salut Vince,

Il existe plusieurs autres solutions, dont celle-ci :
Sélectionner la plage d'extraction / F5 / Cellules / Constantes / OK / Copier / sélectionner la première cellule de la plage de réception / Coller.

Ândré.