Enregistrement et vérification
Résolu/Fermé
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
-
27 févr. 2013 à 13:44
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 - 1 mars 2013 à 15:30
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 - 1 mars 2013 à 15:30
A voir également:
- Enregistrement et vérification
- Vérification lien - Guide
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
- Vérification d'état du pc - Guide
- Youtube enregistrement vidéo - Guide
- Enregistrement ecran pc - Guide
6 réponses
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 072
27 févr. 2013 à 15:00
27 févr. 2013 à 15:00
J'ai déjà ce bout de code qui vérifie que la saisie est bien numérique :
Private Sub TextBoxenvbatch_Change()
If IsNumeric(TextBoxenvbatch.Value) Then
validblenvsalle.Visible = True
Else 'SINON ...
validblenvsalle.Visible = False
End If
End Sub
Private Sub TextBoxenvbatch_Change()
If IsNumeric(TextBoxenvbatch.Value) Then
validblenvsalle.Visible = True
Else 'SINON ...
validblenvsalle.Visible = False
End If
End Sub
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 072
27 févr. 2013 à 15:39
27 févr. 2013 à 15:39
Petite précision, ces enregistrement se feraient dans ma feuille excel et pour les cellules, peu importe par ex à partir de la cellule A70 puis A71 et ainsi de suite.
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 27/02/2013 à 17:15
Modifié par lermite222 le 27/02/2013 à 17:15
Bonjour,
Difficile de te répondre avec les renseignements que tu décrit.
Tu pourrais peut-être déposer un exemple de ton classeur (sur Cjoint.com par exemple)
Ce serrait plus simple pour t'aidé.
A+
EDIT: Je n'ai pas vu les postes précédant :-(
Note, le contenu d'un textBox n'est pas forcément compatible avec un nombre, il faut le tester.
En texte c'est avec Virgule, en VBA c'est avec un point !!
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
Difficile de te répondre avec les renseignements que tu décrit.
Tu pourrais peut-être déposer un exemple de ton classeur (sur Cjoint.com par exemple)
Ce serrait plus simple pour t'aidé.
A+
EDIT: Je n'ai pas vu les postes précédant :-(
Note, le contenu d'un textBox n'est pas forcément compatible avec un nombre, il faut le tester.
En texte c'est avec Virgule, en VBA c'est avec un point !!
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 072
27 févr. 2013 à 18:05
27 févr. 2013 à 18:05
Lut
Plus clairement, lorsque un nombre est saisi dans la textbox ' peu importe son nom ) , ce nombre est enregistré dans une cellule de ma feuille excel ( A71 ), si un autre nombre est saisi dans la textbox, il est enregistré dans la cellule suivante juste en dessous ( A72) et ainsi de suite à chaque nouveau nombre choisi.
Pour éviter qu'un nombre déjà enregistrer dans une des cellules, il faudrait que lors de la validation de ce nombre, un message alerte l'utilisateur et efface le contenu de la textbox.
si nombre 1 saisi dans textbox => cellule A71 = 1
si nombre 2 saisi dans textbox => cellule A72 = 2
si nombre 3 saisi dans textbox => cellule A73 = 3
Si essai de saisie du nombre 2 => msgbox s'affiche avec un message d'avertissement et text de la textbox = ""
Plus clairement, lorsque un nombre est saisi dans la textbox ' peu importe son nom ) , ce nombre est enregistré dans une cellule de ma feuille excel ( A71 ), si un autre nombre est saisi dans la textbox, il est enregistré dans la cellule suivante juste en dessous ( A72) et ainsi de suite à chaque nouveau nombre choisi.
Pour éviter qu'un nombre déjà enregistrer dans une des cellules, il faudrait que lors de la validation de ce nombre, un message alerte l'utilisateur et efface le contenu de la textbox.
si nombre 1 saisi dans textbox => cellule A71 = 1
si nombre 2 saisi dans textbox => cellule A72 = 2
si nombre 3 saisi dans textbox => cellule A73 = 3
Si essai de saisie du nombre 2 => msgbox s'affiche avec un message d'avertissement et text de la textbox = ""
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
27 févr. 2013 à 23:36
27 févr. 2013 à 23:36
Tes nombres sont les chiffres de 0 à 9 ou plus grand ?
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 072
28 févr. 2013 à 18:36
28 févr. 2013 à 18:36
Salut
Suite à l'intervention d'une amie sur ce sujet, le code a été modifié et la textbox remplacé par une combobox, cela marque nickel chrome.
Le code ;
Private Sub validblenvsalle_Click()
If ComboBoxchoixbl.Value <> "" Then
If IsError(Application.Match(ComboBoxchoixbl.Value, ComboBoxchoixbl.List, 0)) Then
If MsgBox("Valider ce N° de BL", vbYesNo) = vbYes Then
Sheets("Feuil1").Range("A65536").End(xlUp)(71).Value = ComboBoxchoixbl.Value
ComboBoxchoixbl.AddItem ComboBoxchoixbl.Value
With Sheets("Feuil1").Range("A71", Range("A65536").End(xlUp))
.Sort key1:=Sheets("Feuil1").Range("A71")
Labelblchoisi.Visible = True
Labelblchoisi.Caption = ComboBoxchoixbl.Value
[B24] = Labelblchoisi.Caption
End With
End If
Else: MsgBox "Cette BL est déjà faite !"
choixtable.Visible = False
Frame2.Visible = False
validtableenvoisalle.Visible = False
End If
End If
Suite à l'intervention d'une amie sur ce sujet, le code a été modifié et la textbox remplacé par une combobox, cela marque nickel chrome.
Le code ;
Private Sub validblenvsalle_Click()
If ComboBoxchoixbl.Value <> "" Then
If IsError(Application.Match(ComboBoxchoixbl.Value, ComboBoxchoixbl.List, 0)) Then
If MsgBox("Valider ce N° de BL", vbYesNo) = vbYes Then
Sheets("Feuil1").Range("A65536").End(xlUp)(71).Value = ComboBoxchoixbl.Value
ComboBoxchoixbl.AddItem ComboBoxchoixbl.Value
With Sheets("Feuil1").Range("A71", Range("A65536").End(xlUp))
.Sort key1:=Sheets("Feuil1").Range("A71")
Labelblchoisi.Visible = True
Labelblchoisi.Caption = ComboBoxchoixbl.Value
[B24] = Labelblchoisi.Caption
End With
End If
Else: MsgBox "Cette BL est déjà faite !"
choixtable.Visible = False
Frame2.Visible = False
validtableenvoisalle.Visible = False
End If
End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 072
28 févr. 2013 à 19:07
28 févr. 2013 à 19:07
Par contre Lorsque l'on clique sur " Non " de la msgbox, quel est le code pour qu'une frame ne soit plus visible.
Merci
Merci
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 072
Modifié par irongege le 1/03/2013 à 18:00
Modifié par irongege le 1/03/2013 à 18:00
Suite à une erreur de ce code lorsque je passais à une autre userform puis revenait sur celle-ci, j'ai simplifié mon code de départ et plus de problème :
Private Sub TextBoxenvbatch_Change()
If IsNumeric(TextBoxenvbatch.Value) Then
[B24] = TextBoxenvbatch.Text
[B25] = [B24]
validblenvsalle.Visible = True
Else 'SINON ...
validblenvsalle.Visible = False
End If
If Dir("C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_BL_N°" & Range("B25").Value & "", vbDirectory) <> "" Then
TextBoxenvbatch.Text = ""
validblenvsalle.Visible = False
MsgBox " Cette Bl existe déjà"
End If
End Sub
lulu1009
Messages postés
1932
Date d'inscription
mardi 14 août 2012
Statut
Membre
Dernière intervention
7 août 2019
437
28 févr. 2013 à 20:49
28 févr. 2013 à 20:49
Bonsoir lermite
Un modo aide
Mais il peut aussi poster des questions
Un modo aide
Mais il peut aussi poster des questions
noctambule28
Messages postés
31835
Date d'inscription
samedi 12 mai 2007
Statut
Webmaster
Dernière intervention
13 février 2022
2 858
28 févr. 2013 à 21:40
28 févr. 2013 à 21:40
Oui, c'est un humain comme les autres, et il a ses problèmes aussi.
Par contre, penses-tu que ton message ici soit nécessaire?
Si oui, réfléchis aux raisons de certains blocage que tu as perçu.
Par contre, penses-tu que ton message ici soit nécessaire?
Si oui, réfléchis aux raisons de certains blocage que tu as perçu.