XL 2010 Macro supprimer un champs d'une cellule ! SOS

[akziz]

Bonjour,

J'ai un petit souci, cette matrice permet de visualiser des textes en les renseignant dans la rubrique label en fonction de la note qu'on donne /10 de l'enjeu et de la faisabilité.
Je veux créer un bouton Del qui permet de supprimer le Label en cas d'erreur ou en cas ou je veux changer de label.

Je n'arrive pas à faire la macro qui permet de faire ça, quelqu'un pourrit il m'aider SVP?

Je vous remercie d'avance.

Cordialement.

 

[pierrejean]

Bonjour akziz
Nous on a un gros souci:
On n'a pas encore trouvé la méthode pour travailler sur des images

 

[akziz]

Bonjour,
Alors ce n'est pas une image, c'est une capture d'écran d'un fichier Excel que j'ai fait

 

[pierrejean]

Re
On n'est pas meilleurs avec une capture d’écran (qui entre nous soit dit s'apparente quand même à une image !!!)

 

[akziz]

Re
On n'est pas meilleurs avec une capture d’écran (qui entre nous soit dit s'apparente quand même à une image !!!)

JE ne comprends pas ce que vous dites, vous avez un élément de réponse à apporter à ma question ?
Cordialement.

 

[pierrejean]

Re
Je veux simplement dire que ce qu'il nous faut c'est un fichier exemple (sans données confidentielles ) pour étudier votre problème

 

[akziz]

Le voici.

 

[pierrejean]

Re

A tester:

 

[akziz]

Merci pour ce fichier mais malheureusement il ne marche pas, il supprime juste ce que j'écris dans le label mais il ne supprime pas ce qui est marqué dans la matrice une fois l'ajouté avec le bouton Add.

Cordialement.

 

[pierrejean]

Je veux créer un bouton Del qui permet de supprimer le Label en cas d'erreur ou en cas ou je veux changer de label.

Je n'ai pas repéré dans cette phrase ce qui permet de penser qu'il y a autre chose a supprimer que ce qui est dans le label
voici avec effacement de la zone C17:U53

 

[akziz]

Je vous remercie pour cet effort mais maintenant le bouton Del supprime tout ce qui se trouve sur la matrice et non pas le dernier Label saisi, autrement dit, il fait le même travail que le bouton reset !
Ce que je cherche est de supprimer uniquement le dernier texte saisi après l'avoir ajouté dans la matrice quelque sa position.

Cordialement.

 

[pierrejean]

Re
La Question est maintenant plus claire
Malheureusement il faudrait pour cela avoir accès au fonctionnement du bouton add
Pour ma part cela me dépasse
je vais essayer de vous aiguiller vers meilleur que moi

 

[akziz]

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.

 

[pierrejean]

Re

Un essai

 

[akziz]

Bonjour,
Je vous remercie, ça marche.
Merci beaucoup pour votre aide.
Excellente journée