Test colonne par rapoort à une autre
Résolu
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
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
Configuration: Windows 2003 Internet Explorer 6.0
4 réponses
-
Contributeurbonjour
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 -
Contributeurbonjour
Tu peux faire cela avec un filtre élaboré en partant de ta feuille 3 . -
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 -
merci c nikel
