Discussion :

[kitcarflo]

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

[fring]

Bonjour,

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

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
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

[kitcarflo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Pierre49]

Bonjour

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

les noms de ton UserForm et de tes 11 TextBox correspondent bien avec les noms inscrits dans le code ?

[kitcarflo]

Oui pas de probleme au niveau des userforms et textbox

j'ai mis en image associé l'érreur que me donne excel !!!!

[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

[fring]

Il me semble que je lis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

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
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

[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