Excel 2007 : Copier cellules qui ont la même valeur..
Résolu
puliexcel
Messages postés
4
Statut
Membre
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
Bonjour,
j'ai besoin d'une macro qui me permette de copier toute le cellules de la colonne A qui ont le même valeurs et ses cellules à coté;
puis les coller dans deux colonnes (A e B) dans la feuille "extration"
PAR CONTRE,la macro doit me copier SEULMENT le cellules qui corresponde à la valeur afficher dans la cellule K2 de la feuille "extration".
MERCI!
j'ai besoin d'une macro qui me permette de copier toute le cellules de la colonne A qui ont le même valeurs et ses cellules à coté;
puis les coller dans deux colonnes (A e B) dans la feuille "extration"
PAR CONTRE,la macro doit me copier SEULMENT le cellules qui corresponde à la valeur afficher dans la cellule K2 de la feuille "extration".
MERCI!
A voir également:
- Excel 2007 : Copier cellules qui ont la même valeur..
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
Bonjour,
Essaies cette procédure:
La maquette
https://www.cjoint.com/?3JdjlRR69Tj
Michel
Essaies cette procédure:
Option Explicit
Option Base 1
Sub extraire_lesK2()
Dim Ref 'a préciser
Dim Nbre As Integer, T_out(), Lig As Integer, Cptr As Integer
Application.ScreenUpdating = False
With ActiveSheet
Ref = .Range("K2")
Nbre = Application.CountIf(.Columns("A"), Ref)
If Nbre > 0 Then
ReDim T_out(Nbre, 2)
Lig = 1
For Cptr = 1 To Nbre
Lig = .Columns("A").Find(Ref, .Cells(Lig, 1), xlValues).Row
T_out(Cptr, 1) = Ref
T_out(Cptr, 2) = .Cells(Lig, "B")
Next
End If
End With
With Sheets("extration")
.Range("A2:B30000").Clear
With .Range("A2").Resize(Nbre, 2)
.Value = T_out
.Borders.Weight = xlThin
.Select
End With
End With
End Sub
La maquette
https://www.cjoint.com/?3JdjlRR69Tj
Michel