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
'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
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
- Messages postés
-
14934
- Date d'inscription
- lundi 18 octobre 2004
- Statut
- Contributeur
- Dernière intervention
- 24 juin 2020
4 496Oui 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 fin- Messages postés
-
210
- Date d'inscription
- mercredi 25 février 2015
- Statut
- Membre
- Dernière intervention
- 6 mai 2018
> gbinformebonne soiree