Test colonne par rapoort à une autre

Résolu/Fermé
yoshino Messages postés 43 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 2 mars 2010 - 20 mai 2009 à 14:10
yoshino Messages postés 43 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 2 mars 2010 - 26 mai 2009 à 15:02
Bonjour,
J'ai un petit soucis de programmation
J'ai dans un onglet dans la colonne A des numéros
Dans un autre onglet j'ai également des numéros dans la colonne A
J'aimerais trouver un petit programme sous excel pour dire

Prendre la première valeur de la colonne A (2eme onglet)
Faire une recherche dans la colonne A (onglet1), pour trouver le même chiffre que sélectionner si avant
Prendre toutes les lignes correspondantes et les coller dans un troisième onglet

Est ce possible, pouvez vous m'aider
Merci beaucoup

4 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
25 mai 2009 à 21:21
bonjour

seulement quand je le lance il met une erreur sur la ligne: Rows("j:j").select

"j:j" pourrais presque être une colonne mais avec "J:J"

Si tu veux utiliser ta variable j tu mets : Rows(j).select
1
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
21 mai 2009 à 22:38
bonjour

Tu peux faire cela avec un filtre élaboré en partant de ta feuille 3 .
0
yoshino Messages postés 43 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 2 mars 2010 7
25 mai 2009 à 09:51
j'ai réalisé ce petit programme

Sub Macro6()
Dim drligne
Dim prligne
Dim ligne
Dim nb
Dim n
Dim a
Dim b
Dim i
Dim j
a = 0
b = 0
i = 0
j = 0
nb = 0
n = 0
Sheets("Feuil2").Select
prligne = 2
drligne = prligne
Cells(drligne, 1).Select
Do While ActiveCell.Value <> ""
drligne = drligne + 1
Cells(drligne, 1).Select
nb = drligne - 1
Loop
Sheets("Feuil1").Select
ligne = prligne
Cells(ligne, 1).Select
Do While ActiveCell.Value <> ""
ligne = ligne + 1
Cells(ligne, 1).Select
n = ligne - 1
Loop
Sheets("Feuil2").Select
For i = prligne To nb
a = Cells(i, 1).Value
Sheets("feuil1").Select
For j = prligne To n
b = Cells(j, 1).Value
If a = b Then
Sheets("feuil1").Select
Rows("j:j").Select
Selection.Copy
Sheets("Feuil3").Select
Rows("j:j").Select
ActiveSheet.Paste
j = j + 1
Else
j = j + 1
End If
Next
Next i
End Sub


seulement quand je le lance il met une erreur sur la ligne: Rows("j:j").select
et je ne sais pas pourquoi.
Si quelqu'un peut m'aider merci beaucoup
0
yoshino Messages postés 43 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 2 mars 2010 7
26 mai 2009 à 15:02
merci c nikel
0