Signaler

Filtrer /copier et coller [Résolu]

Posez votre question julia Namor 201Messages postés jeudi 27 mars 2014Date d'inscription 14 septembre 2016 Dernière intervention - Dernière réponse le 14 sept. 2016 à 09:05
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
Afficher la suite 
Utile
+0
moins plus
Bonjour,

Pour faire un filtre ???

Serait plus simple de faire une mise a jour en partant de la liste feuil1 !!!!!
Ajouter un commentaire
Utile
+0
moins plus
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
f894009 10236Messages postés dimanche 25 novembre 2007Date d'inscription 29 septembre 2016 Dernière intervention - 13 sept. 2016 à 15:09
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 ????
Répondre
Ajouter un commentaire
Utile
+0
moins plus
Pourriez vous m'indiquer lla démarche pour la mise à jour ?
f894009 10236Messages postés dimanche 25 novembre 2007Date d'inscription 29 septembre 2016 Dernière intervention - 13 sept. 2016 à 15:29
Re,

Votre fichier modifie: http://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
Répondre
Ajouter un commentaire
Utile
+0
moins plus
Super!!!!
Je l'adapte à mon projet et je reviens vers vous .
Merci beaucoup
Ajouter un commentaire
Utile
+0
moins plus
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
f894009 10236Messages postés dimanche 25 novembre 2007Date d'inscription 29 septembre 2016 Dernière intervention - 13 sept. 2016 à 18:31
Re,

Vous voulez recopier les infos de B a N feuil1 vers J a V feuil2 ??
Répondre
Ajouter un commentaire
Utile
+0
moins plus
OUI c'est tout à fait ça!!!
Merci énormément
f894009 10236Messages postés dimanche 25 novembre 2007Date d'inscription 29 septembre 2016 Dernière intervention - 13 sept. 2016 à 20:21
Re,

fichier modifie: http://www.cjoint.com/c/FInsu7JBZTf
Répondre
Ajouter un commentaire
Utile
+0
moins plus
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
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !