Discussion :

[gregoire59]

bonjour à toutes et a tous,
j'ai un problème j'ai un tableau dans lequel on double click pour sélectionner une cellule , je voulais savoir s'il était possible de donner une valeur numérique à chaque cellule (par exemple A4 =0% B4=25% C4=50% D4=75% E4=100% ) idem pour les autres lignes) et je voudrais qu'a la fin j'arrive à avoir la moyenne des cases sélectionnées par le double clique

j'espère que c'est assez clair...
merci d'avance

Classeur2.xlsm

[parmi]

Bonjour,

Je n'ouvre pas les fichiers avec macros comme beaucoup ici...

Ta question n'est pas très claire.
Qu'est-ce qu'il y a d'écrit dans tes cellules au juste lorsque tu double-cliques ?
Ton titre parle de texte, mais tu dis avoir ou vouloir des % (?!?)

[gregoire59]

bonjour,
merci pour la réponse,
je travail sur un formulaire, ou il y a 5 possibilité de réponse pour chaque question.
Les 5 possibilités de réponses sont écrites en texte dans les cellules ( ex: 1, not consulted; 2.beetwenn 1 & 3; 3. Consulted at least during the Initial Situation and Needs Assessment AND the Inception phases; 4. At least during project implementation; 5. During project inception, implementation and completion phases.).
J'avais fait un code pour qu'en double cliquant ca colore la cellule choisie.
Ce que je cherche a faire maintenant est d'attribuer une valeur numérique pour les 5 possibilités de réponse ( réponse 1 = 0%; réponse 2 = 25%; réponse 3=50%; réponse 4=75%; réponse 5=100%) afin de pouvoir à la fin avoir une formule me permettant de faire la somme de l'ensemble des cellules sélectionnées en double cliquant.

j'espère que c'est un peu plus claire..

j'ai joint un exemple du fichier sans macro

Classeur1.xlsx

Merci

[parmi]

Une façon que je vois si tu mets toujours de la couleur serait ceci
Je n'ai pas vraiment testé à fond...

Donc, en double-cliquant une cellule, ça la met en jaune et additionne le ratio que tu veux en bas
Si tu re-double-cliques, ça efface la couleur et soustrait le ratio
Pas certain que ça ressemble à ce que tu cherches à faire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ratio As Single
    Dim Ajout As Boolean
 
    Ajout = False
 
    With Target.Interior
        If .Color <> 65535 Then
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
            Ajout = True
        Else
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
            Ajout = False
        End If
    End With
 
    Select Case Target.Column
        Case 1: Ratio = 0
        Case 2: Ratio = 0.25
        Case 3: Ratio = 0.5
        Case 4: Ratio = 0.75
        Case 5: Ratio = 1
    End Select
 
    Cells(10, Target.Column) = IIf(Ajout, Cells(10, Target.Column) + Ratio, Cells(10, Target.Column) - Ratio)
    Cancel = True
 
End Sub

[gregoire59]

merci pour la réponse, c'est bien ce que je cherchais a faire
merci
bonne journée