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 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!

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. puliexcel Messages postés 4 Statut Membre
     
    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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      mais il fait la somme des données de la colonne b

      Absolument pas
      0