Enregistre 2 textbox dans une autre feuille
Résolu
cedric0715
Messages postés
265
Statut
Membre
-
cedric0715 Messages postés 265 Statut Membre -
cedric0715 Messages postés 265 Statut Membre -
bonsoir
j ai un userformpri les donnée s'enregistre tres bien dans mon "tableau recap"
mais je voudrais sois par le bouton calcul note ou valider que les données dans textresuetat et textresucrit soit enregistre dans ma feuille "Donné équipement" en face du choix que j'aurais réaliser depuis mon combox équipement du userform
merci de votre aide
le lien de mon fichier
https://www.cjoint.com/c/FKquUInvf2T
j ai un userformpri les donnée s'enregistre tres bien dans mon "tableau recap"
mais je voudrais sois par le bouton calcul note ou valider que les données dans textresuetat et textresucrit soit enregistre dans ma feuille "Donné équipement" en face du choix que j'aurais réaliser depuis mon combox équipement du userform
merci de votre aide
le lien de mon fichier
https://www.cjoint.com/c/FKquUInvf2T
A voir également:
- Enregistre 2 textbox dans une autre feuille
- Supercopier 2 - Télécharger - Gestion de fichiers
- Bruler feuille de laurier - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
1 réponse
Bonjour,
Déjà je rectifierai ton code comme ceci :
1) Tu n'as pas besoin d'activer la feuille (chronophage)
2) si tu fais
Pour ta feuille "Donné équipement", tu fais de la même manière.
'Set' de la feuille, recherche de la ligne, documentation des rubriques.
Déjà je rectifierai ton code comme ceci :
'Application.Sheets("TABLEAU RECAP").Activate 'activer une autre feuille avant de lancer ton userform'
Set ws = Sheets("TABLEAU RECAP")
l = Ws.Range("B65536").End(xlUp).Row + 1
'A B C D E F G H
'ID EQUIPEMENT N°LOCAL ETAT DE L'EQUIPEMENT criticité Responsable DATE DE L'AMDEC DUREE DE VI
Ws.Range("B" & l).Value = ComEQUI
etc
1) Tu n'as pas besoin d'activer la feuille (chronophage)
2) si tu fais
Set Ws =il faut ensuite l'utiliser
Pour ta feuille "Donné équipement", tu fais de la même manière.
Set ws = Sheets("Donné équipement")
l = ws.Cells.Find(ComEQUI.Value, , , xlWhole).Row
ws.Range("A" & l).Value = TextRESUETAT
'Set' de la feuille, recherche de la ligne, documentation des rubriques.
merci d'abord
j'ai réaliser ce que tu ma conseiller cela marche bien pour la feuille "donnée équipement" mais cela me donne un erreur pour la feuille recap.
https://www.cjoint.com/c/FKriwtld2F5
merci de ton aide
cordialement
Oui car tu n'as pas enlevé la protection, ton code doit commencer ainsi :
Set ws = Sheets("TABLEAU RECAP") l = ws.Range("B65536").End(xlUp).Row + 1 ws.Unprotect 'desativation de la protection'et à la finbonne soiree