HELP petit probleme

[cri3]

bonjour a tous et joyeux noel

j'ai un programme de tarot pour comptabiliser les points mais je l'ai modifier mais etant nul sur exel j'ai deux petit soucie
1) dans la colonne classement les negative apparaissent pas
2) je voudrais que la colonne position reste figeé comme ca (car a chaque fois que je rentre un score elle bouge avec le classement
MERCI pour vos reponse
christian

 

[fanfan38]

Re : HELP petit probleme

Bonjour (et joyeuses fêtes)
Un fichier serait le bien venu...
A+ François

 

[cri3]

Re : HELP petit probleme

un oubli ouuppppsssss

 

[skoobi]

Re : HELP petit probleme

Bonjour fanfan38, cri3,

1) dans la colonne classement les negative apparaissent pas

Bizzare, chez moi ils apparraissent.

2) je voudrais que la colonne position reste figeé comme ca (car a chaque fois que je rentre un score elle bouge avec le classement

pour celà, remplace la macro actuelle par celle-ci (bouton droit sur l'onglet de la feuille puis "visualiser le code"):

Application.ScreenUpdating = False
Range("c4").CurrentRegion.Sort Key1:=Range("b4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
place = 0
equipe = 1
For Each cellule In Range([A4], [A4].End(xlDown))
    Set pos = cellule.Offset(0, 8)
    place = place + 1
    If place = 5 Then
        place = 1
        equipe = equipe + 1
    End If
    Select Case place
        Case 1: pos.Value = "NORD" & equipe
        Case 2: pos.Value = "SUD" & equipe
        Case 3: pos.Value = "EST" & equipe
        Case 4: pos.Value = "OUEST" & equipe
    End Select
Next cellule
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Bonnes fêtes!!!

 

[JHA]

Re : HELP petit probleme

Bonjour,

pour le classement des points négatifs ton calcul est correct, changes simplement la couleur de police dans la MFC.

JHA

 

[cri3]

Re : HELP petit probleme

MERCI A TOUS POUR VOS REPONSE
mais je suis vraiment nul sur excel je ne sais pas ou aller pour changer la macro comme indiquer ci-dessus et ou se trouve le MFC pour changer la couleur police
desole d'etre aussi nul 🙁

 

[Banzai64]

Re : HELP petit probleme

Bonjour

Une réponse
(Travailles toujours sur une copie)

MFC
Sélectionnes la colonne entière C (en clicquant sur la lettre 'C')
Menus : Format --> Mise en forme conditionnelle ...
Tu vas voir une fenêtre intitulée 'Mise en forme conditionnelle'
Clicques sur 'Supprimer...'
Coches 'Condition 1'
Ok
Ok


Pour la Macro

Clicques avec le bouton droit sur l'onglet 'Tarot'
Dans le menu qui apparait choisis 'Visualiser le code'

Dans la fenêtre qui apparait supprime tout ce qui est
Puis colle la macro fournie par skoobi

Private Sub Worksheet_Change(ByVal zz As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("c4").CurrentRegion.Sort Key1:=Range("b4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
place = 0
equipe = 1
For Each cellule In Range([A4], [A4].End(xlDown))
    Set pos = cellule.Offset(0, 8)
    place = place + 1
    If place = 5 Then
        place = 1
        equipe = equipe + 1
    End If
    Select Case place
        Case 1: pos.Value = "NORD" & equipe
        Case 2: pos.Value = "SUD" & equipe
        Case 3: pos.Value = "EST" & equipe
        Case 4: pos.Value = "OUEST" & equipe
    End Select
Next cellule
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Voila c'est tout

 

[cri3]

Re : HELP petit probleme

un grand MERCI a vous tous pour toutes ces réponses c'est cool et en plus ca fonctionne
JOYEUSE FETES DE FIN D'ANNEE