Discussion :

[DexX39800]

Bonjour,

J'ai un tableau à deux colonnes :

Code et Désignation

J'aimerais que quand on tape un numéro dans la cellule Code sa mette la désignation correspondant sur la même ligne..

Mais cela pour toutes les cellules

Voici le code qui marche que pour la Cellule A1, j'aimerais qu'elle marche pour une plage de cellule de A1 à A100 par exemple...

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
34
35
36
Sub Macro1()
 
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim fld As ADODB.Field
  Dim sql As String
  Dim valcel As String
 
    valcel = Feuil1.Range("A2" & i).Value
 
  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=192.168.253.128;" & " DATABASE=bddintranetpol;" & "UID=user_odbc;PWD=mdpusrodbc; OPTION=3"
  conn.Open
 
'Cette requête marche !
'conn.Execute "CREATE TABLE TestAdrien(ID int not null primary key, Nom varchar(20)," _& "Texte text, Date date, Temps time)"
 
Set rs = New ADODB.Recordset
With rs
     .ActiveConnection = conn
     .Open "select designation " _
     & "from produits_test " _
     & "where code_produit='" & valcel & "'"
 
     Feuil1.Range("B2").CopyFromRecordset rs
 
    .Close
End With
 
 
conn.Close
Set rs = Nothing
Set conn = Nothing
 
End Sub

Merci de votre aide.

[pgz]

Bonjour.

Tu peux utiliser l'évènement Change de la feuille en question. Cela donne en modifiant ton code a minima

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
34
35
36
37
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Application.Intersect(Target, Me.Range("A1:A100")) Is Nothing Then Exit Sub
 
Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim fld As ADODB.Field
  Dim sql As String
  Dim valcel As String
 
  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=192.168.253.128;" & " DATABASE=bddintranetpol;" & "UID=user_odbc;PWD=mdpusrodbc; OPTION=3"
  conn.Open
 
'Cette requête marche !
'conn.Execute "CREATE TABLE TestAdrien(ID int not null primary key, Nom varchar(20)," _& "Texte text, Date date, Temps time)"
 
Set rs = New ADODB.Recordset
With rs
     .ActiveConnection = conn
     .Open "select designation " _
     & "from produits_test " _
     & "where code_produit='" & Target.Value & "'"
 
     Target.Offset(0, 1).CopyFromRecordset rs
 
    .Close
End With
 
 
conn.Close
Set rs = Nothing
Set conn = Nothing
 
 
End Sub

Dans le module associé à la feuille.

Cordialement,

PGZ

[DexX39800]

J'ai bien mis ce 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Application.Intersect(Target, Me.Range("A1:A100")) Is Nothing Then Exit Sub
 
Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim fld As ADODB.Field
  Dim sql As String
  Dim valcel As String
 
  'connect to MySQL server using MySQL ODBC 3.51 Driver
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=192.168.253.128;" & " DATABASE=bddintranetpol;" & "UID=user_odbc;PWD=mdpusrodbc; OPTION=3"
  conn.Open
 
'Cette requête marche !
'conn.Execute "CREATE TABLE TestAdrien(ID int not null primary key, Nom varchar(20)," _& "Texte text, Date date, Temps time)"
 
Set rs = New ADODB.Recordset
With rs
     .ActiveConnection = conn
     .Open "select designation " _
     & "from produits_test " _
     & "where code_produit='" & Target.Value & "'"
 
     Target.Offset(0, 1).CopyFromRecordset rs
 
    .Close
End With
 
 
conn.Close
Set rs = Nothing
Set conn = Nothing
 
 
End Sub

Donc si je me place dans la cellule A2, sa me met bien le désignation dans le cellulle B2 mais si je me met dans la cellule A3, sa met rien dans la cellule B3...

[pgz]

Re,

Tu as mis ce code où, et tu l'exécutes comment?

A+

PGZ

[DexX39800]

C'est bon, j'avais pas mis dans le feuil1 ...

Merci de ton aide

Vraiment merci .