problème exécution du boucle for_ exit for

Version imprimable

Bonjour le Forum ,
J'ai un petit soucis avec mon code , et je n'arrive pas a trouver la solution.
Bref , le programme test la ligne 2 de la feuil "impression" , s'il est vide il saisie dedans , sinon il test si la valeur existante égale à la valeur du combobox du feuil "os" , si oui il test la cellule juste a coté pour afficher un message..., avec mon petit code , il test les 2 premiers lignes , s'il sont vide il saisie dans les 2 ensemble , et s'ils sont déjà rempli , il ne fait rien, donc la première condition ne marche plus :? , et du coup quand j'ai essayé de mettre exit for après la deuxième condition , il test pas la première nn plus . voila :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub impression() Dim I As Long With Worksheets("Impression") Q = Range("A2").End(xlDown).Row For I = 2 To Q If .Cells(I, 1) = Sheets("OS").ComboBox1.Value Then If .Cells(I, 2).Value = "utilisateur" Then MsgBox "Erreur" Else MsgBox "OK" End If ElseIf .Cells(I, 1) = "" Then MsgBox "vd" .Cells(I, 1).Value = Sheets("OS").ComboBox1.Value .Cells(I, 2).Value = .Cells(2, 7).Value End If Next I End With End Sub

11/08/2015, 12h31
Kimy_Ire

Bonjour Merryy,

La seule erreur de code que je vois est la suivante : Q = .Range("A2").End(xlDown).Row.
Donc, si tu lances la macro depuis une autre feuille que "Impression", alors tu risques de ne pas du tout passer dans ta boucle For ou d'y passer beaucoup plus souvent que souhaité.

Autre piste, est-ce que tu récupères bien la valeur de la ComboBox1 de ton autre feuille ?

Tu es bien dans un classeur unique ?

N'hésite pas à revenir vers moi. :ccool:

Cordialement,
Kimy
11/08/2015, 12h37
Merryy

oui je recupère la valeur du combobox mais comme j'ai mentionnée juste dans les 2 premiers lignes s'ils sont vides , sinon le code fait rien .
et donc quesque je dois faire à la place de Q = .Range("A2").End(xlDown).Row ?
11/08/2015, 12h54
keygen08

Bonjour

Code:

Q = Range("A2").End(xlDown).Row

En mettant un petit point apres =
genre

Code:

Q = .Range("A2").End(xlDown).Row

Q par ailleurs inutile

Code:

For I = 2 To .Range("A2").End(xlDown).Row

et j'aurai plutôt dimensionné i en integer
11/08/2015, 13h46
Merryy

i as integer me revoie l'erreur 6 : erreur de capacité j'ai déja essayé ça
11/08/2015, 13h57
keygen08

integer = 32767, etonnant et pas courant, un classeur contenant autant de ligne

je suis bete, recherche de haut en bas

Code:

.Range("A2").End(xlDown).Row

a changer en , recherche de bas en haut

Code:

.Range("A65000").End(xlup).Row

il n'empeche, le point (.) entre le = et le range, en rouge dans le msg de kyme est tres important
regarde bien comment nous avons ecris nos ligne, je ne sais pas comment attiré ton attention sur ce point (.)
11/08/2015, 14h06
Merryy

oui j'ai vu ça et je l'ai changé , mais maintenant avec le XlUp , le programme fait rien
11/08/2015, 15h17
keygen08

Est ce qu'il y a au moins une donnée en colonne A de la feuille "Impression" ?
Aller chercher la derniere cellule vide d'une colonne vide te renvoie 65500....ou plus en fonction du excel utiliser
donc plus grand que integer qui s'arrete a 32000

dans ma recherche on recherche la premiere cellule non vide en partant du bas du tableaux
Avoir l'impression qu'il ne se passe rien ne veut pas dire que c'est le cas.
execute ta macro en mode debogage, tu comprendras mieux ou ça peche.
tu ouvre VBA , clique dans ta macro, et appuie sur F8, c'est magique.
11/08/2015, 15h27
bboy-eazy

Fais également affichage, fenetre variables locales, tu verra alors quelles sont les valeurs de tes variables à chaque instant.
11/08/2015, 16h00
keygen08

la sub est-elle ecrite dans la feuille ?
la recherche effectué dans la colonne A doit-elle reellement se faire sur la feuille "Impression"?
15/08/2015, 10h39
AlainTech
Bonjour,

Pour ne pas être limité à un nombre de lignes dans la recherche de la dernière, je conseille:
Code:

1 2 3 4 Dim Q As Long With Worksheets("Impression") Q = .Cells(.Rows.Count, 1).End(xlUp).Row End With

Bonjour

Citation:

Envoyé par Merryy

Bref , le programme test la ligne 2 de la feuil "impression" , s'il est vide il saisie dedans , sinon il test si la valeur existante égale à la valeur du combobox du feuil "os" , si oui il test la cellule juste a coté pour afficher un message...,

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
Sub impression()
 
Dim I As Long
 
Set obj = Worksheets("os")
 
With Worksheets("Impression")
 
Q = .Cells(.Rows.Count, "A").End(xlUp).Row
 
For I = 2 To Q
 
 If .Cells(I, 1) = "" Then
 
      MsgBox "vd"
        .Cells(I, 1).Value = obj.ComboBox1.Value
        .Cells(I, 2).Value = .Cells(2, 7).Value
 
   ElseIf .Cells(I, 1) = obj.ComboBox1.Value Then
         If .Cells(I, 2).Value = "utilisateur" Then
            MsgBox "Erreur"
         Else
           MsgBox "OK"
         End If
 
  End If
Next I
End With
End Sub