Boucle de renvoie avec DTpicker contenu cellule vers texbox

Version imprimable

12/02/2011, 09h19
tazko

Boucle de renvoie avec DTpicker contenu cellule vers texbox

Bonjour tout le monde,

Je reviens vers vous les experts pour trouver une solution SVP.

J'ai un tableau sous excel avec:

La colonne A contient les dates du 01/01/2010(A6) au 31/12/2010 (A371).
La ligne 5 contient les titres "bernard" (5B) a "rose" (5N).

J'ai mis un user form avec 1 DT.picker et 13 textbox.

Je cherche de l'aide auprés de vous s'il vous plait et si c'est possible,une macro en boucle avec lequel en choisisant la date avec le DTPICKER les contenus des cellules seront affichés;

Parexemple en choisissant le 03/02/10 (A39) les texbox doivent affiché :texbox1(B39);TEXBOX2(C39);TEXBOX3(D39)........texbox13(N39).

-est ce que ca peut se faire automatiquement en changeant la date ou il faut un boutton pour valider la date a chaque fois?

En vous souhaitant un bon weekend et en vous remerciant.

Directement

Code:

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
Private Sub DTPicker1_Change()
Dim LastLig As Long, Lig As Long
Dim c As Range
Dim i As Integer
Dim Dte As Date
 
Dte = Me.DTPicker1.Value
For i = 2 To 13
   Me.Controls("TextBox" & i - 1).Value = ""
Next i
With Sheets("Feuil1")   'à adapter
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   If LastLig >= 6 Then
      Set c = .Range("A6:A" & LastLig).Find(Dte, LookIn:=xlValues, lookat:=xlWhole)
      If Not c Is Nothing Then
         Lig = c.Row
         Set c = Nothing
         For i = 2 To 13
            Me.Controls("TextBox" & i - 1).Value = .Cells(Lig, i)
         Next i
      End If
   Else
      MsgBox "Données manquantes"
   End If
End With
End Sub

15/02/2011, 22h30
tazko

Merci :ccool:mercatog:ccool: ca fonctionne super bien:ccool::ccool::ccool::ccool: