Comment sélectionner les cases non-vides d'une plage et les afficher dans une seule colonne?

0

Bonjour,


Je cherche à mettre dans une seule colonne des informations contenus dans des cases aléatoires d'une plage. En enlevant les cases vides (conserve que les cases non-vides) Je vous joins un exemple:

 https://www.cjoint.com/doc/22_05/LEEnsEFlLBA_excel.xlsx

Je cherche une formule qui me permettrait de le faire automatiquement.


Merci d'avance pour votre aide,

X

    Posté le 30 mai, 15:21
    par Xcel
    Répondre
    0

    Bonjour,

    Voici une solution en VBA.

    https://www.cjoint.com/c/LEErHzprx5g

    Le VBA est documenté mais si explications complémentaires nécessaires, n'hésites pas à me revenir.

    Sub Extraction()
    '*********************************************************************************
    ' Procédure pour extraire les cellules non à 0 ou non vides dans une plage C3:E8
    '*********************************************************************************
    Dim i As Integer  'curseur ligne plage
    Dim i2 As Integer  'curseur colonne plage
    Dim i3 As Integer  'curseur ligne Extraction
    Dim V_Plage(1 To 18) As String  'tableau des Extractions
    Dim V_N_EXTR As Integer  'compteur lignes Extractions

    V_N_EXTR = 1  'initialisation compteur ligne Extraction
    Range(Cells(3, 11), Cells(20, 11)).ClearContents
    For i = 1 To 6  'boucle des 6 lignes de la plage
      For i2 = 1 To 3  'boucle des 3 colonnes de la plage
      If Cells(i + 2, i2 + 2) <> 0 _
      And Cells(i + 2, i2 + 2) <> "" Then  'test si cellul <>0
      V_Plage(V_N_EXTR) = Cells(i + 2, i2 + 2)  'enregistrement dans tableau
      V_N_EXTR = V_N_EXTR + 1  'agrémentation du numéro de ligne
      End If
      Next i2
    Next i
    For i3 = 1 To 18  'Ecriture du tableau dans la colonne K
      Cells(i3 + 2, 11).Value = V_Plage(i3)       'adapter la colonne en changeant  le 11
    Next i3
    End Sub

    Bonne continuation

    Chris

    CHRIS Posté le 30 mai, 19:38
    par CHRIS
    0
    Posté le 31 mai, 12:49

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :