Zone et Valeur

Bonjour,

Je travaille sur Excel 2016 (contrairement à indiquer sur mon profil je crois).

J'aimerai faire des boites à moustaches. J'ai remarqué que le graphique zone et valeur permet de faire des boites à moustache. Problème, c'est que sur ma feuille de calcul mes colonnes sont de taille très différentes et ça ne m'affiche soit rien, soit ça ne m'affiche plus de boite à moustache.

Exemple si je sélectionne la colonne E et F jusqu'à la ligne 200 ça ne marche pas. Je vous joins un extrait de mon document.

Je vous remercie d'avance pour votre aide précieuse.

Bonjour,

Tu as plein de cellules vides non vides!...

Fais un nettoyage, trie et crée ensuite les graphiques.

Cdlt.

Merci pour ta réponse.

Comment faire pour supprimer les cellules vides non vides ?

Re,

Tu les sélectionnes et tu fais Suppr.

Cdlt.

Haha.

Là où ça se complique c'est que le fichier original contient une cinquantaine de colonnes donc c'est un peu long. Es ce qu'il y a un moyen de tout effacer d'un coup ?

J'ai essayé F5, sélectionner cellules vides, supprimer. Mais vu qu'il ne perçoit pas ça comme cellules vides ça ne marche pas.

Je pense que si les cellules n'apparaissent pas vides c'est car je leur affecter pour l'une des valeur d'un si la valeur "", puis j'ai fait un copier-coller collage spéciale valeur.

Une idée ?

Cordialement

Re,

Une proposition pour nettoyer.

A tester.

Cdlt.

Option Explicit

Public Sub XXX()
Dim lastCol As Integer, lastRow As Long, lCol As Integer, lRow As Long
Dim cn As Integer, rw As Long, k As Long
Dim rng As Range
Dim tbl As Variant, arr() As Variant
Dim I As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        lCol = 2: lRow = 2
        lastCol = .Cells(lRow, .Columns.Count).End(xlToLeft).Column
        For cn = lCol To lastCol
            lastRow = .Cells(.Rows.Count, cn).End(xlUp).Row
            Set rng = .Cells(lRow, cn).Resize(lastRow - 1)
            tbl = rng.Value
            For I = 2 To UBound(tbl)
                If Len(tbl(I, 1)) > 0 And IsNumeric(tbl(I, 1)) Then
                    ReDim Preserve arr(k)
                    arr(k) = tbl(I, 1)
                    k = k + 1
                End If
            Next I
            rng.Offset(1).ClearContents
            .Cells(lRow + 1, cn).Resize(k).Value = Application.Transpose(arr)
            Erase arr: k = 0
        Next cn
    End With
End Sub