Enregistre 2 textbox dans une autre feuille
Résolu
cedric0715
Messages postés
210
Date d'inscription
Statut
Membre
Dernière intervention
-
cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
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 une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - 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