comparaison

C

cecile

Guest

• 27 Juin 2006

• #2

salut

Personne voudra m aider???? 🙁 🙁

Merci 🙁

 

Vote positif 0 Vote négatif

C

cecile

Guest

• 27 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 27 Juin 2006

• #4

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

 

Vote positif 0 Vote négatif

C

cecile

Guest

• 27 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 27 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

C

cecile

Guest

• 27 Juin 2006

• #7

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 27 Juin 2006

• #8

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

Cliquez pour agrandir...

j'ai pas eu de souci.

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

salut

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juin 2006

• #9

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

 

Vote positif 0 Vote négatif

C

cecile

Guest

• 27 Juin 2006

• #10

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Juin 2006

• #11

re

2 verifications

1) la feuil1 existe bien ?

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

 

Vote positif 0 Vote négatif