Discussion :

[guismoman33]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

end if

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

[davidou2001]

Juste au dessus du Enf If qui merde, tu as un Exit For et pas de Next. L erreur doit venir de la

[mordrhim]

je confirme

remplace le Exit For de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
       Exit For
    End If
Next j

par Next

[davidou2001]

et on n'oublie pas le ! Merci !

[illight]

t'a oublié un Next a 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

[Selecteur]

Bonjour le forum, guismoman33,

Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Selecteur]

Pardon j'avais pas raffraichi !

[guismoman33]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(a:a).Select

[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???!!!

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(a).Select