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

[Résolu/Fermé]
Signaler
Messages postés
4
Date d'inscription
mardi 1 octobre 2013
Statut
Membre
Dernière intervention
3 octobre 2013
-
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
-
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!

2 réponses

Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
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
Messages postés
4
Date d'inscription
mardi 1 octobre 2013
Statut
Membre
Dernière intervention
3 octobre 2013

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
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
mais il fait la somme des données de la colonne b

Absolument pas