Problème Worksheet_BeforeDoubleClick

[RONIBO]

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]

Re : Problème Worksheet_BeforeDoubleClick

Bonjour,

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

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]

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]

Re : Problème Worksheet_BeforeDoubleClick

Re,

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

 

[RONIBO]

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]

Re : Problème Worksheet_BeforeDoubleClick

Re,

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

 

[RONIBO]

Re : Problème Worksheet_BeforeDoubleClick

Oui si la même cellules G10

 

[Pierrot93]

Re : Problème Worksheet_BeforeDoubleClick

Re,

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

 

[RONIBO]

Re : Problème Worksheet_BeforeDoubleClick

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

 

[Pierrot93]

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 :

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]

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]

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]

Re : Problème Worksheet_BeforeDoubleClick

Il y a toujours le même numéro

 

[Pierrot93]

Re : Problème Worksheet_BeforeDoubleClick

Re,

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

 

[Pierrot93]

Re : Problème Worksheet_BeforeDoubleClick

Re,

ou peut être :

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