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.