comparaison des cellules VBA (MAcro Excel)

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:

---

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

Essaie ça

Code:

---

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

---

evx136 AWESOME! MAGNIFIQUE... :ccool:


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:

---

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

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

Bonjour

Je te joins un fichier avec ta solution.

Cordialement

This is awesome Mr evx136 :ccool:

Merci encore, j'apprecie votre aide

:merci:


:lahola: