import cellule dans Textbox

Version imprimable

14/04/2008, 11h29
kitcarflo

1 pièce(s) jointe(s)

import cellule dans Textbox

Bonjour j'ai un petit probleme avec un classeur excel

J'ai creer un classeur excel dans lequel est repertoriés plusieurs affaire de l'entreprise (Beaucoup Beaucoup) seulement certaine affaire ne sont pas complète.

Dans ce cas j'ai créer un bouton pour modifié certaine affaire.

Quand on clique sur le bouton 1 (sur l'image) on ouvre la fenêtre 2 ou on doit rentrer un numero d'affaire, un num de plan et un indice (ces 3 valeurs sont importante pour identifier une affaire d'une autres). Quand on clique sur valider de la fentre 2 s'ouvre la fenêtre 3 dans lequel est repertorier tout les info de la ligne correspondant a l'affaire choisie de manière a modifier seulement celle que l'on souhaite.

?? Comment faire pour pouvoir isoler qu'une seule affaire et inscrire toute les valeur de la ligne de cette affaire dans les differentes textBox de la fenêtre 3 ??????????

Merci beaucoup

Bonjour,

Une solution éventuelle (à tester)
Code à mettre dans l'évènement Click bouton du 1er UserForm
Adapter le nom des UserForm et TextBox

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 CommandButton1_Click()
Dim i As Integer, j As Integer, NoL As Integer
Dim x As String, y As String
 
y = Me.textbox1 & Me.textbox2 & Me.textbox3
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    x = Cells(i, 1) & Cells(i, 4) & Cells(i, 5)
    If  x = y Then
        NoL = i
        Exit For
    End If
Next i
 
With UserForm2
'numéroter les TextBox dans l'ordre des colonnes
'TextBox1 = valeur colonne A, TextBox2 = valeur colonne B, valeur TextBox3, ...
    For j = 1 To 11
        .Controls("TextBox" & j) = Cells(NoL, j)
    Next j
End With
 
UserForm2.Show
Unload Me
 
End Sub

Apparement il y a un problème avec cette ligne :

Code:

1
2
3
4
5
6
   For j = 1 To 11
 
   =====>   .Controls("TextBox" & j) = Cells(NoL, j)
 
 Next j
End With

14/04/2008, 13h25
Jean-Pierre49

Bonjour

essaye

Code:

.Controls("TextBox" & j & "") = Cells(NoL, j)
14/04/2008, 14h29
fring

les noms de ton UserForm et de tes 11 TextBox correspondent bien avec les noms inscrits dans le code ?
15/04/2008, 08h37
kitcarflo

1 pièce(s) jointe(s)

Oui pas de probleme au niveau des userforms et textbox

j'ai mis en image associé l'érreur que me donne excel !!!!
15/04/2008, 08h46
Jean-Pierre49

Bonjour

on voit mal sur l'image liée mais quelle est la valeur de NoL, il me semble qu'elle ne peut être que négative
15/04/2008, 08h55
fring

Il me semble que je lis

Code:

.Controls("TextBox1" & j) = Cells(NoL, j)

Bonjour uc, oui tu as raison, si NoL = 0 ça va couiner aussi, yfo remonter la partie de code concernant le remplissage des TextBox dans la boucle

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
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, NoL As Integer
Dim x As String, y As String
 
y = Me.textbox1 & Me.textbox2 & Me.textbox3
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    x = Cells(i, 1) & Cells(i, 4) & Cells(i, 5)
    If  x = y Then
        NoL = i
            With UserForm2
            'numéroter les TextBox dans l'ordre des colonnes
            'TextBox1 = valeur colonne A, TextBox2 = valeur colonne B, valeur TextBox3, ...
                For j = 1 To 11
                    .Controls("TextBox" & j) = Cells(NoL, j)
                Next j
            End With
        Exit For
    End If
Next i
 
UserForm2.Show
Unload Me
 
End Sub

21/04/2008, 16h02
kitcarflo

ben en fait sa marche pas, je sais pas pourkoi, bref, j'ai changer de méthode, jsuis passer sur Accès, puisque l'objet a traiter est plus tourner vers la base de donnée

Merci pour votre aide