Enregistre 2 textbox dans une autre feuille
Résolu/Fermé
cedric0715
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
-
16 nov. 2016 à 21:49
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
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
A voir également:
- Enregistre 2 textbox dans une autre feuille
- 2 comptes whatsapp - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment enregistrer une video youtube - Guide
- Supprimer une feuille word - Guide
- Feuille a5 - Guide
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
16 nov. 2016 à 22:46
16 nov. 2016 à 22:46
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.
17 nov. 2016 à 09:22
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
17 nov. 2016 à 18:37
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 fin17 nov. 2016 à 21:47
bonne soiree