Je vous remercie, Voici la macro de toute la matrice:
Sub Newp()
'Creation d'un nouveau point
'Enjeu
Range("B5").Value = 0
Range("B5").HorizontalAlignment = xlCenter
Range("B5").Font.Size = 15
'Faisabilite
Range("E5").Value = 0
Range("E5").HorizontalAlignment = xlCenter
Range("E5").Font.Size = 15
'label
Range("B9").Value = ""
End Sub
Sub Enjeu_augm()
'+1 Enjeu
If Range("B5").Value < 10 Then
Range("B5").Value = Range("B5").Value + 1
End If
End Sub
Sub Enjeu_dim()
'-1 Enjeu
If Range("B5").Value > 0 Then
Range("B5").Value = Range("B5").Value - 1
End If
End Sub
Sub Faisabilite_augm()
If Range("E5").Value < 10 Then
Range("E5").Value = Range("E5").Value + 1
End If
End Sub
Sub Faisabilite_dim()
If Range("E5").Value > 0 Then
Range("E5").Value = Range("E5").Value - 1
End If
End Sub
Sub addp()
Enjeu = Range("B5").Value
Faisabilite = Range("E5").Value
Label = Range("B9").Value
i = 18
While Cells(i, 26) <> ""
i = i + 1
Wend
Cells(i, 26) = Enjeu
Cells(i, 27) = Faisabilite
Cells(i, 28) = Label
If Cells(57 - Faisabilite * 4, 1 + Enjeu * 2) = "" Then
Cells(57 - Faisabilite * 4, 1 + Enjeu * 2) = Label
Else: Cells(57 - Faisabilite * 4, 1 + Enjeu * 2) = Cells(57 - Faisabilite * 4, 1 + Enjeu * 2) & vbCrLf & Label
End If
End Sub
Sub reset()
Range("C17:U53").Select
Selection.ClearContents
End Sub
Ce qui manque c'est la macro du bouton Del pour supprimer le dernier texte saisi quelque soit sa position une fois ajouté avec le bouton Add.
Je vous remercie d'avance.
Cordialement.