saisie automatique dans textbox

Version imprimable

05/10/2020, 18h20
tonytone1

saisie automatique dans textbox
Bonjour

J'ai des textbox dans mon userform remplis par saisie par codebarre. Tous les textbox doivent être remplies pour confirmer le transfert vers le fichier Excel. La confirmation se fait par un bouton.
Je veux introduire une nouvelle condition . Pour un texte donné saisie dans un des 6 textbox dont je doit préciser lequel dans le code, j'aimerais afficher dans les autres textbox des textes données que j'introduirai dans le code aussi. Je confirmerai le tout par le bouton déjà cité en haut. J'aimerais avoir cette portion du code et ou l'introduire exactement.
Voici comment mes textbox sont placés
Code:

1 2 3 4 5 6 Range("A" & L).Value = TextBox1 Range("B" & L).Value = TextBox2 Range("C" & L).Value = TextBox3 Range("D" & L).Value = TextBox4 Range("E" & L).Value = TextBox5 Range("F" & L).Value = TextBox6
Merci d'avance

Bonjour, demande très imprécise. imaginons le texte à rechercher est dans TextBox2.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
If TextBox2.value = "Texte à reconnaître" then
TextBox1.value = "Texte à prévoir"
TextBox3.value = " etc"
   ' ainsi de suite
else 
End if
Range("A" & L).Value = TextBox1
Range("B" & L).Value = TextBox2
Range("C" & L).Value = TextBox3
Range("D" & L).Value = TextBox4
Range("E" & L).Value = TextBox5
Range("F" & L).Value = TextBox6

J'ai pas pu tester le code ci-dessus

8-) Cordialement

Entre temps j'ai eu une erreur intermittente :

Citation:

Erreur 1004 La méthode 'Sheet de l'objet '_Global' a échoué

J'ai un formulaire avec un bouton pour transférer les données de mon formulaire sur Excel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub CommandButton1_Click() Dim L As Integer If MsgBox("Etes-vous certain de vouloir CONFIRMER ?", vbYesNo, "Demande de confirmation") = vbYes Then L = Sheets("Gestion du temps").Range("a65536").End(xlUp).Row + 1 Range("A" & L).Value = TextBox1 Range("B" & L).Value = TextBox2 Range("C" & L).Value = TextBox3 Range("D" & L).Value = TextBox4 Range("E" & L).Value = TextBox5 Range("F" & L).Value = TextBox6 Range("G" & L).Value = Format(Date, "dd mmmm yyyy") Range("H" & L).Value = Format(Now, "hh: mm:ss") Range("L" & L).Value = Range("L:L").End(xlDown).Value + 1 MsgBox ("Saisie avec succées") TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox4 = "" TextBox5 = "" TextBox6 = "" End If End Sub
Et le débogage me renvoie à cette ligne:

Code:

L = Sheets("Gestion du temps").Range("a65536").End(xlUp).Row + 1

Quelle est le problème . je cherche encore.

08/10/2020, 04h26
Transitoire

Bonjour, C'est difficile à dire vu le peu d'explications de la globalité du problème.
Je pencherais pour une mauvaise déclaration de la variable L.
INTEGER : Données contenant des nombres entiers stockés, de 2 octets, compris entre -32 768 et 32 767.
Je vous invite a lire le tutorums de Silkyroad sur les variables.
https://silkyroad.developpez.com/VBA...riables/#LII-C
Cordialement 8-)

Bonjour,

outre la nécessité de passer L en Long, se borner à la ligne 65536 est révolu depuis Excel 2007
l'erreur renvoyée peut correspondre à deux choses (éventuellement cumulatives) :

1) le nom de la feuille est mal écrit
2) cette feuille n'est pas située sur le classeur actif au moment du déroulé

une proposition non testée, il faut spécifier le nom du classeur (et vérifier le nom de la feuille)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dim L As Long
    If MsgBox("Etes-vous certain de vouloir CONFIRMER ?", vbYesNo, "Demande de confirmation") = vbYes Then
        With Workbooks("NomDuClasseur.extension").Worksheets("Gestion du temps")
            L = .Range(.Rows.Count, 1).End(xlUp).Row + 1
            .Range("A" & L).Value = Me.TextBox1.Value
            .Range("B" & L).Value = Me.TextBox2.Value
            .Range("C" & L).Value = Me.TextBox3.Value
            .Range("D" & L).Value = Me.TextBox4.Value
            .Range("E" & L).Value = Me.TextBox5.Value
            .Range("F" & L).Value = Me.TextBox6.Value
            .Range("G" & L).Value = Format(Date, "dd mmmm yyyy")
            .Range("H" & L).Value = Format(Now, "hh: mm:ss")
            .Range("L" & L).Value = .Range(.Rows.Count, 12).End(xlDown).Value + 1
            MsgBox ("Saisie avec succées")
            Me.TextBox1 = ""
            Me.TextBox2 = ""
            Me.TextBox3 = ""
            Me.TextBox4 = ""
            Me.TextBox5 = ""
            Me.TextBox6 = ""
        End With
    End If
End Sub

08/10/2020, 14h58
MarcelG

Salut,

Si je peux cumuler une observation à celle de Joe, que je salue au passage, je dirais qu'il souvent utile de renommer les contrôles.
Ceci en préfixant chaque nom par des caractères indiquant la nature du contrôle.

Exemple

Citation:

Txt_laville

Cette précaution aurait double avantage
- une plus grande lisibilité du code
- une interactivité plus aisée avec la feuille de travail.
Si les noms de cellule sont bien homogènes, en effet, alors l'alimentation de la feuille de travail s'exécuterait par une simple boucle sur les items d'un Array.
Et ce même si les noms sont des entêtes de champ, par la propriété Offset.

Enfin, certes récemment sensibilisé, je ne peux que conseiller une interaction Formulaire - Tableau Structuré
Voir à ce sujet, cet espace , celui-ci, et ce-dernier.
08/10/2020, 21h46
tonytone1

Merci Joe pour la réponse. Cependant le mal a changé de place.
C’est maintenant au niveau de cette ligne que l’erreur s’est transférée :

Code:

L = .Range(.Rows.Count, 1).End(x1Up).Row + 1

Citation:

Erreur d’exécution 1004
« Erreur définie par l’application ou par l’objet »

Faut-il définir chaque textbox par sa variable.
Mes textbox sont définis comme suit : Nom et Prénom, Bon de travail (Lettre et chiffres collé) , Modèle (Lettre et chiffres collé avec parfois des parenthèses et des barres obliques ), Quantité ( nombre) , Opération (Des lettres seulement) et Statu (Des lettres seulement)

Merci
08/10/2020, 22h56
Aakash Qureshi

demande info

bonsoir, bonjour à tous,

Je souhaiterais avoir de l'aide sur un fichier que j'ai recuperer via une video youtube.

Etant sur mon portable, je ne peux pas pour le joindre. Mais en gros, le fichier permet de subdiviser le tableau par rapport au date sur une extraction faite. Je me suis aidé ce code pour faire la sindivision des dates.

A l'occasion, j'aimerais savoir si la fonction RechercheV peut etre utiliser en boucle.

Pour cela, j'aimerais que ,soit sur mon extraction, il est une mise en forme avec recherchev sur l'article pour avoir sa nomenclature, le nom du client, et le poids.
Sachant que pour chaque colonne, il faut que je créé une nouvelle colonne, que je dois renommer et apres que je fasse un vlookup.
Soit a chaque nouvelle feuilles creer s'integre ce genre de requete.

Ensuite, j'aimerais ensuite le sibdiviser une autre fois mais sur une autre colonne que la date.

L'extraction reprend les ventes,achats et transfert. J'aimerais que cette partie soit subdiviser.

Comment est ce que je pourrais faire?
08/10/2020, 23h08
mfoxy

Citation:

Envoyé par Aakash Qureshi

bonsoir,..

Bonsoir Aakash,

Commencez peut-être par ouvrir votre propre post ? :weird:
Revenir avec un code même bancale ainsi que des captures d'écrans de vos données ?

S'il s'agit d'une demande de création complète, votre demande devrait être postée dans la partie : demande de devis :zoubi:

Bav,
08/10/2020, 23h15
Aakash Qureshi

Citation:

Envoyé par mfoxy

Bonsoir Aakash,

Commencez peut-être par ouvrir votre propre post ? :weird:
Revenir avec un code même bancale ainsi que des captures d'écrans de vos données ?

S'il s'agit d'une demande de création complète, votre demande devrait être postée dans la partie : demande de devis :zoubi:

Bav,

Bonsoir mfoxy,

Comment faire pour creer un nouveau post avec un portable? 😐😐
09/10/2020, 11h18
joe.levrai

Code:

.End(x1Up).Row

Visuellement on se fait avoir :aie:, remplace le 1 par un L.

Code:

.End(xlUp).Row
12/10/2020, 01h47
tonytone1

Même avec la correction de xlup au lieu de x1up, j'ai toujours la même erreur sur la même ligne. Je commence à me décourager.
12/10/2020, 08h00
jurassic pork

hello,
le souci c'est que tu n'as pas mis la colonne sur laquelle tu veux chercher la dernière ligne utilisée et ta syntaxe avec Range n'est pas bonne. Par exemple pour la colonne A :

Code:

L = .Range("A" & .Rows.Count).End(xlUp).Row + 1

Ami calmant, J.P

Merci J P. ça a marché finalement. Cela me donne de l'espoire à continuer.
Voici ce que ça me donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
    Dim L As Long
    If MsgBox("Etes-vous certain de vouloir CONFIRMER ?", vbYesNo, "Demande de confirmation") = vbYes Then
 
    With Workbooks("Gestion_du_temps_V3.xlsm").Worksheets("Gestion_du_temps")
 
 
        L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
 
            .Range("A" & L).Value = Me.TextBox1.Value
            .Range("B" & L).Value = Me.TextBox2.Value
            .Range("C" & L).Value = Me.TextBox3.Value
            .Range("D" & L).Value = Me.TextBox4.Value
            .Range("E" & L).Value = Me.TextBox5.Value
            .Range("F" & L).Value = Me.TextBox6.Value
            .Range("G" & L).Value = Format(Date, "dd mmmm yyyy")
            .Range("H" & L).Value = Format(Now, "hh: mm:ss")
 
            .Range("L" & L).Value = .Range("L:L").End(xlDown).Value + 1
 
            MsgBox ("Saisie avec succées")
            Me.TextBox1 = ""
            Me.TextBox2 = ""
            Me.TextBox3 = ""
            Me.TextBox4 = ""
            Me.TextBox5 = ""
            Me.TextBox6 = ""
 
        End With
    End If
End Sub

J'ai rédigé une condition pour chaque saisie de type

Code:

1
2
3
4
5
6
If Me.Textbox1.value Like "BT#####" Then 
Range("A" & L).Value = Me.TextBox1.Value
Else
MsgBox "L'entrée " & Me.Textbox1.value & " n'est pas valide !" 
Me.Textbox1.value.ClearContents 
End If

Pour Obliger la saisie de la bonne donnée mais je ne sais pas ou la placer dans le code sachant que l'execution ne se fait qu'en appyant sur le bouton et non lors de la saisie.

TT