Modifier une Cellule d'un Tableau via Combobox et TextBox
Bonsoir mesdames et messieurs,
Je cherche à produire une action de modification avec mon UserForm1.
Dans un premier temps j'aimerais pouvoir sélectionné avec ma Combobox1 un prénoms faisant partie de mon Tableau1. ça c'est OK j'y arrive.
En suite la ou j'ai besoin de votre aide c'est pour.
-Afficher le résultat de ma sélection Combobox dans mon Textbox1 juste en dessous.
-Modifier le prénoms qui est du coup sélectionné dans ma Combobox1 et introduit dans ma Textbox1
-En pressant sur le CommandButton1 "VALIDER" un message d'alerte doit s'afficher et demandé [êtes vous sur de vouloir modifier le prénom?] avec bouton oui/non
-Et surtout ne pas pouvoir validé ma Textbox1 si elle est vide.
J'ai regardé énormément de vidéo j'ai passer des heures a essayer de comprendre mais ça me dépasse encore largement.
Si vous avez la solution je vous écoutes!
Merci d'avance.
Bonjour BouZouk,
Déjà il faut que pour modifier tu appuies sur le bouton valider donc dans l'userform la macro se déclence ainsi :
Private Sub CommandButton1_Click()Voilà la solution que je propose :
Private Sub CommandButton1_Click()
Dim reponse As Integer
reponse = MsgBox("Etes vous sur de vouloir modifier ?", vbQuestion + vbYesNo + vbDefaultButton2, "Alerte")
If reponse = vbYes Then
Dim Cel As Range
For Each Cel In Range("G:G")
If Cel.Value = ComboBox1.Value Then
If TextBox1.Value <> "" Then
Cel.Value = TextBox1.Value
Exit For
Else
MsgBox "Saisi vide"
End If
End If
Next Cel
Else
Unload Me
End If
Unload Me
End SubJ'ai testé cela fonctionne selon tes demandes, et j'ai prévu aussi l'ajout de prénom dans ton tableau
@+