[Résolu] Enregistrement données et vérification

[sweaty]

Bonjour,

J'arrive presque au terme de mon projet après maintes péripéties mais j'ai omis une chose importante.

En effet, malgré maintes recherches, je sèche complètement.

J'ai une " textbox " dans lequel, il doit être saisi un nombre mais j'aimerais savoir comment faire pour qu'à chaque fois qu'un nombre est saisi, il soit enregistrer dans une nouvelle cellule et comment faire si le nombre saisi existe déjà dans une des cellules qu'une " msgbox " s'ouvre et affiche un message.

Merci à vous de m'aiguiller et bonne journée

 

[sweaty]

Re : Enregistrement données et vérification

J'ai déjà ce code qui verifie que dans ma textbox, ce qui est saisi est bien un chiffre :

Private Sub TextBoxenvbatch_Change()
If IsNumeric(TextBoxenvbatch.Value) Then
validblenvsalle.Visible = True
Else 'SINON ...
validblenvsalle.Visible = False
End If
End Sub

 

[sweaty]

Re : Enregistrement données et vérification

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 = ""

 

[sweaty]

Re : Enregistrement données et vérification

Sujet résolu avec ce code :

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