Excel 2007 : Copier cellules qui ont la même valeur..

Résolu
puliexcel Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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!
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

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
0
Réponse 2 / 2
puliexcel Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
ok ça marche.. mais il fait la somme des données de la colonne b. Moi je voulais faire une autre chose. j'ai trouvé la solution.

toutefois, votre essaie a résolu une chose dont j'avais aussi besoin

donc merci bcp
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
mais il fait la somme des données de la colonne b

Absolument pas
0