Bonjour forum
voila je bloque sur ce code
dans un usf, a l aide d'une cbx je selectionne et copie les valeurs d'une feuil deja creee.les valeurs s'incrivent dans les tbx
lors de la creation de ces feuils je rempli en meme une feuil "repertoire" ligne par ligne avec numero incremente
avec le choix "oui"
je voudrai pouvoir si besoin apporter des modifs sur une ou plusieurs valeurs
avec un bouton mise a jour.
merci
Private Sub CommandButton11_Click()
If ComboBox10.Value = Onglet Then
Msg = "Mettre à jours ?"
'TextBox3.SetFocus
Style = vbYesNo + vbDefaultButton1
'Définit les boutons.
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
' choix le bouton « Oui ».
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Else
If Réponse = vbNo Then
Exit Sub
End If
End If
End If
End Sub
voila je bloque sur ce code
dans un usf, a l aide d'une cbx je selectionne et copie les valeurs d'une feuil deja creee.les valeurs s'incrivent dans les tbx
lors de la creation de ces feuils je rempli en meme une feuil "repertoire" ligne par ligne avec numero incremente
avec le choix "oui"
je voudrai pouvoir si besoin apporter des modifs sur une ou plusieurs valeurs
avec un bouton mise a jour.
merci
Private Sub CommandButton11_Click()
If ComboBox10.Value = Onglet Then
Msg = "Mettre à jours ?"
'TextBox3.SetFocus
Style = vbYesNo + vbDefaultButton1
'Définit les boutons.
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
' choix le bouton « Oui ».
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Else
If Réponse = vbNo Then
Exit Sub
End If
End If
End If
End Sub
