Menu

Enregistre 2 textbox dans une autre feuille [Résolu/Fermé]

Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
- - Dernière réponse : cedric0715
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
- 17 nov. 2016 à 21:47
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
http://www.cjoint.com/c/FKquUInvf2T
Afficher la suite 

1 réponse

Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3605
0
Merci
Bonjour,

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.
cedric0715
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
-
bonjour

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.
http://www.cjoint.com/c/FKriwtld2F5
merci de ton aide
cordialement
gbinforme
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3605 -
Bonsoir,

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 fin
 Ws.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True 'activation de la protection feuille '
cedric0715
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
> gbinforme
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
-
merci
bonne soiree