IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Difficultés attribution besoins (Concatenation et recherchev par macro) [XL-2003]


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    59
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 59
    Par défaut Difficultés attribution besoins (Concatenation et recherchev par macro)
    Bonjour à tous,

    Je suis bloqué pour mettre en place une macro qui réalise une sorte de recherchev.

    Voici un exemple simplifié de mon fichier :
    Exemple.xls

    J'ai donc deux onglets :
    - Onglet "BESOINS" : On retrouve les besoins à réaliser pour la semaine. Ces besoins sont renseignés à la main par une personne. A chaque besoin correspond une heure de sortie.
    - Onglet "HISTO" : C'est la que la macro doit entrer en jeu. Dans l'onglet "BESOINS", il faut qu'elle concatène les besoins et les heures avec les types de véhicule identique (voir pièce jointe). Et ensuite qu'elle affiche la concaténation dans l'onglet "HISTO" devant le bon type de véhicule.

    Je vous remets le code que j'utilise mais vous pouvez le retrouver dans la pièce jointe.

    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
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    '============= Concatenation des besoins ========================'
    '================================================================'
    Sub Concatenation_Besoins()
    Dim Tab_Already() As Integer, Tab_Resultats()
    Dim Tab_ColonneBD
    Dim TheCell As Range
    Dim IRowP As Long, IRowS As Long, IRowM As Long 'P=Primaire, S=Secondaire, M=Maxi
    Dim OneInt
    Dim StrConcat As String
    Dim i As Integer
    Dim j, v, total As Integer
     
    'On initialise les tableaux
    ReDim Tab_Already(0)
    ReDim Tab_Resultats(1, 0)
    Tab_ColonneBD = Range("A2", Cells(Rows.Count, "D").End(xlUp)).Value
    IRowM = Cells(Rows.Count, "B").End(xlUp).Row - 2
    i = 1
    j = 1
     
    For IRowP = 1 To IRowM
        'On verifie que le numero n'a pas deja ete traité
        For Each OneInt In Tab_Already
            If OneInt = CInt(Tab_ColonneBD(IRowP, 2)) Then
                GoTo suite
            End If
        Next
     
        If IRowP <> i Then
            Sheets("BESOINS").Cells(j, 6).Value = Cells(i + 1, rColAct)
            Sheets("BESOINS").Cells(j, 7) = StrConcat
            j = j + 1
        End If
        'On rajoute le numero dans la liste des num deja traité (la colonne A ne doit pas contenir de 0
        If Tab_Already(UBound(Tab_Already)) <> 0 Then
            ReDim Preserve Tab_Already(UBound(Tab_Already) + 1)
            Tab_Already(UBound(Tab_Already)) = CInt(Tab_ColonneBD(IRowP, 2))
        End If
        'On initialise le concatenation avec le 1er texte
            StrConcat = CStr(Tab_ColonneBD(IRowP, 3)) & " -> " & CStr(Tab_ColonneBD(IRowP, 4))
    'On recherche les autres cellules contenant cette valeur à partir de IRowP+1
        For IRowS = IRowP + 1 To IRowM
        On Error Resume Next
            If Tab_ColonneBD(IRowP, 2) = Tab_ColonneBD(IRowS, 2) Then
                StrConcat = StrConcat & " / " & CStr(Tab_ColonneBD(IRowS, 3)) & " -> " & CStr(Tab_ColonneBD(IRowS, 4))
                Else: i = IRowP
            End If
        Next
     
    suite:
    Next
     
    Sheets("HISTO").Select
    i = Cells(Row.Count, 2).End(xlUp)
    Sheets("BESOINS").Select
    j = Cells(Row.Count, 1).End(xlUp)
    'Dans mon fichier initial j'utilise des variables comme rCelDeb. Et le VLookup ne fonctionne pas....
    Cells(2, 2).FormulaR1C1 = "=VLookup(B" & rCelDeb & " :B " & j & ", Paramètre_Besoins!B1:C " & i & ", 2, 0)" 
    Selection.AutoFill Destination:=Range(Cells(2, 2), Cells(j, 2)), Type:=xlFillDefault
     
    End Sub
    Alors il y a deux problèmes :
    - La premiere partie du code pour la concaténation ne fonctionne pas entièrement (voici pièce jointe, feuille "BESOINS")
    - Je n'arrive pas à insérer la recherchev. Peut etre qu'il y a une autre solution que la recherchev.

    Si vous avez une idée pour faire avancer mon probleme, je suis preneur !

    Merci à tous !
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Recherchev par macro.
    Par jose.carreira dans le forum Excel
    Réponses: 1
    Dernier message: 20/09/2014, 08h31
  2. [XL-2010] RechercheV par macro
    Par illight dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 30/10/2013, 14h42
  3. Attribution certificat par macro
    Par AgnesK dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 18/02/2011, 10h23
  4. [XL-2003] Concatener des valeurs dans un tableau par macro
    Par kernkraft dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 18/01/2011, 06h39
  5. Concatener 2 colonnes par Macro
    Par kernkraft dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 28/12/2010, 17h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo