tri avec tableau excel Résolu

Question

Bonjour à vous tous, j'espère que vous aller bien. Voici mon problème, j'ai ds un tableau comportant 47 colonnes et au max 10 lignes, dans ce tableau certaines cellules on des valeurs et d'autre non. J'aimerais savoir s'il existe une fonction dans excel qui permet de retourner les valeurs d'un tableau sur une ligne en ne conservant que les cellules contenant une valeurs. J'ai regardé les fct de bases de données et recherche avec excel mais je ne vois pas comment elle peuvent rgler ce problème. 
Merci

Raymond PENTIER · Answer

Désolé ! J'aurais bien aimé t'aider, mais je n'ai pas compris ce que tu cherches à faire.
Pourrais-tu mettre des exemples ?
-- 
C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond

michel_m · Answer

Bonjour,

Pas trop compris ta demande...

pour l'instant:  s'agit il de supprimer les lignes qui comporte une cellule vide dans tes 47 colonnes ?

ou...?

Dans l'attente

Michel

gilet38 · Answer

Dans un tableau (en piece jointe) de 20 colonnes et 10 lignes, il y a un certain nombre de cellules comportant une valeur. J'aimerais savoir comment faire pour retourner les valeurs des cellules sur une meme lignes. Autrement dit ds l'exemple ci-joint obtenir sur une meme ligne 
A1;A2;147;159;163;196.....826;877;A10;949 
MErci à l'Avance du temps que vous me consacrerai à la résolution de mes interogations et je m'excuse je suis a ma premiere utilisation de tel forums


http://www.cijoint.fr/cjlink.php?file=cj200805/cij0NazuGo.xls

michel_m · Answer

Bonjour,

Je n'ai pas regardé le forum pendant que j'écrivais une solution

Ici la zone est C6 à R36 et je reporte en ligne 40 dans l'ordre croissant (je vais mettre les adaptations à faire en gras.

La macro est copier coller dans l'éditeur VBA (tu dis si tu ne sais pas comment faire)

Sub aligner()
Dim plage As Range
Dim coll As Collection
Dim lig As Long
Dim cptr As Byte, nbre As Byte
Dim alpha(), i As Byte, j As Byte, tmp As Byte

Set plage = Range("C6:R36") ' a adapter
Set coll = New Collection
lig = 40 ' ligne de restitution à adapter

'recherche les valeurs en éliminant les  doublons
For Each cellule In plage
On Error Resume Next
coll.Add cellule.Value, CStr(cellule.Value)
On Error GoTo 0
Next
nbre = coll.Count

 'restitue la plage épurée des doublons dans une variable tableau
    ReDim alpha(nbre)
    cptr = 1
    While cptr <= nbre
        alpha(cptr) = coll(cptr)
        cptr = cptr + 1
    Wend

 'Tri croissant
  For i = 1 To nbre
        j = i
        For k = j + 1 To nbre
            If alpha(k) <= alpha(j) Then j = k
        Next k
    If i <> j Then
        tmp = alpha(j)
        alpha(j) = alpha(i)
        alpha(i) = tmp
    End If
  Next i
 'restitution des valeurs en ordre croissant
 Application.ScreenUpdating = False
 Rows(lig).ClearContents
cptr = 1
While cptr <= nbre
    Cells(lig, cptr) = alpha(cptr)
    cptr = cptr + 1
Wend
End Sub

michel_m · Answer

Salut Tchilou

La procédure dite du tri à bulles vient du site de Frédéric Sigonneau. Ca me permet ainsi de citer les sources ce que je n'avais malencontreusement pas fait dans cette démo.

Si te lances dans les macros , ce site est à mettre dans tes favoris (ou marque-pages). Ca se lit pas comme un roman policier, faut cogiter mais...

http://frederic.sigonneau.free.fr/

Amicalement,
Michel

PS à Gilet38: les valeurs dans la colonne A sont du texte sur ton exemple et ca ne marche pas dans la proc que je t'ai proposé

il est 18:12 H en France, bon appétit pour les gens du Québec!

Raymond PENTIER · Answer

Salut, gilet38.
Voici un début : https://www.cjoint.com/?fnbnckQRiL
50 colonnes x 10 lignes = 500 cases de A1 à AX10 contenant des nombres entiers de 5 à 45		
1) En A11 saisir =SI(A1>0;TEXTE(A1;"00");""). 						
2) En B11 saisir =A11&SI(B1>0;TEXTE(B1;"00");"")	
3) Recopier B11 jusqu'à AX12
4) Recopier la ligne 11 jusqu'à la ligne 20						
5) En A21 saisir le résultat final =AX11&AX12&AX13&AX14&AX15&AX16&AX17&AX18&AX19&AX20	
Est-ce que c'est à peu près ce que tu voulais ?

Raymond PENTIER · Answer

Encore moi.

Version définitive, garantie sans VBA : https://www.cjoint.com/?fncoGcOQey

50 colonnes x 10 lignes = 500 cases de A1 à AX10 					
1) En A11 saisir =SI(A1>0;A1&";";"")						
2) En B11 saisir =A11&SI(B1>0;B1&";";"")					
3) Recopier B11 jusqu'à AX12						
4) Recopier la ligne 11 jusqu'à la ligne 20					
5) En A21 saisir le résultat final =AX11&AX12&AX13&AX14&AX15&AX16&AX17&AX18&AX19&AX20
6) Si on veut absolument enlever le point-virgule final, utiliser en A23 la formule : =GAUCHE(A21;NBCAR(A21)-1)
	Fonctionne sans macro, quels que soient les contenus des cellules !

gilet38 · Answer

Un gros merci à michel_m et à Raymond Pentier et à tous les autres pour l'aide et le temps que vous m'avez accordé. Le tout fonctionne à merveille.

Raymond PENTIER · Answer

Eh bien tant mieux, et bonsoir au Québec (qui est sensiblement à l'heure des Antilles).
Au lieu de rester utilisateur anonyme, tu devrais t'inscrire comme membre ; c'est gratuit et ça te procure quelques facilités, comme d'indiquer que ta discussion est résolue, de consulter l'historique de tes interventions, et surtout de disposer d'une boîte aux lettres personnelle, qui te permettra d'échanger avec d'autres membres des messages privés. 
Ainsi, tu pourrais me faire admirer le résultat de ton travail, sans devoir l'exposer aux regards de tous les CCMistes.

Tri avec tableau excel

9 réponses

Newsletters