Filtrer /copier et coller

Résolu
julia Namor -  
Bonjour,
Je reviens vers vous pour solliciter a nouveau vote aide.

Sur la feuille2
A partir du filtre " zone1" j'obtiens les agents sur la colonne h.
Je voudrais trouver une macro qui me permette d'inscrire sur la colonne J les valeurs de la colonne B /feuille1 correspondant.
J'ai joint un fichier pour éclairer les explications.

Merci de votre aide

http://www.cjoint.com/c/FInl028ZWaA

7 réponses

  1.  f894009
    Bonjour,

    Pour faire un filtre ???

    Serait plus simple de faire une mise a jour en partant de la liste feuil1 !!!!!
    0
    1. julia Namor Auteur
      Bonjour
      Merci f894009

      Oui si c'est plus simple je prends , par contre comment procéder. Je ne comprends pas ce que vous voulez dire par mise à jour ..
      Merci
      0
      1. f894009
        Re,

        c'est bien vous qui avez ecrit ceci

        Je voudrais trouver une macro qui me permette d'inscrire sur la colonne J les valeurs de la colonne B /feuille1 correspondant.

        N'est-ce pas une mise a jour ????
        0
    2. julia Namor Auteur
      Pourriez vous m'indiquer lla démarche pour la mise à jour ?
      0
      1. f894009
        Re,

        Votre fichier modifie: https://www.cjoint.com/c/FInnBUzBBWf

        Je n'ai pas fait de test sur la colonne A feuil1 pour etre sûr qu'elle n'est pas vide, a vous de voir
        0
    3. julia Namor Auteur
      Super!!!!
      Je l'adapte à mon projet et je reviens vers vous .
      Merci beaucoup
      0
      2. julia Namor Auteur
        Le code correspond parfaitement à mon besoin. Juste une chose en plus .
        Je voudrais étendre la plage comme telle
        :
        Plage = .Range("A4:N" & .Range("A" & Rows.Count).End(xlUp).Row)


        Comment faire la mise à jour en incluant toutes les données de la plage étendue?

        Merci beaucoup 

        Sub Majour()
            Dim Plage
            
            With Worksheets("feuil1")
                Plage = .Range("A4:N" & .Range("A" & Rows.Count).End(xlUp).Row)
            End With
            With Worksheets("feuil2")
                Nb = UBound(Plage)
                For N = 1 To Nb
                    VP = Plage(N, 1)
                    NF = Application.CountIf(.Columns(8), VP)
                    If NF = 1 Then
                        lig = 1
                        lig = .Columns(8).Find(VP, .Cells(lig, 8), , xlWhole).Row
                        .Range("J" & lig) = Plage(N, 2)
                    End If
                Next N
            End With
        End Sub
        0
        1. f894009
          Re,

          Vous voulez recopier les infos de B a N feuil1 vers J a V feuil2 ??
          0
      4. julia Namor Auteur
        Bonjour
        Nickel !!! exactement ce qu'il me fallait . Plus qu'a l'intégrer dans mes macros et tout roule. Je suis vraiment ravie.
        Merci encore
        0

        Discussions similaires

        Arobase
        Zezette

        1 réponse
        comment faire une arobase
        GLORIA

        1 réponse
        Le raccourci de la touche arobase
        liberteegalite2

        8 réponses
        Copier coller une image de Google sur Macbook
        orianepark

        1 réponse