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
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
A voir également:
- Test colonne par rapoort à une autre
- Test pc - Guide
- Déplacer une colonne excel - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Test ram - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
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
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
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
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
21 mai 2009 à 22:38
bonjour
Tu peux faire cela avec un filtre élaboré en partant de ta feuille 3 .
Tu peux faire cela avec un filtre élaboré en partant de ta feuille 3 .
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
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
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
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
26 mai 2009 à 15:02
merci c nikel