probleme de condition

Version imprimable

Rebonjoru alors la j'ai un problème de condition, ne hurlez pas quand je vous lirez mon programme...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
For i = 1 To ligne
    If ref = Cells(i, 17) Then
       rep = 1
       ligne = i
       Exit For
    Else
       rep = 2
    End If
Next i
 
 
For j = 1 To ligne
    If page = Cells(j, 1) Then
 
       For a = j To ligne
              If page = Cells(a, 1) Then
                 Cells(1, 65000) = "1"
 
              Else
                 Range("a" & a).Select
                 Selection.Insert Shift:=xlDown
                 Selection.Insert Shift:=xlDown
                 a = a - 2
                 i = a
                 Exit For
              End If
       Exit For
    End If
Next j

Et sur mon dernier

Citation:

end if

il me disent qu'il y a un end if sans bloque if.
Aidez moi svp merci

07/06/2007, 16h03
davidou2001

Juste au dessus du Enf If qui merde, tu as un Exit For et pas de Next. L erreur doit venir de la
07/06/2007, 16h04
illight

t'a oublié un Next a :roll: tu as une boucle for avec un a qui varie, mais tu ne boucle pas sur celle ci, du coup la macro comprend pas :) d'ou l'erreur avec le if aussi :)
07/06/2007, 16h06
mordrhim
je confirme

remplace le Exit For de
Code:

1 2 3 Exit For End If Next j
par Next
07/06/2007, 16h08
davidou2001

et on n'oublie pas le :resolu: ! :P Merci !

Bonjour le forum, guismoman33,

Essaie ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
For i = 1 To ligne
    If ref = Cells(i, 17) Then
       rep = 1
       ligne = i
    Else
       rep = 2
    End If
Next i
 
 
For j = 1 To ligne
    If page = Cells(j, 1) Then
 
       For a = j To ligne
              If page = Cells(a, 1) Then
                 Cells(1, 65000) = "1"
 
              Else
                 Range("a" & a).Select
                 Selection.Insert Shift:=xlDown
                 Selection.Insert Shift:=xlDown
                 a = a - 2
                 i = a
              End If
       Next a
    End If
Next j

Selecteur

07/06/2007, 16h12
Selecteur

Pardon j'avais pas raffraichi !
07/06/2007, 16h18
guismoman33

Et comment modifier sa car ceci ne marche pas en sachant que a est une variable integer voila

Code:

Rows(a:a).Select
07/06/2007, 16h19
guismoman33

C'est surtout moi qui n'avait pas réfléchie c'est vraiment très petit...Erreur de débutant...Pouvez vous répondre a ma question suivante svp???!!!
07/06/2007, 16h28
mordrhim

Code:

Rows(a).Select