Discussion :

[chomy786]

Bonsoir,

J'ai un petit soucis sur mon code, il réalise comme il faut la tâche seulement une fois sur 2.
Il faudrait que je demande un nom de client. Que puisse vérifier qu'il se trouve dans le 2 ème tableaux puis que je copie toutes les information du dlient trouvé dans une autres feuille? Mais je comprend pas pq mon code ne fonctionne pas tres bien? De plus concernant l'adress sur la ficge, il faudrait que je puisse écrire dans la même case le numéro, l'adresse la ville et le code zip ce que je n'arrive pas à faire.
Une petite aide me ferai le plus grand bien

[jerome.vaussenat]

Salut,

Plutôt qu'une image de ton code où je m’abîme les yeux pour ne rien pouvoir faire, peux tu mettre ton code directement dans le corp du message.

Une fois fait, tu sectionnelles le code et tu cliques sur le bouton "Ajouter la balise CODE", c'est un # en dessus à droite de la zone de saisie.

Merci pour mes yeux qui sont fatigués.

GG

[chomy786]

Autant pour moi,

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
Sub edition()
 
Dim T_client(), T_commande()
Dim i_client As Integer, num_client As Integer, prenom As String, adress As String, num_adress As Integer, ville As String, zip As Long
 
T_client = Range("J7:P25").Value
Sheets("client").Activate
 
nom = InputBox("Nom du client ?")
MsgBox UBound(T_client)
 
For i_client = 1 To UBound(T_client)
    If (nom = T_client(i_client, 2)) Then
        prenom = T_client(i_client, 3)
        num_client = T_client(i_client, 1)
        num_adress = T_client(i_client, 5)
        adress = T_client(i_client, 4)
        ville = T_client(i_client, 6)
        zip = T_client(i_client, 7)
 
       Sheets("fiche").Activate
         Range("C2").Value = nom + " " + prenom
         Range("E2").Value = num_client
         Range("C3").Value = num_adress + " " + zip
 
         i_client = UBound(T_client)
    End If
Next i_client

Je m’excuse pour tes yeux 😂

[jerome.vaussenat]

Salut,

C'est mieux mais avec la balise code, s'eu été parfait.

Tu dis qu'il bosse une fois sur 2. Mais que se passe t'il la fois où il ne bosse pas.
Une erreur d'execution, rien ???

Je pense qu'une piste peut être de rajouter au début de ton code la ligne suivante (tu vois avec la balise Code, çà jette !

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
Option Compare Text
Sub edition()

Dim T_client(), T_commande()
Dim i_client As Integer, num_client As Integer, prenom As String, adress As String, num_adress As Integer, ville As String, zip As Long

T_client = Range("J725").Value
Sheets("client").Activate

nom = InputBox("Nom du client ?")
MsgBox UBound(T_client)

For i_client = 1 To UBound(T_client)
    If (nom = T_client(i_client, 2)) Then
        prenom = T_client(i_client, 3)
        num_client = T_client(i_client, 1)
        num_adress = T_client(i_client, 5)
        adress = T_client(i_client, 4)
        ville = T_client(i_client, 6)
        zip = T_client(i_client, 7)
        
        Sheets("fiche").Activate
        Range("C2").Value = nom + " " + prenom
        Range("E2").Value = num_client
        Range("C3").Value = num_adress + " " + zip
        
        i_client = UBound(T_client)
    End If
Next i_client

End Sub

En VBA, les chaînes de caractères sont sensibles à la casse (<> MAJ / min) en ajoutant le ligne en rouge, il ne fait plus de différence entre MAJ et min.

En espérant que ce soit çà en attendant d'en savoir plus.

GG

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part, tu souhaites consulter les mouvements ou informations d'un client sélectionné
Si c'est le cas, il suffit d'utiliser la méthode AdvancedFilter de l'objet Range en ayant comme zone des critères le n° du client. En VBA cela représente une ligne de code

Pour en savoir plus Les filtres avancés ou élaborés dans Excel