Discussion :

[binbinou69]

Bonjour,
svp, j'ai besoin d'idée sur mes 2 pb.
1- j'ai défini une fonction double cliquez pour récupérer une liste par intermédiaire d'un userform.j'ai associé cette fonction à une cellule.
le pb, c'est que je veux interdire une saisie par le clavier dans cette cellule et que la seule valeur acceptée est celle récupérer par la fonction.
2-je récupére un fichier csv avec un chemin absolu dans le code java
exemple dans String chemin=c:/tmp/fichier.csv.

,j'aimerai utiliser un chemin relatif tel /tmp/fichier.csv pour la souplesse du code

je vous remercie d'avance.

[jfontaine]

Bonour,

1- j'ai défini une fonction double cliquez pour récupérer une liste par intermédiaire d'un userform.j'ai associé cette fonction à une cellule.
le pb, c'est que je veux interdire une saisie par le clavier dans cette cellule et que la seule valeur acceptée est celle récupérer par la fonction.

une solution serait d'utiliser une variable Global (Temp dans l'exemple ci dessous) qui contiendra la valeur acceptée dans cette cellule

Variable Global a déclarer dans un module

Code :

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

Global Temp As String

Ensuite dans le Worksheet_Change tu test si la cellule cible (ici A1) a cette valeur sinon tu vides la cellule

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Temp = "toto"
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    If Target.Value <> Temp Then Target.Value = ""
End If
End Sub

2-je récupére un fichier csv avec un chemin absolu dans le code java
exemple dans String chemin=c:/tmp/fichier.csv.

,j'aimerai utiliser un chemin relatif tel /tmp/fichier.csv pour la souplesse du code

J'imagine que ton classeur se trouve sous c

Code :

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

Thisworkbook.Path & "\tmp\fichier.csv"

NB :dans un chemin ce sont des anti-slashs (probablement une faute de frappe)

[binbinou69]

Bonjour,
merci pour votre réponse
voila, j'ai essayé de tester ça sur une case

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A5" Then
    If Target.Value <> "toto" Then Target.Value = ""
End If
End Sub

J'ai au retour une erreur d'exécution qui m'a rendu la fonction doublez-clique inactive.
voici mon code

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_Change(ByVal Target As Range)
If Target.Address(False, False) = "A5" Then
    If Target.Value <> "toto" Then Target.Value = ""
End If
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B2:B1000000")) Is Nothing Then
    Target.Value = ""
    Load UserForm1
    UserForm1.Show
End If
If Not Application.Intersect(Target, Range("C2:C1000000")) Is Nothing Then
    Target.Value = ""
    Load UserForm2
    UserForm2.Show
End If
End Sub

[Philippe Tulliez]

Bonjour,
Pour le point 1, tu peux aussi associer à cette cellule, une validation de données personnalisée avec comme formule =$A$4="Toto" ($A$4 représente ici l'adresse de la cellule en question)