pb de remplissage

[Reeaz]

Bonjour,

j'ai une feuille de calcul, sur la collonne F j'ai des notes pr chaque note j'aimerai asscosier une valeur 4 collonnes plus loin, j'ai crée une macro mais ca ne marche pas, la voila:

Sub Chiffre1()

fin = Range("F2").End(xlDown).Row
For i = 2 To fin

If Cells(i, 7).Value = "Etat" Then Cells(i, 11).Value = 1
If Cells(i, 7).Value = "NR" Then Cells(i, 11).Value = 23
If Cells(i, 7).Value = "AAA" Then Cells(i, 11).Value = 2
If Cells(i, 7).Value = "AA+" Then Cells(i, 11).Value = 3
If Cells(i, 7).Value = "AA" Then Cells(i, 11).Value = 4
If Cells(i, 7).Value = "AA-" Then Cells(i, 11).Value = 5
If Cells(i, 7).Value = "A+" Then Cells(i, 11).Value = 6
If Cells(i, 7).Value = "A" Then Cells(i, 11).Value = 7
If Cells(i, 7).Value = "A-" Then Cells(i, 11).Value = 8
If Cells(i, 7).Value = "BBB+" Then Cells(i, 11).Value = 9
If Cells(i, 7).Value = "BBB" Then Cells(i, 11).Value = 10
If Cells(i, 7).Value = "BBB-" Then Cells(i, 11).Value = 11
If Cells(i, 7).Value = "BB+" Then Cells(i, 11).Value = 12
If Cells(i, 7).Value = "BB" Then Cells(i, 11).Value = 13
If Cells(i, 7).Value = "BB-" Then Cells(i, 11).Value = 14
If Cells(i, 7).Value = "B+" Then Cells(i, 11).Value = 17
If Cells(i, 7).Value = "B" Then Cells(i, 11).Value = 18
If Cells(i, 7).Value = "B-" Then Cells(i, 11).Value = 19
If Cells(i, 7).Value = "CCC" Then Cells(i, 11).Value = 20
If Cells(i, 7).Value = "CC" Then Cells(i, 11).Value = 21
If Cells(i, 7).Value = "D" Then Cells(i, 11).Value = 22

Next i


End Sub


Si qqun voit l'erreur, ce serait sympa de m 'aider.
Merci.

Reeaz

 

[alex]

j'ai jamais vu quelqu'un qui se régale autant que toi

 

[pyrof]

bonjour,
Il semble que la valeur fin est 65535 c'est à dire toute la colonne ce qui est très long.

Voir :
Sub Chiffre1()
i = 2
While Cells(i, 7) <> ""
If Cells(i, 7).Value = "Etat" Then Cells(i, 11).Value = 1
If Cells(i, 7).Value = "NR" Then Cells(i, 11).Value = 23

......
If Cells(i, 7).Value = "CC" Then Cells(i, 11).Value = 21
If Cells(i, 7).Value = "D" Then Cells(i, 11).Value = 22
i = i + 1
Wend

End Sub


Rn espérant que tu n'as pas de cellule vide au milieu

 

[pyrof]

c'est encore moi

Je viens de voir

fin = Range("F2").End(xlDown).Row

et cells(i,7)

F2 correspond à la colonne 6 et tu teste dans la colonne 7, n'est pas la ton problème??

 

[pyrof]

La dernière fois (peut être)

J'ai du temps alors je me suis permis

voici un code qui va être plus rapide en exécution :

Sub Chiffre1()
Dim valeur2 As Range
i = 2
While Cells(i, 7) <> ""
Set valeur2 = Cells(i, 11)
Select Case Cells(i, 7)
Case "Etat": valeur2 = 1
Case "NR": valeur2 = 23
Case "AAA": valeur2 = 2
Case "AA+": valeur2 = 3
Case "AA": valeur2 = 4
Case "AA-": valeur2 = 5
Case "A+": valeur2 = 6
Case "A": valeur2 = 7
Case "A-": valeur2 = 8
Case "BBB+": valeur2 = 9
Case "BBB": valeur2 = 10
Case "BBB-": valeur2 = 11
Case "BB+": valeur2 = 12
Case "BB": valeur2 = 13
Case "BB-": valeur2 = 14
Case "B+": valeur2 = 17
Case "B": valeur2 = 18
Case "B-": valeur2 = 19
Case "CCC": valeur2 = 20
Case "CC": valeur2 = 21
Case "D": valeur2 = 22
End Select
i = i + 1
Wend

End Sub



Car pour chaque cellule tu fais tous les tests même le premier est le bon.
avec select cas dès qu'il a trouve le case il ne fait plus les autres.

Pour améliorer encore, si tu peux savoir si classer l'ordre des case du plus utilisé au moins .

Bon sourrage

 

[Reeaz]

Merci de ton aide pyrof, mais en fait j'ai réussi à faire marcher ma macro.
Pourtant, j'ai toujours un pb car dans ma collonne 7, j'ai des erreurs que je dois gérer (du type #N/A, div par 0), mais que je n'arrive pas à gérer!
Voici ce que j'ai essayé:
Sub Chiffre1()

fin = Range("F2").End(xlDown).Row
For i = 2 To fin
'Cells(i, 7).Select
'On Error Resume Next
On Error GoTo Errorhandler
If Cells(i, 7).Value = "Etat" Then
Cells(i, 11).Value = 1
ElseIf Cells(i, 7).Value = "NR" Then
Cells(i, 11).Value = 23
ElseIf Cells(i, 7).Value = "AAA" Then
Cells(i, 11).Value = 2
ElseIf Cells(i, 7).Value = "AA+" Then
Cells(i, 11).Value = 3
ElseIf Cells(i, 7).Value = "AA" Then
Cells(i, 11).Value = 4
ElseIf Cells(i, 7).Value = "AA-" Then
Cells(i, 11).Value = 5
ElseIf Cells(i, 7).Value = "A+" Then
Cells(i, 11).Value = 6
ElseIf Cells(i, 7).Value = "A" Then
Cells(i, 11).Value = 7
ElseIf Cells(i, 7).Value = "A-" Then
Cells(i, 11).Value = 8
ElseIf Cells(i, 7).Value = "BBB+" Then
Cells(i, 11).Value = 9
ElseIf Cells(i, 7).Value = "BBB" Then
Cells(i, 11).Value = 10
ElseIf Cells(i, 7).Value = "BBB-" Then
Cells(i, 11).Value = 11
ElseIf Cells(i, 7).Value = "BB+" Then
Cells(i, 11).Value = 12
ElseIf Cells(i, 7).Value = "BB" Then
Cells(i, 11).Value = 13
ElseIf Cells(i, 7).Value = "BB-" Then
Cells(i, 11).Value = 14
ElseIf Cells(i, 7).Value = "B+" Then
Cells(i, 11).Value = 17
ElseIf Cells(i, 7).Value = "B" Then
Cells(i, 11).Value = 18
ElseIf Cells(i, 7).Value = "B-" Then
Cells(i, 11).Value = 19
ElseIf Cells(i, 7).Value = "CCC" Then
Cells(i, 11).Value = 20
ElseIf Cells(i, 7).Value = "CC" Then
Cells(i, 11).Value = 21
ElseIf Cells(i, 7).Value = "D" Then
Cells(i, 11).Value = 22

'ElseIf IsNumeric(Cells(i, 7).Value) Then Cells(i, 11).Value = ""
End If
Next i

Exit Sub

Errorhandler:
'fin = Range("F2").End(xlDown).Row
'For i = 2 To fin
If IsError(Cells(i, 7).Value) = True Then Cells(i, 11).Value = ""
'ActiveCell.Offset(0, 4).Value = "toto"
'Next i

Resume Next


End Sub

Je voudrai en fait que chaque fois qu'il y une erreur de ce type, que la macro n'en tienne pas compte et renvoie rien ds la collonne 11.

QQun sait comment faire?

 

[pyrof]

voila avec gestion d'erreur

Sub Chiffre1()
Dim valeur2 As Range
i = 2
While IsError(Cells(i, 7))
Cells(i, 11) = ""
i = i + 1
Wend
While Cells(i, 7) <> ""
Set valeur2 = Cells(i, 11)
If IsError(Cells(i, 7)) = False Then
Select Case Cells(i, 7)
Case "Etat": valeur2 = 1
Case "NR": valeur2 = 23
Case "AAA": valeur2 = 2
Case "AA+": valeur2 = 3
Case "AA": valeur2 = 4
Case "AA-": valeur2 = 5
Case "A+": valeur2 = 6
Case "A": valeur2 = 7
Case "A-": valeur2 = 8
Case "BBB+": valeur2 = 9
Case "BBB": valeur2 = 10
Case "BBB-": valeur2 = 11
Case "BB+": valeur2 = 12
Case "BB": valeur2 = 13
Case "BB-": valeur2 = 14
Case "B+": valeur2 = 17
Case "B": valeur2 = 18
Case "B-": valeur2 = 19
Case "CCC": valeur2 = 20
Case "CC": valeur2 = 21
Case "D": valeur2 = 22
Case Else: valeur2 = ""
End Select
End If
i = i + 1
While IsError(Cells(i, 7))
Cells(i, 11) = ""
i = i + 1
Wend

Wend

End Sub

 

[Reeaz]

Je te remercie, c'est hyper sympa!!
Bonne journée.