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 dans la colonne B..
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...
Merci de votre aide.
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 dans la colonne B..
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:
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.