Code fonctionne une fois sur 2

Version imprimable

13/12/2019, 19h55
chomy786

3 pièce(s) jointe(s)

Code fonctionne une fois sur 2

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 bienPièce jointe 524174
Pièce jointe 524178 Pièce jointe 524180
13/12/2019, 21h24
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

Autant pour moi,

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

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:

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

14/12/2019, 20h22
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