[XL-2003] Recopier une ligne selon une valeur d'une cellule donnée.

[bokgkik]

Bonjour le forum,

Une problématique qui se me présente aujourd'hui:

J'ai un tableau de x colonnes avec y lignes. Dans ce tableau il y a des informations qui se répètent par ligne mais qui diffèrent en quelques colonnes. Donc, ce que je veux réaliser c'est une sorte de recherchev, mais qui m'affiche toutes les lignes qui correspondent à cette recherchev.

Le résultat que je veux obtenir est le suivant:
75 Paris 18 30 90 30
78 Aix 14 30 90 30
75 Paris 07 20 30 80

Je fais une sorte de recherchev (avec le 75) et donc j'obtiens ainsi:

75 Paris 18 30 90 30
75 Paris 07 20 30 80

Merci de votre aide.

[White Mibu]

Bonjour,

proposition :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
Dim i As Variant
 
    i = Sheets("Feuil1").Range("A65536").End(xlUp).Row
    j = Sheets("Feuil2").Range("A65536").End(xlUp).Row
 
    If j = 1 Then j = 0
 
    For k = 1 To i
    If Sheets("Feuil1").Cells(k, 1).Value = 75 Then 'Recherche 75
        Sheets("Feuil2").Cells(j + 1, 1).Value = Sheets("Feuil1").Cells(k, 1).Value
        Sheets("Feuil2").Cells(j + 1, 2).Value = Sheets("Feuil1").Cells(k, 2).Value
        Sheets("Feuil2").Cells(j + 1, 3).Value = Sheets("Feuil1").Cells(k, 3).Value
        Sheets("Feuil2").Cells(j + 1, 4).Value = Sheets("Feuil1").Cells(k, 4).Value
        Sheets("Feuil2").Cells(j + 1, 5).Value = Sheets("Feuil1").Cells(k, 5).Value
        Sheets("Feuil2").Cells(j + 1, 6).Value = Sheets("Feuil1").Cells(k, 6).Value
 
        j = j + 1
    End If
    Next
 
End Sub

J'ai mis ton tableau exemple en A1 de la Feuil1...

Après je suppose que c'est pas exactement ce que tu recherche, mais c'est un bon début je pense. Sachant que tu peux remplacer le 75 par une valeur d'une cellule de ta feuille et donc modifier ta recherche par la suite.

Si tu veux plus de détails n'hésite pas à poser des questions !

Cordialement

[ouisansdoute]

tu peux extraire de ta base les lignes répondant à certains critères sans macro en utilisant les filtres élaborés.

- Une base
- un ou plusieurs critères
- une zone de résultats.

Fais quelques recherches sur l'utilisation de cette fonction...