Sauvegarde auto de mes textbox

[marcelio]

Bonjour le forum,
J'ai chercher dans le forum mais pas trouver mon bonheur.
Effectuez un double clic dans la colonne P
J'aimerais remplir mes textbox et que celle-ci s'enregistre automatiquement sur la feuille et
ainsi supprimer le bouton "VALIDER"
Mon USF sert pour plusieurs feuilles et est protéger sans mot de passe (la j'ai enlever la protection)
J'ai des mises en forme conditionnelle , il faudrait que tout mes chiffres soit en décimal.
Merci d'avance de votre aide.

Marcelio

 

[Dranreb]

Re : Sauvegarde auto de mes textbox

Bonjour.

Il vaut toujours mieux prendre note des objets eux même que leurs références. Là il vous en faut 2, un String pour le nom de l'onglet, un autre pour l'adresse de la cellule, alors qu'il vous suffirait d'un seul Range!
Essayez comme ça, dans l'Userform :

Dim LaLgn As Range

Public Sub Afficher(ByVal Cel As Range)
Set LaLgn = Cel.EntireRow
TextBox1 = LaLgn.Columns("P").Value
TextBox2 = LaLgn.Columns("R").Value
TextBox3 = LaLgn.Columns("G").Value
TextBox4 = LaLgn.Columns("U").Value
TextBox5 = LaLgn.Columns("B").Value
TextBox6 = LaLgn.Columns("D").Value
TextBox7 = LaLgn.Columns("E").Value
TextBox8 = LaLgn.Columns("AD").Value
TextBox9 = LaLgn.Columns("AE").Value
Me.Show vbModeless
End Sub

Private Sub TextBox1_Change()
LaLgn.Columns("P").Value = CDbl(TextBox1.Text)
End Sub
Private Sub TextBox2_Change()
LaLgn.Columns("R").Value = CDbl(TextBox2.Text)
End Sub
Etc.

Dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Me.[P13:P22]) Is Nothing Then UserForm1.Afficher Target
Cancel = True
End Sub

 

[marcelio]

Re : Sauvegarde auto de mes textbox

Bonjour Dranreb,

alors qu'il vous suffirait d'un seul Range, comment faire car je suis un peu débutant en VBA.
Merci de votre aide
Marcelio

 

[Dranreb]

Re : Sauvegarde auto de mes textbox

Je n'avais pas vu votre réponse. voir édit poste précédent.

 

[marcelio]

Re : Sauvegarde auto de mes textbox

Re,

Merci c'est superbe, juste un petit souci quand je veut effacer un chiffre suite à une erreur cela me donne une erreur.
"Incompatibilité de type"
Erreur d’exécution '13'
et cela me met en jaune pour la textbox1
LaLgn.Columns("P").Value = CDbl(TextBox1.Text)

A+
Marcelio

 

[Dranreb]

Re : Sauvegarde auto de mes textbox

Ajoutez On Error Resume Next devant l'instruction.

 

[marcelio]

Re : Sauvegarde auto de mes textbox

j'ai bien ajouter l'instruction mais cela n'efface pas le chiffre sur la feuille.
A+

 

[Dranreb]

Re : Sauvegarde auto de mes textbox

Alors ajoutez derrière If Err Then LaLgn.Columns("P").ClearContents

 

[marcelio]

Re : Sauvegarde auto de mes textbox

Re,

Merci cela fonctionne à la perfection.
Je vous remercie encore une nouvelle fois de votre aide.
Bonne journée à vous et au Forum
Marcelio