Graphique avec nouvelle rubrique pour valeurs entre 0 et 5

[spitfire378]

Bonjour a tous,

J'ai créé un exemple de ce que j'aimerai obtenir. J'ai un premier tableau avec un nombre de personnes par ville. Dans un second tableau j'aimerai avoir toujours le nombre de personnes par ville mais si le nombre de personnes et inférieur a 5 la cellule Autres villes s'incrémente de 1.

Ca va etre plus claire dans mon exemple ci joint :

Merci

 

[suistrop]

Re : Graphique avec nouvelle rubrique pour valeurs entre 0 et 5

hello,
essai ca :

Sub cartman()
c = 1
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) > 4 Then
        Cells(c, 6) = Cells(i, 2)
        Cells(c, 5) = Cells(i, 1)
        c = c + 1
    End If
Next i
End Sub

 

[spitfire378]

Re : Graphique avec nouvelle rubrique pour valeurs entre 0 et 5

Merci suistrop c'est casiment ca si ce n'est que j'ai besoin d'incrémenter une cellule autre ville quand la condition Cells(i, 2) > 4 n'est pas respectée


J'ai essayé ce code mais ca ne marche pas

Sub cartman()
c = 2
d = 1
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) > 4 Then
        Cells(c, 6) = Cells(i, 2)
        Cells(c, 5) = Cells(i, 1)
        c = c + 1
    Else
        Cells(c-1, 5) = d
        'jai mi ma cellule autres villes en c-1,5
        d = d + 1
    End If
Next i
End Sub

 

[suistrop]

Re : Graphique avec nouvelle rubrique pour valeurs entre 0 et 5

hello,

essai ca :

Sub cartman()
c = 2
Cells(1, 5) = "autre ville"
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) > 4 Then
        Cells(c, 6) = Cells(i, 2)
        Cells(c, 5) = Cells(i, 1)
        c = c + 1
    Else
    Cells(1, 6) = Cells(1, 6) + Cells(i, 2)
    End If
Next i
End Sub

ici j ai compte le nombre d habitant qui sont dans d autre ville

 

[spitfire378]

Re : Graphique avec nouvelle rubrique pour valeurs entre 0 et 5

C'est génial, Merci a toi