Filtrer /copier et coller
Résolu
julia Namor
Messages postés
524
Date d'inscription
Statut
Membre
Dernière intervention
-
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Filtrer /copier et coller
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
7 réponses
Bonjour,
Pour faire un filtre ???
Serait plus simple de faire une mise a jour en partant de la liste feuil1 !!!!!
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
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
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
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
:
Comment faire la mise à jour en incluant toutes les données de la plage étendue?
Merci beaucoup
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