Discussion :

[andy38]

Bonjour, Quelqu'un m'a sugéré cete exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Target.Column = 3 Then  'si double clique surla colonne 3
    Target.Value = "X" 'on met un X
   Target.Offset(0, 1) = ""   'la cellulé décalcé d'un vers la gauche est vidé
ElseIf Target.Column = 4 Then   'si double clique surla colonne 4
    Target.Value = "X" 'on met un X
   Target.Offset(0, -1) = ""  'la cellulé décalcé de -1 vers la gauche, donc 1 a droite, est vidé
End If
End Sub

J'ai 2 questions
!- Est ce possible de mettre les OUI et les NON les uns au-dessous des autres sur one meme colonne, si oui commet gérer l'offset.?
2- A la fin de la compilation comment faire une remise a zero ("Reset") des cellules qui on maintenant de X et remettre les OUI et les NON pour une prochaine compilation .

Merci a l'avance

[Gorfael]

Salut andy38 et le forum
Utilise les balises, c'est plus facile à lire

Est-ce possible de mettre les OUI et les NON les uns au-dessous des autres sur one meme colonne, si oui commet gérer l'offset ?

quels "Oui" et quels "Non" ? Ceux que tu as sur ta feuille ? Alors pousse-toi de devant l'écran qu'on ait une chance de savoir.
.Offset(A,B) => décale de A lignes et de B colonnes.

A la fin de la compilation comment faire une remise a zero ("Reset") des cellules qui on maintenant de X et remettre les OUI et les NON pour une prochaine compilation .

On n'est ni dans ta tête, ne devant ton écran, et on ne connaît de ton projet que ce que tu as bien voulu nous en dire : c'est-à-dire... Rien. Hormis qu'il est question de X, oui et non.

Construire une macro à partir de rien est impossible.
Il faut un minimum de données (adresse, nom des feuilles, etc.), et ce qu'elle doit faire.
Donner une macro à adapter demande la macro et l'explication de l'adaptation à effectuer.
A+

[andy38]

Bonjour, Merci pour votre prompte réponse, Je reprends donc mon problème. Dans ma feuille d’Excel j’ai déjà 2 macros. 1e macro détecte les double-clique dans les cellules, 2e macro un bouton pour cumuler les résultats dans une autre feuille, tout ceci fonctionne très bien. But : compilation d’un sondage scolaire: J’ai un pamphlet qui contient tout prés de 125 questions dont la plus part sont des choix par OUI ou NON que les élèves remplissent en mettent des X dans les cases qu’ils sont choisis. Lors du retour du pamphlet pour la cueillette du data j’ai donc créer un formulaire Excel sur lequel on retrouve l’ensemble des questions
EX : 9- Je participe activement en classe. OUI NON

Je mets un X dans la cellule qui représente leur réponse, aussi si un X il y a, je mets un 1 dans une cellule adjacente pour fin de calcul, suite à la dernière question j’ai un bouton CUMUL et lorsqu'activé collecte les données sur Feuil2 du même classeur, d’où mes 2 questions
1- Est ce possible de mettre les OUI et les NON les uns au-dessous des autres sur one même colonne, si oui commet gérer l’offset.
2- A la fin de la compilation comment faire une remise a zéro ("Reset") des cellules qui on maintenant de X et remettre les OUI et les NON pour une prochaine compilation. Merci de me lire

[Gorfael]

Salut andy38 et le forum
Beuh! je suis toujours incompris (en 1, pas en 3 mots, hein!)

Le contexte peut effectivement être une aide, mais c'est ce que doit faire exactement la macro qui m'intéresse. P lus tu es précis, plus les réponses apportées t'aideront. Avec Excel, il y a toujours plusieurs solutions et ce serait malheureux de ne te fournir que celle qui est la moins adaptée à ton cas, non ?

colonne D les oui et non. D10="oui", D12="non", D14="oui", D16="non", etc... les réponses sont en E10, E12, E14, E16, etc.
Avec ces données

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
'si la colonne de la cellule est différente de E, on sort
Cancel = True
'annule "l'action" du double-clic
If UCase(Target.Offset(0, -1)) = "OUI" Then
' la cellule à droite = "OUI" (ou "oui"), alors
    Target.ClearContents
    'le contenu de la cellule est effacé
    Target.Offset(2, 0).ClearContents
    'le contenu de la cellule deux lignes en-dessous est effacé
Else
'sinon
    Target.ClearContents
    'le contenu de la cellule est effacé
    Target.Offset(-2, 0).ClearContents
    'le contenu de la cellule deux lignes au-dessus est effacé
End If
End Sub

J'avais commencé à faire un traitement global, Mais comme il n'y a pas assez d'infos...
A+

[andy38]

MERCI BEAUCOUP