Microsoft 365 Valeur d'une liste dans la requête ADODB

[VBA_dev_Anne_Marie]

Bonjour,

J'ai une liste déroulante avec des valeurs. Je voudrais cliquer dans cette liste et afficher la valeur correspondante via une requête ADODB dans une autre cellule.
Mon code pour passer la valeur de la liste dans une variable que je vais utiliser dans la requête est:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "E15" Then
GET_GROUPE Split(Target.Value, " - ")(1)
End If
End Sub


J'ai mis Split(Target.Value, " - ")(1) car mes variables se presente comme LMM - 55C, KPCF - 5577 , je dois récupérer les caractères après le tiret. Ce code ne marche pas

 

[laurent950]

Bonsoir @MarieParis

' LMM - 55C, KPCF - 5577
[A1] = Split(Split([Target.Value], ",")(0), "-")(1) ' 55C
[A2] = Split(Split([Target.Value], ",")(1), "-")(1) ' 5577

 

[VBA_dev_Anne_Marie]

Merci, mais je n'arrive pas à récupérer la variable dans Target.Value, ça ne marche pas (

 

[laurent950]

Re

If Target.Value = [E15].Value Then

 

[VBA_dev_Anne_Marie]

Re

If Target.Value = [E15].Value Then

Merci

 

[VBA_dev_Anne_Marie]

Bonsoir @MarieParis

' LMM - 55C, KPCF - 5577
[A1] = Split(Split([Target.Value], ",")(0), "-")(1) ' 55C
[A2] = Split(Split([Target.Value], ",")(1), "-")(1) ' 5577

Comment on stock dans target value les valeurs 55C ou 5577. J'aimerais avoir des valeurs tronquées dans les target value

 

[laurent950]

Re,
Target c'est une variable Objet de Type Range (La valeur ou plage de valeur renvoyé)
On peut stocker le résultat dans une variable tableau comme l'exemple que j'ai posté

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TabRes() As Variant
If Target.Value = [E15].Value Then
    ReDim TabRes(0 To UBound(Split([Target], ",")))
        For i = LBound(TabRes) To UBound(TabRes)
            TabRes(i) = Split(Split([Target], ",")(i), "-")(1)
        Next i
End If
MsgBox TabRes(0)
MsgBox TabRes(1)
End Sub

cdt

 

[VBA_dev_Anne_Marie]

Re,
Target c'est une variable Objet de Type Range (La valeur ou plage de valeur renvoyé)
On peut stocker le résultat dans une variable tableau comme l'exemple que j'ai posté

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TabRes() As Variant
If Target.Value = [E15].Value Then
    ReDim TabRes(0 To UBound(Split([Target], ",")))
        For i = LBound(TabRes) To UBound(TabRes)
            TabRes(i) = Split(Split([Target], ",")(i), "-")(1)
        Next i
End If
MsgBox TabRes(0)
MsgBox TabRes(1)
End Sub

cdt

Merci, mais je ne comprends pas, comment, par la suite, je peux utiliser cette variable dans ma requête ADODB.

 

[laurent950]

Re
GET_GROUPE TabRes(0) ' 55C
GET_GROUPE TabRes(1) ' 5577

 

[VBA_dev_Anne_Marie]

Re
GET_GROUPE TabRes(0) ' 55C
GET_GROUPE TabRes(1) ' 5577

J’ai une erreur: Type d’argument ByRef incompatible

 

[VBA_dev_Anne_Marie]

J’ai une erreur: Type d’argument ByRef incompatible

Je reçois cette erreur, je ne sais pas comment l’interpréter. Merci pour votre aide.

 

[VBA_dev_Anne_Marie]

J’ai une erreur: Type d’argument ByRef incompatible

Je reçois cette erreur, je ne sais pas comment l’interpréter. Merci pour votre aide

 

[VBA_dev_Anne_Marie]

Voici mon code complet :
Module dans la feuille :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Target, Range("C6")) Is Nothing Then
Call CLICK_BTN_INFOS_CONTRAT
End If

Dim TabRes() As Variant
If Target.Value = [E15].Value Then
ReDim TabRes(0 To UBound(Split([Target], ",")))
For i = LBound(TabRes) To UBound(TabRes)
TabRes(i) = Split(Split([Target], ",")(i), "-")(1)
Next i
End If
MsgBox TabRes(0)
GET_GROUPE_GESTION_CIBLE TabRes(0)
End Sub

 

[VBA_dev_Anne_Marie]

Module Général:



Public Sub GET_GROUPE_GESTION_CIBLE(strQ As String)
Dim cnn_Pegase As ADODB.Connection 'Connexion Pegase

Dim RECSET As New ADODB.Recordset
Call CONNEXION_PEG("select", "test", "PEG")
RECSET.Open "select serv.lb_long||' (AT: '||pers.s_nom||' '||pers.s_prenom||')' as groupecible from db_tiers as ti, dr_collaborateur_tiers cp,db_collaborateur col,db_personne pers,dr_service_collaborateur sc,db_service_compagnie serv" & _
" where ti.CD_TIERS='" & strQ & "' ti.is_tiers=cp.is_tiers and cp.is_collaborateur = col.is_collaborateur and col.is_personne = pers.is_personne and col.is_collaborateur = sc.is_collaborateur and sc.is_service_compagnie = serv.is_service_compagnie", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
If Not RECSET.EOF Then
Worksheets("1 - Feuille de Suivi Commercial").Range("GET_GROUPE_GESTION_CIBLE").Value = RECSET.Fields("groupecible").Value
Else
Worksheets("1 - Feuille de Suivi Commercial").Range("GET_GROUPE_GESTION_CIBLE").Value = "Inconnu"
End If
RECSET.Close
Call DECONNEXION_PEG
End Sub

Peut-être j'ai omis une option dans le code

 

[VBA_dev_Anne_Marie]

Re,
Target c'est une variable Objet de Type Range (La valeur ou plage de valeur renvoyé)
On peut stocker le résultat dans une variable tableau comme l'exemple que j'ai posté

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TabRes() As Variant
If Target.Value = [E15].Value Then
    ReDim TabRes(0 To UBound(Split([Target], ",")))
        For i = LBound(TabRes) To UBound(TabRes)
            TabRes(i) = Split(Split([Target], ",")(i), "-")(1)
        Next i
End If
MsgBox TabRes(0)
MsgBox TabRes(1)
End Sub

cdt

Je n'ai qu'un seul choix dans la liste, du coup je n'ai pas besoin de TabRes(1), n'est-ce pas ?
Merci