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 : 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
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