Problème Worksheet_BeforeDoubleClick

RONIBO · 25 Novembre 2013

Bonjour,

Je viens vers vous concernant un petit problème que je rencontre.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("G10")) Is Nothing Then Target = Target + 1
End Sub

Le code ci-dessus me permet le changer de numéro avec un double clic sur la cellule G10.

Le problème est que je ne peut plus modifier les autres cellules avec le double clic.

Est ce que on peut rectifier le code?

Merci d'avance.

Bonne journée

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Bonjour,

pas ouvert ton fichier, mais modifie peut être comme suit :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("G10")) Is Nothing Then 
Target = Target + 1
Cancel = True
End If
End Sub

bon après midi
@+

RONIBO · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Quelle réactivité, en plus sans ouvrir le fichier, je dis chapeau !

J'en profite de sujet pour poser une autre question car c'est lien avec ce bout de code,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Chemin As String, MyFile As String
Range("F1:G1").Select
SaveAsUI = False
Cancel = True
With Worksheets(NomFeuille)
Select Case Left(.Range("F10"), 1)
Case "D": Chemin = "C:\"
'Case "F": Chemin = CheminDossierFacture
End Select
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Le répertoire devis n'existe pas !" & Chr(10) & "Le devis sera enregistré sur le bureau de votre ordinateur", vbInformation, "Répertoire inexistant"
Chemin = "C:\Users\" & Application.UserName & "\Desktop\"
End If
MyFile = Chemin & .Range("F10") & .Range("G10").Text & Chr(160) & "-" & Chr(160) & .Range("A12") & Chr(160) & "(" & .Range("F14") & ")" & ".xlsm"
End With
If Dir(MyFile) <> "" Then
If MsgBox("Un devis nommé '" & MyFile & "' existe déjà à cet emplacement." & Chr(10) & Chr(10) & "Voulez-vous la remplacer ?", vbQuestion + vbYesNo + vbDefaultButton2, "Devis déjà existant") <> vbYes Then
MsgBox "Le devis n'a pas été enregistré !", vbInformation, "Annulation"
Exit Sub
End If
End If
Application.EnableEvents = False
Application.DisplayAlerts = False
Me.SaveAs MyFile
Application.DisplayAlerts = False
Application.EnableEvents = True
MsgBox "Le devis a bien été enregistré !", vbInformation, "Confirmation"
End Sub

Ce code me permet d'enregistrer les fichiers dans des dossier bien précis.

J'aimerais passer au numéro suivant (+002) suivant lorsque je clic sur enregistrer.

Cela m'éviter de la modifier moi même.

Est ce que c'est possible à réaliser?

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

vois pas trop le rapport avec la question initiale.... mais tu veux rajouter 2 à quoi ?

RONIBO · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Oups pas deux mais un,

Je veux passer au numéro suivant (ex : j'ai fais ma première facture, j'enregistre, une fois enregistrer passer au numéro deux)

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

et le numéro à incrémenter on le trouve où ? sur la feuille ?

RONIBO · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Oui si la même cellules G10

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

bah... range("G10") + 1

RONIBO · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Je viens s'essaye et je me retrouve avec une erreur de compilation

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

Je viens s'essaye et je me retrouve avec une erreur de compilation

quelle ligne ?

peut être en modifiant cette instruction comme suit :

Code:

MyFile = Chemin & .Range("F10") & .Range("G10").Value + 1 & Chr(160) & "-" & Chr(160) & .Range("A12") & Chr(160) & "(" & .Range("F14") & ")" & ".xlsm"

A voir ensuite ce que contiennent les cellules et si le fichier n'existe pas déjà....

RONIBO · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

La ligne
Range ("G10") + 1

J'ai essayé se que tu m'as dit dernièrement, sans succès, le numéro change pas

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

essaye d'initialiser "MyFile" comme le code donné ci-dessus... Après à voir ce que contient G10 dans ton classeur....

RONIBO · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Il y a toujours le même numéro

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

ceci explique cela alors... le nom de ton fichier existe déjà....

Pierrot93 · 25 Novembre 2013

Re : Problème Worksheet_BeforeDoubleClick

Re,

ou peut être :

Code:

MyFile = Chemin & .Range("F10") & (.Range("G10").Value + 1) & Chr(160) & "-" & Chr(160) & .Range("A12") & Chr(160) & "(" & .Range("F14") & ")" & ".xlsm"

Problème Worksheet_BeforeDoubleClick

RONIBO

XLDnaute Impliqué

Pièces jointes

Pierrot93

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Pièces jointes

Pierrot93

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires