Gros probleme

Bonjour à tous,

je suis bloquée sur un de mes tableaux au travail je fais du suivis clients chiffres d'affaires,

En feuille1 colonne A j'ai ma liste de clients complète,

En feuille2 colonne A j'ai une liste de clients qui apparaît sur la feuille1, en colonne B j'ai un chiffre d'Affaires

Je souhaiterai qu'en colonne C si le clients figure sur la liste de la feuille 1 le montant de la colonne b apparaisse sur la colonne C

Je sais pas si je suis claire, si jamais je vous joindrais mon tableau.

Merci de m'aider avant que je m'arrache tout les cheveux,

travail à rendre aujourd’hui.

Merci à tous.

Salut Elodie,

comme tu dois être bien plus belle avec tes cheveux, je te conseille d'envoyer ton fichier sans attendre pour éviter toute perte de temps en tâtonnements...

Avec explications claires et complètes!

A+

Merci de la réponse rapide,

vous trouverez le tableau joint

En feuille1 ma liste de clients complète,

En feuille Janvier 2017 (feuille2 renommée) vous pourrais voir en colonne A une liste de clients, je souhaiterais que si le client est présent sur la feuille1 le Chiffre d'affaire (colonne C) soit mis automatiquement dans la colonne F en jaune.

Merci de votre aide.

Bonjour le fil, bonjour le forum,

J'avais commencé à plancher avant que tu n'envoies le fichier. Comme le code est commenté tu devrais pourvoir adapter facilement...

Le code :

Sub Macro1()
Dim F1 As Worksheet 'déclare la variable F1 (Onglet Feuil1)
Dim F2 As Worksheet 'déclare la variable F2 (Onglet Feuil2)
Dim T1 As Variant 'déclare la variable T1 (Tableau 1)
Dim T2 As Variant 'déclare la variable T1 (Tableau 2)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim TS() As Variant 'déclare la variable TS (Tableau de Substitution)

Set F1 = Worksheets("Feuil1") 'définit l'onglet F1
Set F2 = Worksheets("Feuil2") 'définit l'onglet F2
T1 = F1.Range("A1").CurrentRegion 'définit le tableau T1
T2 = F2.Range("A1").CurrentRegion 'définit le tableau T1
ReDim Preserve TS(1 To UBound(T2, 1), 1 To 3) 'redimensionne le tableau de substitution TS (autant de lignes que T2, 3 colonnes)
For I = 1 To UBound(T2, 1) 'boucle 1 : sur toutes les lignes I du tableau T2
    For J = 1 To UBound(T1, 1) 'boucle 2 : sur toutes les lignes 2 du tableau T1
            TS(I, 1) = T2(I, 1) 'récupère dans la ligne I colonne 1 du tableau de substitution TS, la valeur de la donnée ligne I colonne 1 de T2
            TS(I, 2) = T2(I, 2) 'récupère dans la ligne I colonne 2 du tableau de substitution TS, la valeur de la donnée ligne I colonne 2 de T2
        If T2(I, 1) = T1(J, 1) Then 'condition : si les noms coïncident
            TS(I, 3) = T2(I, 2) 'récupère dans la ligne I colonne 3 du tableau de substitution TS, la valeur de la donnée ligne I colonne 2 de T2
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next J 'prochaine ligne de la boucle 2
Next I 'prochaine ligne de la boucle 1
F2.Range("A1").Resize(UBound(TS, 1), UBound(TS, 2)).Value = TS 'renvoie le tableau TS dans la cellule A1 redimensionnée de l'onglet T2
End Sub

heuu,,,, je suis novice sur excel et les macro je ne sais pas les utiliser.

Pour moi tout ce long texte est écrit dans une autre langue.

Je suis désolé=)

personne peu m'aider plus simplement =)

Bonjour,

Si j’ai bien compris, à tester en Janvier 2017!F1 et suivantes :

=SI(ESTERREUR(RECHERCHEV(A3;Feuil1!$A$3:$A$68;1;0));"";C3)

A +

Ajout : en un peu plus court :

=SI(ESTERREUR(EQUIV(A3;Feuil1!$A$3:$A$68;0));"";C3)

IMPECCABLE !!

par contre j'ai quelques clients qui ressortent pas.

Salut tout le monde,

Déso, dû m'absenter...

Voilà ton fichier, à l'arrache, mais ça a l'air bon.

Un clic dans [A2] déclenche la macro.

A+

même problème j'ai des clients qui ne ressortent pas

Dis-moi lesquels, stp, que je n'aie pas à chercher pendant un temps fou!

Probablement des orthographes différentes ou différences minimes de frappes!

Si ton travail doit être fait aujourd'hui, mets-y du tien, please!

A+

feuille BDD A58 present feuille janvier 2017 A49

Une espace de trop...

J'ai ajouté 'TRIM'...

Et maintenant?

A+

cela ma l'air bon,

par contre comment je peux voir se que tu as fait pour que je puisse le refaire dans d'autres tableaux

Salut Elodie,

le plus urgent étant fait, j'avais l'intention de te proposer ceci :

• mettre au point un système d'encodage de tes clients dans tes feuilles '... 2017' et suivantes, probablement '... 2018', etc..., histoire d'éviter ce genre d'erreur et, manifestement, de longues frappes répétitives ;
• installer la macro que je viens de t'écrire dans 'BDD' afin de t'y permettre de commander toutes sortes d'actions sur tes feuilles depuis un point central (à toi de me faire la liste de ces éventuelles actions!).

Qu'en penses-tu?

A+

MERCI BEAUCOUP!!

tu m'as sauvé.

Oui après j'ai plusieurs commercial donc tableau identique mes contenus différents,

Je n'arriverai pas a utiliser les macros je n'y comprend vraiment rien.

j'espère ne pas avoir a refaire ce genre de choses.

Re,

nous attendons tes éventuelles demandes supplémentaires, documentées et tout et tout...

A+