Astuces Excel
  1. Astuces Excel
  3. Mettre l'accent sur FormField1
Intereting Posts
Parcourez la list et déplacez les lignes répondant aux critères d'une autre feuille sur Excel VBA Type Mistmatch Comment puis-je exécuter des files Excel en tant que tâche ou travail? Tâche Excel: comparer des colonnes Alterner deux colors dans un tableau de colonnes avec indépendance de valeurs Procédure stockée SQL Server import Excel Excel: conversion text à ce jour en millisecondes Excel Formula – Countifs + Indirect + Match sur plusieurs lignes Macro pour lire le text jusqu'à la dernière ligne – 1 Python df.to_excel () stockant des nombres en tant que text dans Excel. Comment stocker en tant que valeur? Vba Excel fait l'object d'un file fermé Copier Coller plusieurs cellules Excel VBA Envoyer des données (Job #) dans une colonne à une autre feuille de calcul, si une autre colonne contient des données Supprime l'espace vide dans Excel, ne change-t-il pas correctement la plage? Fonction Excel: searchz une string d'une list. Désirez exécuter une macro Excel avec un glisser-déposer

Mettre l'accent sur FormField1

J'ai besoin d'un peu d'aide. Je crée un UserForm et je tente d'get le formulaire (sur une feuille de calcul) pour écrire dans une autre feuille de calcul. J'ai l'printing de me rapprocher mais je continue d'get l'erreur suivante:

Je continue d'get l'erreur Run-time 2110 dans excel.

Au-delà, j'essaie d'get datatables dans mon formulaire d'user pour publier dans une feuille de travail intitulée Hourly CI Data.

Le code suivant provient de mon object UserForm: 

Private Sub cmdbtnCancel_Click() ' Clear data fields and reset the form Me.formField1.Value = "" Me.formField2.Value = "" Me.formField3.Value = "" Me.formField4.Value = "" Me.formField5.Value = "" Me.formField6.Value = "" Me.formField7.Value = "" Me.formField8.Value = "" Me.formField9.Value = "" Me.formField10.Value = "" Me.formField11.Value = "" Me.formField1.SetFocus Unload Me End Sub Sub cmdbtnSave_Click() Dim iRow As Long Dim ws As Worksheet Unload Me Set ws = Worksheets("Hourly Slot CI - Data") ' Find the next empty row iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 ' Input the data in the Data Table ws.Cells(iRow, 1).Value = Me.formField1.Value ws.Cells(iRow, 2).Value = Me.formField2.Value ws.Cells(iRow, 3).Value = Me.formField3.Value ws.Cells(iRow, 4).Value = Me.formField4.Value ws.Cells(iRow, 5).Value = Me.formField5.Value ws.Cells(iRow, 6).Value = Me.formField6.Value ws.Cells(iRow, 7).Value = Me.formField7.Value ws.Cells(iRow, 8).Value = Me.formField8.Value ws.Cells(iRow, 9).Value = Me.formField9.Value ws.Cells(iRow, 10).Value = Me.formField10.Value ws.Cells(iRow, 11).Value = Me.formField11.Value ws.Cells(iRow, 12).Value = Me.formField12.Value ws.Cells(iRow, 13).Value = Me.formField13.Value ws.Cells(iRow, 14).Value = Me.formField14.Value ws.Cells(iRow, 15).Value = Me.formField15.Value ws.Cells(iRow, 16).Value = Me.formField16.Value ws.Cells(iRow, 17).Value = Me.formField17.Value ws.Cells(iRow, 18).Value = Me.formField18.Value ws.Cells(iRow, 19).Value = Me.formField19.Value ws.Cells(iRow, 20).Value = Me.formField20.Value ws.Cells(iRow, 21).Value = Me.formField21.Value ws.Cells(iRow, 22).Value = Me.formField22.Value ws.Cells(iRow, 23).Value = Me.formField23.Value ws.Cells(iRow, 24).Value = Me.formField24.Value ws.Cells(iRow, 25).Value = Me.formField25.Value ws.Cells(iRow, 26).Value = Me.formField26.Value ws.Cells(iRow, 27).Value = Me.formField27.Value ws.Cells(iRow, 28).Value = Me.formField28.Value ws.Cells(iRow, 29).Value = Me.formField29.Value ws.Cells(iRow, 30).Value = Me.formField30.Value ws.Cells(iRow, 31).Value = Me.formField31.Value ws.Cells(iRow, 1).Activate ' Clear all fields and reset the form Me.formField1.Value = "" Me.formField2.Value = "" Me.formField3.Value = "" Me.formField4.Value = "" Me.formField5.Value = "" Me.formField6.Value = "" Me.formField7.Value = "" Me.formField8.Value = "" Me.formField9.Value = "" Me.formField10.Value = "" Me.formField11.Value = "" Me.formField12.Value = "" Me.formField13.Value = "" Me.formField14.Value = "" Me.formField15.Value = "" Me.formField16.Value = "" Me.formField17.Value = "" Me.formField18.Value = "" Me.formField19.Value = "" Me.formField20.Value = "" Me.formField21.Value = "" Me.formField22.Value = "" Me.formField23.Value = "" Me.formField24.Value = "" Me.formField25.Value = "" Me.formField26.Value = "" Me.formField27.Value = "" Me.formField28.Value = "" Me.formField29.Value = "" Me.formField30.Value = "" Me.formField31.Value = "" Me.formField1.SetFocus End Sub

Je ne sais pas sur la façon exacte de définir cette mise au point correctement, de sorte que toute input est utile. Merci d'avance!

Vous déchargez le formulaire avant d'essayer réellement de définir les valeurs. Vous devez décharger le formulaire après avoir fini complètement avec lui à la fin. Dans votre cas, sur le sous CmdbtnSave_Click , vous souhaitez le placer tout juste avant End Sub , et assurez-vous de le supprimer vers le début.

EDIT: De plus, si vous déchargez le formulaire, vous ne devriez pas avoir besoin d'effacer les différents champs de formulaire. Le déchargement l'enlèvera (et les valeurs formfield) de la memory de l'ordinateur.