Variable TextBox25 à définir ?
Résolu
PYGOS69
Messages postés
452
Date d'inscription
Statut
Membre
Dernière intervention
-
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Pour enregistrer un formulaire dans une feuille, je rencontre un souci :
Erreur de compilation
Variable non définie
Message pour TexBox25
Private Sub EnrDélaiMP_Click()
'
Dim num() As String
'enregistrement
'
MP = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil1").Activate
Range("A" & MP).Value = TexBox25
Range("B" & MP).Value = TexBox26
Range("C" & MP).Value = TexBox27
Range("D" & MP).Value = DTPicker1
Range("E" & MP).Value = TexBox3
Range("G" & MP).Value = TexBox5
Range("I" & MP).Value = TexBox7
Range("k" & MP).Value = TextBox9
Range("m" & MP).Value = TextBox11
Range("O" & MP).Value = TextBox13
Range("Q" & MP).Value = TextBox15 ' xxxxxxx
Range("s" & MP).Value = TextBox17
Range("u" & MP).Value = TextBox19
Range("w" & MP).Value = TextBox21 '
Range("y" & MP).Value = TextBox23
'
'Remise à zéro champs formulaire
'
TexBox25.Value = ""
TexBox26.Value = ""
TexBox27.Value = ""
Me.DTPicker1 = Date
End Sub
Merci d'avance pour votre aide !
Crdlt
Pour enregistrer un formulaire dans une feuille, je rencontre un souci :
Erreur de compilation
Variable non définie
Message pour TexBox25
Private Sub EnrDélaiMP_Click()
'
Dim num() As String
'enregistrement
'
MP = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil1").Activate
Range("A" & MP).Value = TexBox25
Range("B" & MP).Value = TexBox26
Range("C" & MP).Value = TexBox27
Range("D" & MP).Value = DTPicker1
Range("E" & MP).Value = TexBox3
Range("G" & MP).Value = TexBox5
Range("I" & MP).Value = TexBox7
Range("k" & MP).Value = TextBox9
Range("m" & MP).Value = TextBox11
Range("O" & MP).Value = TextBox13
Range("Q" & MP).Value = TextBox15 ' xxxxxxx
Range("s" & MP).Value = TextBox17
Range("u" & MP).Value = TextBox19
Range("w" & MP).Value = TextBox21 '
Range("y" & MP).Value = TextBox23
'
'Remise à zéro champs formulaire
'
TexBox25.Value = ""
TexBox26.Value = ""
TexBox27.Value = ""
Me.DTPicker1 = Date
End Sub
Merci d'avance pour votre aide !
Crdlt
Configuration: Windows / Internet Explorer 11.0
A voir également:
- Variable TextBox25 à définir ?
- Définir google comme page d'accueil - Guide
- Definir foyer - Accueil - Guide streaming
- Définir retrait - Guide
- Variable objet ou variable de bloc with non définie - Forum VB / VBA
- Comment mettre google en page d'accueil? ✓ - Forum Virus
Oups, une erreur d'étourderie !
Merci !