BOnjour à tous,
Je viens à vous car j'ai un problème.
Je souhaite coté de 1 à 10 mais en retirant le 5.
En utilisant une macro les valeurs obtenues dans les feuilles A1 et A1(2) viennent se mettre dans la feuille 1.
Par contre la cotation issue de la feuilles en A1 et A1(2) s'effectue sur les valeurs de 1 à 10 mais exclue le 5.
Le probléme c'est lorsque je place une crois dans le 6 la valeur obtenue et 5 pour 7 la valeur est 6 et ainsi de suite jusqu'a 10.
Or Lorsque nous cotons 4 la valeur obtenu est bien 4.
Pourriez vous me modifier une partie du code pour que je tombe juste
La formule est lasuivante :
Private Function Cote(pl As Range) As String
For i = 0 To 10
If pl.Offset(0, i) <> "" Then Exit For
Next i
i = i + 1
If i = 11 Then Cote = "" Else Cote = i
End Function
Je vous joints le fichier
.Merci par avance de votre aide
Je viens à vous car j'ai un problème.
Je souhaite coté de 1 à 10 mais en retirant le 5.
En utilisant une macro les valeurs obtenues dans les feuilles A1 et A1(2) viennent se mettre dans la feuille 1.
Par contre la cotation issue de la feuilles en A1 et A1(2) s'effectue sur les valeurs de 1 à 10 mais exclue le 5.
Le probléme c'est lorsque je place une crois dans le 6 la valeur obtenue et 5 pour 7 la valeur est 6 et ainsi de suite jusqu'a 10.
Or Lorsque nous cotons 4 la valeur obtenu est bien 4.
Pourriez vous me modifier une partie du code pour que je tombe juste
La formule est lasuivante :
Private Function Cote(pl As Range) As String
For i = 0 To 10
If pl.Offset(0, i) <> "" Then Exit For
Next i
i = i + 1
If i = 11 Then Cote = "" Else Cote = i
End Function
Je vous joints le fichier
.Merci par avance de votre aide
