[speedball]

Bonjour à tous

Je tourne en rond
je ne trouve pas la fonction pour remplir une cellule en fonction d'une autre.
Au billard deux équipes font 10 matchs, donc si une équipe à 6, l'autre à 4.
Je ne sais pas comment faire, pour quand je rentre un score de 6 à l'équipe1 et bien l'équipe2 est 4.
De plus mon fichier intègre plusieurs divisions
Les départementaux font 10 matchs et les nationaux en font 14.

Merci à tous ceux qui pourront m'aider.

[jeanpierre]

Bonsoir speedball,

Pas vraiment sûr de pouvoir te répondre, le billard, pour moi, c'était il y a un peu plus de 40 ans....

Peux-tu déposer un fichier ZIPPE (clic droit dans l'explorateur Envoyer vers/Dossier compressé....), en bas de ce post, Gérer les pièces jointes, recherche sur ton disque et Uploader....

Avec ton questionnement et les réponses attendues...

[speedball]

Merci Jean pierre
J'avais créé un post il y a quelque jours
la
http://www.excel-downloads.com/forum...lle-excel.html
il y a une pièce jointe

A+

[jeanpierre]

Re,

Alors Pourquoi ne pas être resté sur le même fil ?????

On ne comprend plus rien ensuite...

[speedball]

Je croyais être tomber dans les oubliettes

A+

[jeanpierre]

Re,

Il n'y a pas d'oubliettes ici,

Lorsque l'on arrive, on vois tous les fils non lus....

Après, c'est une histoire de question bien posée ou pas...

Bonne soirée

[speedball]

Ok Ok Ok

Mais ma question est elle bien posée?
Parce que je cherche toujours comment je peux remplir une cellule en fonction d'une autre.
Et ceux sans formules ( je pense) car chacune doit pouvoir être remplie manuellement.
Peut être en faisant un macro?
Macro c'est trop dur pour moi.

A+

[jeanpierre]

Bonsoir speedball, le forum,

Comme je perds un peu la mémoire, je ne suis pas sûr de t'avoir demandé ceci : hier à 20h00 ::: Peux-tu déposer un fichier ZIPPE (clic droit dans l'explorateur Envoyer vers/Dossier compressé....), en bas de ce post, Gérer les pièces jointes, recherche sur ton disque et Uploader....

[speedball]

Je te joins un fichier
mais j'ai copié la feuille concernée de mon fichier
et tous ne fonctionne plus correctement
mais ça donne un bon aperçu

A+

[speedball]

Bonsoir à tous
J'ai fait une tentative en VB, mais ça ne fonctionne pas

Je cherche à écrire
Si E4 = départementale 3 ou départementale 2
Alors Di=Ci-10
i étant une ligne entre 6 et 58

Si E4 = nationale 3 ou nationale 2
Alors Di=Ci-14
i étant une ligne entre 6 et 58

Ça en macro je n'y arrive pas quelqu'un peut il m'aider
Voir la pièce jointe précédemment pour éclaircir.

Merci

[Banzai64]

salut
Pas tout compris (mon age)

sinon si c'est pour completer les cases D6 à D58 en fonction de la saisie en C6 à C58

à copier de D6 à D58
=SI(C6>0;SI(GAUCHE($E$4)="D";10-C6;14-C6);"")
Voilà et désolé si c'est pas ce que tu attendais

[speedball]

Merci Banzai 64

Mais je voudrais que ça puisse se faire dans les 2 sens
C'est à dire un résultat rentrer en C6 remplisse la cellule D6, mais que l'on puisse aussi bien rentrer un score en D6 qui remplierait automatiquement la case C6.

C'est pour ceci que je pense qu'il faut créé une macro que je n'arrive pas faire.
Et il y a le problème du forfait, un score de 10 à 0 et un score de 10 à F soit possible.
Mais si la macro ignore le forfait et inscrit 0 ce ne serait pas grave.

Si ça se trouve se n'est même pas possible?

Pourtant j'ai lu sur le forum qu'avec excel on pouvait tout faire sauf ranger des verres en cristal sur un étagère

A+

[_Thierry]

Bonjour le Fil, le Forum, Jean Pierre, SpeedBall, Banzai64

On peut le faire en évènementielle, mais bon c'est quand même assez tordu comme truc....

Voici le code :

 
Option Explicit
Private Locked As Boolean
Private PlageA As Range, PlageB As Range
Private Sub Worksheet_Change(ByVal Target As Range)
If Locked = True Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
   Set PlageA = Application.Union(Range("C6:C56"), Range("H5:H56"))
   Set PlageB = Application.Union(Range("D6:D56"), Range("I5:I56"))
    
    If Not Application.Intersect(Target, PlageA) Is Nothing Or _
    Not Application.Intersect(Target, PlageB) Is Nothing Then
    
        Locked = True
        Score Target
        Locked = False
    End If
End Sub
Private Sub Score(ByRef Target As Range)
Dim MaxMatch As Byte
Dim Col As Integer
    
    
    Select Case Left(Range("E4"), 1)
        Case "D"
            MaxMatch = 10
        Case "N"
            MaxMatch = 14
        
    End Select
        
            If Target.Column = 3 Or Target.Column = 8 Then
                Col = 1
            Else
                Col = -1
            End If
            
                Target.Offset(0, Col) = MaxMatch - Target.Value
End Sub

J'ai aussi mis le fichier pour tester...

Bonne soirée

@+Thierry

[speedball]

Bonjour tous le monde

Mr Thierry excellant ce que tu m'as fait.
Ça me convient parfaitement, j'ai juste un souci car j'ai déjà des macros sur cette feuille.
Et je n'arrive pas à l'écrire dans l'ordre car ça Ram ou pire ça plante.

Voici mes codes existants:


Code:

Private Sub Worksheet_Activate()

With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:="toto"

.EnableSelection = xlUnlockedCells
.Protect Password:="toto", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True, DrawingObjects:=True
End With

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("E4,H4,M1")) Is Nothing Then
AffichageSaison
End If

End Sub



Merci
Je n'ai pas réussi à faire une aussi belle présentation (désolé)

[_Thierry]

Bonsoir SpeedBall, le Fil, le Forum

Oui ton problème vient de cette macro

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("E4,H4,M1")) Is Nothing Then
AffichageSaison
End If

End Sub

Tu ne peux pas avoir deux fois la même évènementielle

A toi de voir....

Bon courage

@+Thierry