Conditions multiples

bonjour

j'ecris ce petit code avec plusieurs "if"

Sub RX_aquis()

Dim nom As String

nom = InputBox("entrer un nom :", "message")

If nom = "albert" Then
    Range("b5").Select
    Range("b5").Offset(0, 35) = Range("b5").Offset(0, 35) + 1
    Range("b5").Offset(0, 35).Font.ColorIndex = 3
    End If
If nom = "julien" Then
    Range("b6").Offset(0, 35).Select
    Range("b6").Offset(0, 35) = Range("b5").Offset(0, 35) + 1
    Range("b6").Offset(0, 35).Font.ColorIndex = 3
    End If
If nom = "antoine" Then
    Range("b7").Offset(0, 35).Select
    Range("b7").Offset(0, 35) = Range("b5").Offset(0, 35) + 1
    Range("b7").Offset(0, 35).Font.ColorIndex = 3
    End If
If nom = "jules" Then
    Range("b8").Offset(0, 35).Select
    Range("b8").Offset(0, 35) = Range("b5").Offset(0, 35) + 1
    Range("b8").Offset(0, 35).Font.ColorIndex = 3
    End If
If nom = "eric" Then
    Range("b9").Offset(0, 35).Select
    Range("b9").Offset(0, 35) = Range("b5").Offset(0, 35) + 1
    Range("b9").Offset(0, 35).Font.ColorIndex = 3
    End If

end sub

je peux incrementer de +1 ma première ligne à volonté lorsque le nom = "albert " par contre pour les noms suivants je ne peux incrementer qu'une seule fois de +1 , je ne vois pas comment je pourrais y remedier ( si je choisi le nom=eric ) la cellule de destination ne change pas et reste égale à 1

Merci pour tout vos conseils

Cordialement

je viens de voir ma betise !! merci quand meme

Salut rocket4 et le forum

Moins tu écris, moins tu risques des erreurs.

Une petite variante :

Sub RX_aquis()

Dim Nom As String, Cel As Range

Nom = InputBox("entrer un nom :", "message")

Select Case Nom
    Case "albert"
        Set Cel = Range("B5").Offset(0, 35)
    Case "julien"
        Set Cel = Range("B6").Offset(0, 35)
    Case "antoine"
        Set Cel = Range("B7").Offset(0, 35)
    Case "jules"
        Set Cel = Range("B8").Offset(0, 35)
    Case "eric"
        Set Cel = Range("B9").Offset(0, 35)
End Select
Cel = Cel + 1
Cel.Font.ColorIndex = 3
End Sub

A+

Merci Gorfael je prend note de ta methode en effet plus simple