RESOLU] VBA - probléme sur valeur

[greg63]

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

 

[eddy51]

Re : VBA - probléme sur valeur

ta formule dit de faire de 0 a 10 mais ne dit pas d'exclure le 5 deja

 

[greg63]

Re : VBA - probléme sur valeur

POur cette partie je me suis fait aider d'une personne de ce site ^^ .

Je ne sais pas en faite. SI tu regardes mes feuilles la cotation va de 1 à 10. Donc logiquement le 0 est exclue.

Mais pas le 5. Aurais tu la solution . Parceque moi je séche dessus 🙄

 

[eddy51]

Re : VBA - probléme sur valeur

ben dans ton code tu met de 0 a 10 et tu met bien qu'il y'a 11 valeur ; j'ai compris ce que tu veut , mais j'ai du mal a comprendre le 5 de quoi MDR

 

[greg63]

Re : VBA - probléme sur valeur

en faite regarde l'onglet A 1 ou A1(2) . Il représente une cotation de 1 à 10. Mais si tu regarde attentivement il n'y a pas la valeur 5. Pourquoi ce choix car je ne veux pas que les personnes qui vont coter se cache derriere cette valeur centrale . C'est tout . Alors il est vrai que si on pouvait sortir cette sataner valeur de ma formule je serais heureux .

 

[eddy51]

Re : VBA - probléme sur valeur

sur toute les feuilles y'a pas de valeur 5 , c'est bien ce que tu veut non? alors quelle est le probleme

 

[eddy51]

Re : VBA - probléme sur valeur

Déja le truc que je comprend pas c'est que j'entre une valeur , je compile les resultats il ne la garde pas

 

[WUTED]

Re : VBA - probléme sur valeur

Bonjour greg63, eddy51,

Essaye ça :

Private Function Cote(pl As Range) As String
    Dim i As Integer
    For i = 0 To 9
        If pl.Offset(0, i) <> "" Then
            If i >= 4 And i < 9 Then
                i = i + 2
                Cote = i
            ElseIf i = 9 Then
                Cote = ""
            Else
                i = i + 1
                Cote = i
            End If
            Exit For
        End If
    Next i
End Function

Bonne journée,

 

[eddy51]

Re : VBA - probléme sur valeur

j'avais pencé a un truc comme sa wuted , mais pourquoi tout simplement pas retiré le 5 dans son tableau de départ ,celui qui definie les votes

 

[WUTED]

Re : VBA - probléme sur valeur

Re,

J'ai pas regardé tout le fichier, comment ça retirer le 5 ? Les grilles de notation ne comportent déjà plus la valeur 5 je crois.

 

[eddy51]

Re : VBA - probléme sur valeur

oui mais il dit que quand il tape 6 sa lui met 5 , il faut prendre en compte que le tableau commence a 0
case 0 =0 1=1 2=2 3=3 4=4 5=5 6=6 7=7 8=8 9=9 10=10
si on retire le 5 comme il a fait normal d'obtenir
0=0 1=1 2=2 3=3 4=4 5=6 6=7 7=8 8=9 9=10 10=RIEN

 

[greg63]

Re : VBA - probléme sur valeur

ça marche niquel merci bien. Merci à vous 2 de vous pencher sur mon problème.

Juste une dernière chose J'aimerais avoir le sigle NE qui apparait dans la feuille (de synthése des résultat) lorsqu'on coche la colonne NE dans les feuilles A1 A1(2) A1(n) ...

 

[eddy51]

Re : VBA - probléme sur valeur

NE est considéré comme 11 don si tu coche NE il t'affiche 11 c'est sa?

 

[Dugenou]

Re : VBA - probléme sur valeur

Salut à vous deux,
Je pense qu'il y a une autre réponse possible dans mon fichier joint à ton autre fil.
Cordialement

 

[WUTED]

Re : VBA - probléme sur valeur

Re,

Private Function Cote(pl As Range) As String
    Dim i As Integer
    For i = 0 To 9
        If pl.Offset(0, i) <> "" Then
            If i >= 4 And i < 9 Then
                i = i + 2
                Cote = i
            ElseIf i = 9 Then
                Cote = "NE"
            Else
                i = i + 1
                Cote = i
            End If
            Exit For
        End If
    Next i
End Function