Discussion :

[Calican]

Bonjour à tous,

je veut juste transmettre les données saisie dans les TextBox dans les cellules ou plage de cellules précisé dans le code ci dessous, mais une seule ligne me fait une erreur et je ne comprend pas de ou cela pourrais venir, cela fonctionnais dans la matinée et je n'es touché a aucun nom de variable, ni même a cette sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub Env_Don_Click()
 
Sheets("Feuil1").Unprotect "543210"
 
    Range("C6") = TextBox1.Value
    Range("C7") = TextBox2.Value
    Range("C8") = TextBox3.Value
    Range("C9") = TextBox4.Value
    Range("C10") = TextBox5.Value
    Range("C11") = TextBox6.Value
    Range("B32,H32") = TextBox7.Value 'cette ligne pose problème
    Range("G4") = Date_Txt.Value
    Range("C16") = TextBox8.Value
    Range("C17") = TextBox9.Value
    Range("C18") = TextBox10.Value
 
Sheets("Feuil1").Protect "543210"
 
 
End Sub

Dois-je joindre des images de mon interface ? c'est juste de simple textbox qui envoie des données dans des cellules.

Merci d'avance

[78chris]

Bonjour

Prend l'habitude de donner des noms ayant un sens à tes objets et pars textbox1 ou 12

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B32,H32").value = TextBox7.Value

[Calican]

Oui je sais merci quand même

j'ai changer le nom de mes textbox en nom par defaults par ce que les noms que je leurs ai donné donne des indications sur l'entreprise pour laquelle je travail, vous comprendrez donc que je n'ai pas le droit de poster publiquement des indications sur mon entreprise malgrès le fait que ce soit de simple nom d'objet.

Je vais esayer ça je reviens vers vous.

Merci d'avoir pris du temps pour moi.

[Calican]

Re,

Apparement, le problème persiste.

j'ai une pseudo solution mettre un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

mais je ne pense pas que ce soit la solution.

[Calican]

J'ai fait ça

J'ai mis au début du code de mon événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

Il passe au dessus de l'erreur et il ne fait pas planter mon programme.

Merci quand même.

[78chris]

RE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B32:H32").value = TextBox7.Value

Je n'avais pas vu : c'est : pas ,

[Pierre Fauconnier]

Salut

J'ai fait ça

J'ai mis au début du code de mon événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

Il passe au dessus de l'erreur et il ne fait pas planter mon programme.

Merci quand même.

Il passe au dessus de l'erreur, mais il n'exécute pas ligne qui pose problème. Donc oui, ton programme ne plante pas, mais il n'exécute pas ce que tu souhaites qu'il réalise.

On Error Resume Next ne devrait jamais être utilisé pour masquer une erreur, mais pour la gérer après la ligne qui risque de poser problème, comme dans le code suivant, par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
On Error Resume Next
Range("B32,H32").value = TextBox7.Value
If Err <> 0 Then MsgBox...
On Error Goto 0

Et bien évidemment, on n'utilise pas cela dans le contexte qui est le tien. On résoud le problème qui est un problème de syntaxe et pas un problème à contourner par une gestion d'erreur.

Malheureusement, l'utilisation de On Error Resume Next est mal expliquée et mal mise en situation dans la plupart des tutos rencontrés sur le net

[Calican]

Bonjour à tous,

désolé c'est ma faute j'ai omis de préciser que j'ai remplacer la plage par B32 seuleument, donc avec On Error Resume Next, cela fonctionne.

Et merci a toi 78chris, si la est mon erreur maintenant je le sais peut-être que je pourrais quand même laisser comme j'avais mis.

Merci pour votre aide.

[Calican]

Re,

je n'ai plus a utiliser On Error Resume Next mais je vais quand même mettre un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
On Error GoTo err
 
err : MsgBox("blablabla") 'au cas ou un problème ce présente quand même.

Merci 78chris pour la solution et merci a tout le monde pour votre aide.