Discussion :

[Invité]

Bonjour à Tous

Je vous sollicite a fin de m'aider sur la création d'une macro

Je vous explique la macro

J'ai un ficher Source sur lequel je travail, et je veux comparer les donnés dans un autre fichier et de les affecter dans mon fichier source on appliquant les conditions ci-dessous

Voici les conditions de ma macro

je veux créer une colonne dans mon tableau dans mon fichier source nommé "test"

Pour alimenter cette colonne:

Si "Prg" = XX ou YY

Si donnée colonne "NC " est dans l'autre fichier dans l'onglet "Plan" alors "test" = Valeur Colonne 2
Si donnée colonne "TASK" est dans l'autre fichier dans l'onglet "Team" alors "test" = Valeur Colonne 2
Sinon "test" =TT

Si "Prg" WW ou ZZ
Si donnée colonne "TASK " est dans l'autre fichier dans l'onglet "Team" alors "test"= Valeur Colonne 2

Si "Prg"= XW

Si donnée colonne "NC " est dans l'autre fichier dans l'onglet "Plan" alors "test" = Valeur Colonne 2
Si donnée colonne "TASK" est dans l'autre fichier dans l' onglet "Team" alors "test" = Valeur Colonne 2

*à savoir que dans mon autre fichier les onglets PLAN et Team contient un tableau avec 2 colonnes

* les données de task et nc je les ai aussi dans mon fichier source

* colonne "Prg" se trouve dans mon fichier source

d'avance merci fichier source.xlsmAutre fichier.xlsm

[Invité]

Bonjour à tous


Personne n'a pu voir ma problématique , vraiment j'en ai besoin

merci à vous

[EricDgn]

Bonjour,

Une solution avec cette formule personnalisée, sans doute à adapter:

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
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
Public Function Recup(sPrg As String, sP As String, sT As String) As String
    Dim rP As Range, rT As Range, wbSource As Workbook
    Set wbSource = Workbooks("Autre fichier.xlsm")
    Set rP = wbSource.Worksheets("Plan").Range("A:A").Find(what:=sP, LookIn:=xlValues, LookAt:=xlWhole)
    Set rT = wbSource.Worksheets("Team").Range("A:A").Find(what:=sT, LookIn:=xlValues, LookAt:=xlWhole)
    Select Case sPrg
        Case "XX", "YY"
            If rP Is Nothing Then
                If rT Is Nothing Then
                    Recup = "TT"
                Else
                    Recup = rT.Offset(0, 1)
                End If
            Else
                Recup = rP.Offset(0, 1)
            End If
        Case "WW", "ZZ"
            If rT Is Nothing Then
                Recup = "#"
            Else
                Recup = rT.Offset(0, 1)
            End If
        Case "XW"
            If rP Is Nothing Then
                If rT Is Nothing Then
                    Recup = "#"
                Else
                    Recup = rT.Offset(0, 1)
                End If
            Else
                Recup = rP.Offset(0, 1)
            End If
        Case Else
            Recup = ""
    End Select
    Set rP = Nothing
    Set rT = Nothing
    Set wbSource = Nothing
End Function

Cordialement.

Formule en cellule C1: =Recup(O2;P2;G2).

[Pierre Fauconnier]

Salut.

Perso, je rapatrierais les données dans un seul fichier puis je travaillerais en interne, et pas besoin de VBA pour cela. Excel est plus que largement équipé pour réaliser cela par formule.

[Invité]

Bonjour Monsieur Eric,

Je vous remercie pour ton aide

mais j'ai pas pu avoir les résultats

vu que je suis débutante en VBA je pense que j'ai pas bien appliquer la solution que vous m'avez fournit

Pourriez vous m'aider à exécuté le code svp

En vous remerciant

[EricDgn]

Bonjour,

Quelques façons de faire en attaché. Il est à mon avis préférable de scinder les calculs sur plusieurs colonnes pour pouvoir en bien contrôler les étapes, quitte à ensuite masquer ces colonnes de calcul intermédiaire.

Cordialement.

[Invité]

Bonjour à tous le monde ,

Je vous remercie pour votre aide

j'ai un petit soucis dans un fichier qui contient déjà des macros,

Je veux modifier les macros pour faire apparaitre la colonne Programme qui existe dans l'onglet FDL ,dans l'onglet Perfo mois en remplaçant la colonne Resp Q Eng par Programme

J'ai essayé mais j'ai échoué de le faire monter, si quelqu'un peut m'aider sur tâche svp

j'ai laissé le fichier en pièce jointe


d'avance merci

Cordialementtest programme.xlsm

[Invité]

Bonjour à tous ,

est ce que quelqu'un à pu voir ma problématique ?

Merci

[Invité]

Bonjour à tous le monde ,

Je vous remercie pour votre aide

j'ai un petit soucis dans un fichier qui contient déjà des macros,

Je veux modifier les macros pour faire apparaitre la colonne Programme qui existe dans l'onglet FDL ,dans l'onglet Perfo mois en remplaçant la colonne Resp Q Eng par Programme

J'ai essayé mais j'ai échoué de le faire monter, si quelqu'un peut m'aider sur cette tâche svp

j'ai laissé le fichier en pièce jointe mdp =P


d'avance merci

Cordialementtest programme.xlsm