• Initiateur de la discussion Initiateur de la discussion cri3
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cri3

XLDnaute Nouveau
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
 
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"):

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!!!
 
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 🙁
 
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


Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
Réponses
2
Affichages
2 K
lyonnas
L
Réponses
1
Affichages
995
K
Réponses
3
Affichages
7 K
kakou013
K
K
Réponses
13
Affichages
7 K
kevinteamgravity
K
E
Réponses
10
Affichages
2 K
estopa88
E
L
Réponses
7
Affichages
2 K
C
Réponses
2
Affichages
2 K
charles2b
C
T
Réponses
6
Affichages
2 K
totof88
T
Réponses
3
Affichages
1 K
C
Réponses
4
Affichages
1 K
Christian3000
C
L
  • Question Question
Réponses
4
Affichages
820
Retour