Créer une colonne de niveaux

Bonjour,

Je souhaiterais créer une colonne qui m'affiche des niveaux (N+1,N,N-1, ect). Je connais le maximum positif et négatif. Voici mon code ci-joint :

Sub niveaux()

' on définit les niveaux pour chaque lignes

Dim niveaumaxpositif As Integer, niveaumaxnegatif As Integer
niveaumaxpositif = InputBox("Quel est le plus haut niveau de conséquences ?")
niveaumaxnegatif = InputBox("Quel est le plus haut niveau de causes ?")

'On crée les niveaux positifs et négatifs
For i = 1 To niveauxnegatif
Cells(i, 36) = "N -" & i 'je stocke volontairement les données dans la colonne AJ
Next
For i = 1 To niveauxpositif
Cells(niveauxnegatif + i, 36) = "N +" & i
Next
End Sub

Voilà ! Merci beaucoup

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Bonjour,

Merci de bien vouloir utiliser les balises de codes en cliquant sur le bouton </> et en collant vos codes dans la fenêtre. C'est plus clair à lire
J'ai corrigé dans votre post.

Pour votre demande, essayez ceci :

Sub niveaux() ' on définit les niveaux pour chaque lignes
Dim i As Integer, niveaumaxpositif As Integer, niveaumaxnegatif As Integer

Do
    niveaumaxpositif = Application.InputBox("Quel est le plus haut niveau de conséquences ?", Title:="Niveau Conséquences", Type:=1)
Loop While niveaumaxpositif <> False And Not IsNumeric(niveaumaxpositif)
If niveaumaxpositif = False Then MsgBox "Abandon": Exit Sub

Do
    niveaumaxnegatif = Application.InputBox("Quel est le plus haut niveau de causes ?", Title:="Niveau Causes", Type:=1)
Loop While niveaumaxnegatif <> False And Not IsNumeric(niveaumaxnegatif)
If niveaumaxnegatif = False Then MsgBox "Abandon": Exit Sub

'On crée les niveaux positifs et négatifs
For i = 1 To niveaumaxnegatif
    Cells(i, 36) = "N -" & i 'je stocke volontairement les données dans la colonne AJ
Next
For i = 1 To niveaumaxpositif
    Cells(niveaumaxnegatif + i, 36) = "N +" & i
Next
End Sub

Si ok -->

Cordialement

Oui cela marche merci ! Désolée pour la mise en forme j'y ferais plus attention.

Pourriez vous m'indiquer mon erreur ?

Merci beaucoup

Pourriez vous m'indiquer mon erreur ?

Oui bien sûr. Elle se situait ici

For i = 1 To niveaunegatif

Vous aviez "niveaunegatif" au lieu de "niveauMAXnegatif"

Cordialement

Ah oui merci beaucoup !