comparaison

[cecile]

salut tout le monde

Je me lance en VBA et je conçois une boucle 'for'

je voudrais faire une comparaison entre 2 colonnes chacune sur une feuille:

ex : je doit comparer le premier élement case a1 de la feuille 1 avec tous les elements du colonne qui se trouve dans la 2ème page.

alors j ai besoin de 2 boucle for

For i = 1 To 6550
For j = 1 To 6550
...
savez vous le code

cecile

A+

 

[cecile]

salut

Personne voudra m aider???? 🙁 🙁

Merci 🙁

 

[cecile]

salut

la question d'une autre maniere
c est le code mais pour a1 feuille 1 et a1 feuille 2
x1 = Sheets('feuil1').Range('a1')
x2 = Sheets('feuil2').Range('a1')
et moi je voudrais faire 2 boucles
for i
for j
code celui la est faut mais pour vous montrer

x1 = Sheets('feuil1').Range('ai')
x2 = Sheets('feuil2').Range('aj')

next j
next i

cecile
A+
Merci

 

[Hervé]

Bonjour

de plus en plus impatient les forumeurs 🙁


dim ws1 as worksheet
dim ws2 as worksheet
dim i as integer,j as integer

set ws1=sheets('feuil1')
set ws2=sheets('feuil2')

for i=1 to ws1.range('a1:a'&ws1.range('a65536').end(xlup).row)
for j=1 to ws2.range('a1:a'&ws2.range('a65536').end(xlup).row)
if ws1.cells(i,1)=ws2.cells(j,1) then
'ton traitement
end if
next j
next i

salut

 

[cecile]

salut

j ai essayé ton prog hervé mais il me donne à chaque fois le meme pb ' erreur d'execution 13' et incompatibilité de type.

voici le code 🙁 j ai changé un pe)
For i = 1 To Sheets('feuil1').Range('a1:a' & Sheets('feuil1').Range('a65536').End(xlUp).Row)
For j = 1 To Sheets('feuil2').Range('a1:a' & Sheets('feuil2').Range('a65536').End(xlUp).Row)
If Sheets('feuil1').Cells(i, 1) = Sheets('feuil2').Cells(j, 1) Then

....

sais tu pourkoi
salut

 

[Hervé]

re

WHAOU, j'ai fait fort là.


corrige comme ceci :

For i = 1 To Sheets('feuil1').Range('a65536').End(xlUp).Row
For j = 1 To Sheets('feuil2').Range('a65536').End(xlUp).Row
If Sheets('feuil1').Cells(i, 1) = Sheets('feuil2').Cells(j, 1) Then

extrait d'une conversation intime :

- bon ben Hervé, tu sais ou tu va maintenant ?
- euh....non ?
- ben au zop
- ah oui

salut

 

[cecile]

salut

tjs le meme prob mnt j ai rien changé
le msg qui me donne est 'l'indice n appartient pas à la selection'

ke pense tu

cecile salut

 

[Hervé]

re

ben là je comprend plus

voici le code que j'ai utilisé pour tester :

Sub Bouton1_QuandClic()
Dim i As Integer
Dim j As Integer

For i = 1 To Sheets('feuil1').Range('a65536').End(xlUp).Row
        For j = 1 To Sheets('feuil2').Range('a65536').End(xlUp).Row
                If Sheets('feuil1').Cells(i, 1) = Sheets('feuil2').Cells(j, 1) Then
                        MsgBox Sheets('feuil2').Cells(j, 1).Address 'pour test
                End If
        Next j
Next i
End Sub

j'ai pas eu de souci.

tu as bien deux feuilles dans ton classeur nommée feuil1 et feuil2 ?

salut

 

[pierrejean]

bonjour cecile

salut Hervé

@ cecile

peux-tu nous dire quelle est la ligne en mise en jaune par le debuger ??

mes excuses Hervé
je n'avais pas rafraichis

Message édité par: pierrejean, à: 27/06/2006 14:56

 

[cecile]

salut

il ne me donne pas le msg de msgbox il me donne tjs le meme prob:
erreur d execution '9'
'l'indice n appartient pas à la selection'

Ligne en jaune

For i = 1 To Sheets('feuil1').Range('a65536').End(xlUp).Row
Merci

Salut

 

[pierrejean]

re

2 verifications

1) la feuil1 existe bien ?

2) dans cette feuille il y a bien quelque chose en A1 (au moins)