Discussion :

[developpeur82]

Bonjour,

Je debute en Macro Excel (VBA). J'ai une question.

Problematique:
Date1 Date2 Pression2

Jai une colonne Date1 et deux colonnes Date2 et sa Pression2 associee.

Je souhaite filtrer la Date2 pour qu'elle corresponde a la Date1

exemple:
Date1
16/08/2012
17/08/2012
19/08/2012
21/08/2012
22/08/2012

Date2 Pression2
16/08/2012 100
18/08/2012 110
19/08/2012 140
20/08/2012 145
21/08/2012 150
22/08/2012 165
24/08/2012 170
25/08/2012 172
26/08/2012 175
27/08/2012 180
28/08/2012 190


Mon resultat final doit etre:
Date Finale Pression Finale
16/08/2012 100
19/08/2012 140
21/08/2012 150
22/08/2012 165



Donc je dois filtrer pour obtenir ce resultat. Comparer cellule par cellule jusqu'a ce que je rencontre une cellule vide donc je passe a la suivante.. est ce que vous avez une idee de la syntaxe?

Merci pour votre aide

mon bout de code que je dois completer est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Marc()
' Marc Macro
    Sheets("Sheet2").Select
    Range("A2").Select
 
End Sub

Mes donnees sont dans le sheet2 et dans le sheet1 j'ai juste le bouton que j'ai mis qui sert a excecuter ce filtre...

Merci encore

[evx136]

Essaie ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Marc()
 
Dim cpt_col_A As Integer, cpt_col_B As Integer
Dim ligneCopie As Integer
 
ligneCopie = 0
 
For cpt_col_A = 1 To Range("a65536").End(xlUp).Row
    For cpt_col_B = 1 To Range("b65536").End(xlUp).Row
        If Range("a" & cpt_col_A & "").Value = Range("b" & cpt_col_B & "").Value Then
            ligneCopie = ligneCopie + 1
            Range("h" & ligneCopie & "").Value = Range("a" & cpt_col_A & "").Value
            Range("i" & ligneCopie & "").Value = Range("c" & cpt_col_B & "").Value
        End If
    Next cpt_col_B
Next cpt_col_A
 
End Sub

[developpeur82]

evx136 AWESOME! MAGNIFIQUE...


Ca marche parfaitement lorsque je 'Run' la Macro. Derniere question, j'ai ajouté un bouton dans le sheet1, évidement une fonction peut etre associée a ce bouton. ce que je souhaiterai faire est d'executer la macro en appuyant sur le bouton. j'ai essayé en copiant collant votre code dans cette fonction bouton mais la macro ne s'execute pas.

Merci encore pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CommandButton1_Click()
 
Dim cpt_col_A As Integer, cpt_col_B As Integer
Dim ligneCopie As Integer
 
ligneCopie = 1
 
For cpt_col_A = 2 To Range("a65536").End(xlUp).Row
    For cpt_col_B = 2 To Range("b65536").End(xlUp).Row
        If Range("a" & cpt_col_A & "").Value = Range("b" & cpt_col_B & "").Value Then
            ligneCopie = ligneCopie + 1
            Range("d" & ligneCopie & "").Value = Range("a" & cpt_col_A & "").Value
            Range("e" & ligneCopie & "").Value = Range("c" & cpt_col_B & "").Value
        End If
    Next cpt_col_B
Next cpt_col_A
 
 
End Sub

En piece jointe un snapshot

[SfJ5Rpw8]

Bonjour,
Il faut eviter les select, activate... et toujours preciser devant les objets tels que range, cells.. la feuille et le classeur concerne
Remplace tes range... par des Thisworkbook.worksheets("sheet1").range..

[evx136]

Bonjour

Je te joins un fichier avec ta solution.

Cordialement

[developpeur82]

This is awesome Mr evx136

Merci encore, j'apprecie votre aide