Erreur de copiage de données TextBox dans des cellules

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.

 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

Bonjour,

C'est normal car la syntaxe n'est pas bonne. Par contre, il faudrait plus d'information : Veux tu mettre la valeur de la textbox 7 dans chaque cellules de la ligne 32? Ou est ce autre chose?

Si tu veux mettre la valeur dans chaque cellule de la ligne 32, fait une boucle

 dim cel as range
For each cel in range ("B32:H32")
cel.value = textbox7.value
next cel 

Mais pour plus de clarté, il faudrait un fichier

Cordialement

Bonjour Calican, bonjour le forum,

C'est quoi B32:H32 ? une fusion de cellules. Pourquoi pas, tout simplement :

Range("B32") = TextBox7.Value

Re,

Oui c'est une fusion de cellules.

J'ai essayé B32 mais l'erreur persiste alors je suis revenu sur mes pas.

Merci pour ton temps

Oh désolé Besoin_d_aide , je n'avais pas vu ton message, en fait B32 a H32 sont une seul même cellule, enfin si je puis dire cela comme ça.

Et donc je dois retourner une seul fois la valeur pour une seul cellules entre guillemets vu que c'est une plage .

Malheureusement je ne peut pas joindre de fichier c'est confidentiel.

je peut en créé un et mettre ce code dedans mais cela n'aurais aucun sens.

Re,

Les deux devraient fonctionner. Donc le problème est ailleurs mais sans fichier impossible de t'aider davantage...

Merci ThauThème, j'ai seulement suivie le debogage, il m'as indiqué cette ligne en jaune fluo.

Mais si je sais déja que le problème n'est pas la je vais chercher ailleurs

Re,

Ha ! Données confidentielles et aucun sens de créer un fichier et d'y mettre le code... Je compatis. D'ailleurs moi aussi je suis pati...

Re,

Et le message d'erreur, que dit-il? quel est son code?

Re,

Besoin_d_aide, le message d'erreur est : Erreur d'execution '1004':

La méthode 'Range' de l'objet '_Global' a échoué

Merci de prendre sur ton temps pour moi.