Enregistrement et vérification
Résolu
irongege
Messages postés
41001
Date d'inscription
Statut
Modérateur
Dernière intervention
-
irongege Messages postés 41001 Date d'inscription Statut Modérateur Dernière intervention -
irongege Messages postés 41001 Date d'inscription Statut Modérateur Dernière intervention -
A voir également:
- Enregistrement et vérification
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Verification lien internet - Guide
- Verification windows 11 - Guide
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
- Enregistrement - Guide
6 réponses
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
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.
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 .
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 = ""
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
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
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
