Création de code

bonjour a tous,

je n'y connais rien en VBE et je cherche à enregistrer le code suivant:

Private Sub Worksheet_beforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

temp = Array("OUI", "NON")

If Not Application.Intersect(Target, Range("B2:B10")) Is Nothing Then

With Target

p = Application.Match(Target, temp, 0)

If Not IsError(p) Then

If p = UBound(temp) + 1 Then p = 0

Else

p = 0

End If

Target = temp(p)

Cancel = True

End With

End If

End Sub

Je n'y arrive pas.

Je fais: outils/Macro/Visual Basic Editor insertion/module puis je tape le code dans la fenêtre.

je tape F5 et la je ne sais plus comment faire.

pouvez vous m'aider svp

merci d'avance[/code]

Salut,

Ce code n'est pas à mettre dans un module mais plutôt dans le code de la feuille.

Au dessus des modules, tu as feuil1(NOM DE LA FEUILLE), feuil2 (NOM DE LA FEUILLE)... THISWORKBOOK.

Et bien tu mets ton code dans la "feuil" ou tu souhaites voir tes modifications.....

A te lire,

Souri84

Une fois que j'ai tapé le code, je fais quoi stp?

MERCI

ben j'en sais rien, tu fais ton code....

Là je vois par exemple que si tu mets une liste de oui/non dans B2:B10, et que tu doubles clic dessus, ça te l'inverse...

par exemple, tu as oui en B2, tu double clique, ça te mets NON, tu redouble clique, ça te remet OUI

Maintenant, à toi devoir ce que tu veux faire de cela....

A+

Souri84

Bonjour,

Et si tu nous disais plutôt ce que tu cherches à faire.

Amicalement

Dan

re,

en fait , je travail sur un tableau permettant le suivi de différents contrats de maintenance.

Ces contrat sont soit à Reconduction Expresse ou à Tacite Reconduction.

J'ai donc fais 2 colonnes et j'aimerais faire apparaitre une croix ou eventuellement OUI ou NON (selon que la reconduct° du contrat soit Expresse ou Tacite) dans les cellules.

Je préferre quant meme la croix.

j'ai 2 soucis.

1/ je ne connais pas le language VBA

2/ une fois que j'ai un code, je ne sais pas comment l'enregistrer pour qu'il s'exécute.

je vous mets un extrait de mon fichier.

https://www.excel-pratique.com/~files/doc/g8DoHClasseur1.xls

merci d'avance pour votre aide.

re,

Pourquoi tu ne fais pas une simple liste de déroulante par données / Validation dans laquelle tu choisis Oui ou Non ou la croix ?

Dan

re,

oui effectivement tu as raison et en plus c'est beaucoup plus simple.

Je vais faire comme cela.

Si tu connais, donne moi quand meme le code pour la croix, cela pourrait peut etre m'aider dans le future qui sait...

je te remercie pour tout

re,

Regarde le fichier. si tu cliques entre I2 et J20, cela te met un X dans la cellule. Un nouveau click enlève le X (toutefois tu dois au préalable sélectionner une autre cellule avant d'enlever le click dans la cellule de ton choix.)

Tu peux mettre ou enlever ces X jusque la ligne 100.

https://www.excel-pratique.com/~files/doc/Trwu9Classeur2.xls

Amicalement

Dan

re,

Sous les ordres de Nad voici un nouveau fichier

Si tu cliques par exemple en I2, la croix se met en I2; zut ! tu te rends compte que c'était en J2 que tu devais la mettre ; clique en J2, la croix se mettra en J2 et s'effacera de I2.

Il faut impérativement que la cellule F soit renseignée.

https://www.excel-pratique.com/~files/doc/hJ6SgClasseur3.xls

Dan et Nad

Un grand merci a toi et sincèrement, toutes mes félicitations car maitriser un tel language, ça ne doit pas être du gateau...

a bientot

rebonjour Nad,

pourrais tu m'appliquer le code pour affichage des croix dans le document cfi-joint stp?

je n'y arrive pas du tout.

je t'en remercie d'avance.

Petu

zut, j'ai oublié le fichier...voilà:

https://www.excel-pratique.com/~files/doc/a9JtDClasseur1.xls

les colonnes concernés sont G et H

merci

Re,

Dans ton fichier remplace la macro que tu as mise par celle ci-après :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 7 Then 'N° colonne G
.Value = "X"
.Offset(0, 1) = ""
End If
If .Column = 8 Then 'N° colonne H
.Value = "X"
.Offset(0, -1) = ""
End If
End With
End Sub

Amicalement

Dan

re,

merci c'est parfait

a bientôt et encore merci

Petu