Discussion :

[fzayoubi]

Bonjour,

j'ai besoin d'aide svp. j'aimerai que quand je clique sur une cellule de la colonne W et où c'est écrit "attente commande" qu'on m'affiche un userform pour passer commande.
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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Application.Intersect(Target, Range("W18:W500")) Is Nothing Then
 
        If Target.Value = "attente commande" Then
        Cancel = True
        passer_commande.Show
        End If
 
 
End If
End Sub

le userform ne s'affiche pas et j'ai une erreur : incompatibilité du type sur la ligne 3 du code

Vous pouvez m'aider svp ?

merci d'avance

[Menhir]

Plus simple pour ta ligne 3 :

Code :

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

If Target.Column = Range("W1").Column Then

Cela dit, je trouve étrange que tu transfères la référence de cellule avec "ByVal"...
Je n'en suis pas sûr mais il est probable que cette option transfère uniquement le contenu de la cellule et non sa référence.

[unparia]

Bonjour
Je ne fais que passer en vitesse (mon esprit et mon corps sont actuellement mobilisés à d'autres fins) :
deux causes possibles de l'erreur : -->>
- soit "attente commande" est le résultat d'une formule (et c'est alors la propriété Text et non Value, qu'il faut utiliser
- soit le message d'erreur concerne l'initialisation du userform (code à son appel) et non le code montré ici.

[zenpbb]

Bonjour,

Autre cause possible : ton double-clic s'effectue sur une plage de plusieurs cellules fusionnées.
Dans ce cas, Target.Value renvoie un tableau, d'où l'incompatibilité de type avec une chaîne de caractères.
Essaie alors avec

Code :

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

If Target.Cells(1).Value = "attente commande" Then

[fzayoubi]

Bonjour tout le monde.
à priori et comme zenpbb avait dit, c'était à cause d'un double click sur 2 cellules fusionnées.
j'ai du juste changer :

Code :

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

If Target.Value = "attente commande" Then

par :

Code :

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

If Target.Cells(1).Value = "attente commande" Then

et ça à marcher.

Merci pour votre aide

[fzayoubi]

Bonjour,

Je reviens vers vous encore une fois car mon code fonctionne mais pas pour toutes les cellules.
ce que je cherche vraiment c'est de double cliquer sur n'importe quelle cellule de la colonne W où c'est écrit "attente commande" et que le formulaire s'affiche pour passer commande pour cette ligne précise.
or il ne marche que pour la 1ere cellule (W18) de ma liste.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
For i = 18 To 10000
b = Target.Row
 
C = Target.Cells(i).Value
d = Target.Column
nom_onglet = Left(Range("C" & b), 31)
 
 
 
If C = "attente commande" Then
 
 
num_ligne = Application.Match(Worksheets("Reste à faire").Range("R" & b), Worksheets(nom_onglet).Range("A1:A39"), 0)
quantity = ThisWorkbook.Worksheets(nom_onglet).Range("I" & num_ligne)
lib = ThisWorkbook.Worksheets(nom_onglet).Range("E3")
code = ThisWorkbook.Worksheets(nom_onglet).Range("E" & num_ligne)
 
 
  Load passer_commande
  passer_commande.code_ki.Caption = Range("B" & b)
  passer_commande.libelle_operation.Caption = lib
  passer_commande.code_SAP.Caption = code
  passer_commande.libelle_PLV.Caption = Range("R" & b)
  passer_commande.quantite.Caption = quantity
 
  passer_commande.Show
 
End If
 
Next
End sub

j'ai besoin encore une fois de votre aide !
Merci d'avance