Valider des Données dans colonne précises

[MuscatMimi]

Bonjour a tous


Avec l'Usf Paramétres (voir fichier joint)
J'aimerais pouvoir Valider que des Données saisies
dans TextBox, Libelle
ou Textbox NomCompte
ou TextBox Operation
ou TextBox NomBanque (ou les 4 si besoin)
A2 à A 25 pour Libellé
B2 à B25 pour Opérations
C2 à C25 pour NomCompte
D2 à D25 pour NomBanque

En éffet cet Usf me servira a entrer de nouvelle données dans la Feuille DonnéesCbx
afin de rajouter des écritures dans mes Cbx d'un autre Usf

Si possible d'avoir une Liste sans vide ,ni Doublons

Merci a l'avance

 

[porcinet82]

Re : Valider des Données dans colonne précises

Salut,

Test avec ceci :

Private Sub b_validation_Click()
Dim Ligne
Dim lib_textbox$
If Me.Libelle = "" Then lib_textbox = "Libelle"
If Me.TypeOpértion = "" Then lib_textbox = lib_textbox & " " & "Type Opération"
If Me.NomCompte = "" Then lib_textbox = lib_textbox & " " & "Nom Compte"
If Me.NomBanque = "" Then lib_textbox = lib_textbox & " " & "Nom Banque"
If lib_textbox <> "" Then
    MsgBox "Veuillez remplir les textbox : " & lib_textbox, vbInformation + vbOKOnly
    End
End If
'le reste de ton code
'...
End Sub

@+

 

[MuscatMimi]

Re : Valider des Données dans colonne précises

Bonjour Porcinet82

merci de ta réponse, mais relit ma demande ce n'est pas cela que je demande
Dans cet Usf, si je rentre des données que dans une Tbx, je dois pouvoir valider ces données a la suite des autre colonne A (si l'on prends comme exemple libéllé)

Cordialement

 

[porcinet82]

Re : Valider des Données dans colonne précises

re,

Désolé, mais je ne comprend pas ce que tu souhaites.
Essais d'etre un peu plus clair stp.

@+

 

[MuscatMimi]

Re : Valider des Données dans colonne précises

salut Porcinet

je joint a nouveau le fichier dans lequel j'ai noté des explications plus clair

ciaoooo

 

[bqtr]

Re : Valider des Données dans colonne précises

Bonjour vaucluse immo, Romain

D'après ce que j'ai compris essaye ceci:

Private Sub b_validation_Click()

Dim lign As Long
Application.ScreenUpdating = False
With Sheets("DonnéesCbx")
    For k = 1 To 4
      lign = .Cells(65536, k).End(xlUp).Row
      If Controls("TextBox" & k) <> "" Then .Cells(lign + 1, k) = Controls("TextBox" & k)
      .Range(.Cells(2, k), .Cells(65536, k).End(xlUp)).Sort Key1:=.Cells(2, k), Order1:=xlAscending, Header:=xlGuess, _
           OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Next
End With
Application.ScreenUpdating = True
Unload Me
End Sub

Par contre il faut renommer tes Textbox (propriété Name).
TextBox1 pour la colonne Libellé
TextBox2 pour la colonne Opération
TextBox3 pour la colonne Nom Compte
TextBox4 pour la colonne Nom Banque

Bonne journée

 

[MuscatMimi]

Re : Valider des Données dans colonne précises

Bonjour a tous

Merci milles fois bqtr
c'est exactement ce que voulais arriver a réaliser
Par contre , comme tu a résolu mon soucis,
qui est une partie d'une application que je suis entrain de créer
pourrait-tu regarder ,et voir ce que tu peux faire concernant
un autre complément de mon application
si oui je te la passe en fichier joint

merci encore de ta réponse , une fois de plus tu me sauve la mise
Bon week-end sur Nantes

 

[MuscatMimi]

Re : Valider des Données dans colonne précises

salut bqtr et a tout le forum

dis-moi bqtr , dans ma derniére réponse je t'ai posé une question
mais tu ne m'a pas répondu,,,,,,?????

Cordialement

 

[bqtr]

Re : Valider des Données dans colonne précises

Re,

Y a pas de problème, pose ta question et si je peux y répondre ce sera avec plaisir.
De toute façon si c'est pas moi quelqu'un d'autre le fera certainement.
Par contre ouvre une nouvelle discussion si le sujet est différent.

A+, bon dimanche