Filtrer /copier et coller
Résolu
julia Namor
Messages postés
532
Statut
Membre
-
julia Namor Messages postés 532 Statut Membre -
julia Namor Messages postés 532 Statut Membre -
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
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
-
Bonjour,
Pour faire un filtre ???
Serait plus simple de faire une mise a jour en partant de la liste feuil1 !!!!! -
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 -
Pourriez vous m'indiquer lla démarche pour la mise à jour ?
-
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
-
-
Super!!!!
Je l'adapte à mon projet et je reviens vers vous .
Merci beaucoup -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
-
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
