Crer une Liste de N° de Chéques avec Usf et TextBox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MuscatMimi

XLDnaute Accro
Bonsoir a tout le Forum

je voudrais savoir s'il serait possible dans un Usf,
avec une TextBox de Noter le N° du Premier chéque
dans une autre textBox de noter le Nombres de chéques du chéquier
et que tout cela puisse Valider tout les N° de chéques dans une Feuil1,
colonne A afin que je puisse me servir de ette Liste pour alimenter une ComboBox

Exemple:
Tbx1 125560 ( premier N° du premier chéque)

Tbx2 25 (Nobre de chéque dans le chéquier)

Validation de "125560"

à "125585"

soit 25 N° de chéques

Bonne soirée a tous
merci beaucoup a l'avance
 
Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Bonjour Vaucluse immo,

C'est quoi cette bimbo en avatar? C'est pour avoir une réponse plus rapidement?

Apparemment, c'est pas au point 😀

Voici ci-dessous, une solution à ton problème en VBA :
Code:
Sub NumChq()
' Macro enregistré par Excel-lent

Dim PremNumChq, NbChq, Cel As Integer

PremNumChq = InputBox("Numéro du 1er chèque?", "Saisie")
NbChq = InputBox("Nbre de chq dans le chéquier?", "Saisie")

  For Cel = 1 To NbChq

    Cells(Cel, 1) = PremNumChq
    PremNumChq = PremNumChq + 1

  Next Cel
  
End Sub

Bonne soirée
 
Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Salut Excel_Lent et le Forum
L'avatar c'est ma chérie un peu caricaturisée
Merci pour ta réponse, ça fonctionne bien

Il faut que ces N° de Chéque ce Valide dans la Feuille N°Chéque ça c'est OK j'ai fait
Quoi modifier dans le code pour, que je puisse dans la feuille N°Chéque mettre un entête de colonne??

En Finalité,ce que je désire faire
c'est de pouvoir entrer une liste de N° de chéque,suivant Le Nom du compte
Que ces N° ce Valide dans la feuille N°Chéque
et ,une fois tout les N° Utilisés, dans la ou les listes de la feuille N°de Chéque
qu'un MsgBox s'affiche "Le Chéquier est Vide ,Voulez-vous en créer un autre ??? "il faut a nouveau que la liste des nouveaux N° de chéques viennent bien ce Valider dans la colonne correspondant a ce nom de compte

J'utilise ces N° de chéques dans une Cbx(en fonction du Nom du compte)
(exemple Cbx1 compte XX la Cbx de N° chéque est visible etc pour chaque compte ,j'en suis enore pas arrivé a ce stade)
une fois le N° utilisé
le N° ce retire de la Liste,pour ce figer dans la colonne d'a côté dans la feuille N°Chéque ( voir exemple dans le fichier joint)
Comme les N° ce figent dans la colonne d'a côté il faut bien sur que cette colonne ce vide
si l'on rentre une nouvelle liste de N° de chéque
C'est pas facile de s'expliquer pour être bien compris
 

Pièces jointes

Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Bonsoir à tous,

vaucluse immo à dit:
Il faut que ces N° de Chéque ce Valide dans la Feuille N°Chéque ça c'est OK j'ai fait
Quoi modifier dans le code pour, que je puisse dans la feuille N°Chéque mettre un entête de colonne??

Voir ci-dessous les parties coloriées
Code:
Sub NumChq()
' Macro enregistré par Excel-lent

Dim PremNumChq, NbChq, Cel As Integer

PremNumChq = InputBox("Numéro du 1er chèque?", "Saisie")
NbChq = InputBox("Nbre de chq dans le chéquier?", "Saisie")

  For Cel = [COLOR="Blue"][B]2[/B][/COLOR] To NbChq[COLOR="Blue"][B] + 1[/B][/COLOR]

    Cells(Cel, 1) = PremNumChq
    PremNumChq = PremNumChq + 1

  Next Cel
  
End Sub

La variable "Cel" permet de compter le nombre de boucle à effectuer, ainsi que d'indiquer le numéro de la ligne où va s'écrire le numéro de chèque (il n'y a pas de p'tites économies 🙂 ).

Pour le reste, je me penche dessus et revient.

Bonne soirée
 
Dernière édition:
Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Bonsoir,

J'ai vu ton fichier, que de boulot déjà fait et à faire!

Voici ci-dessous ta macro que je me suis permis de modifier (cf. bleu).
Car dans la liste de ta combobox ne figurait que les 30 premiers numéro de chèque.


Code:
Private Sub UserForm_Initialize()
Dim cel As Range 'déclare la variable cel
[COLOR="Blue"]Dim DernièreLigne As Integer

sheets("N°Chéque").Select

DernièreLigne = Range("A65536").End(xlUp).Row[/COLOR]

'alimente la ComboBox1 uniquement avec les cellules non vides
With sheets("N°Chéque")
    For Each cel In .Range([COLOR="Blue"]Cells(2, 1), Cells(DernièreLigne, 1)[/COLOR])
        If cel.Value <> "" Then ComboBox1.AddItem cel.Value
    Next cel
End With

End Sub

Cdt
 
Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Salut Excel-lent
et le forum

Merci de ton aide , les modifs , tip top, super

Mais j'ai un autre petit soucis
dans le code ci-dessous qui fonctionne trés bien
ça ouvre le classeur sur la feuile Echéancier, normal, il y a
Sheets "Echéancier".Activate

Comment modifier ce code pour qu'il conserve c'est fonctions actuel,

mais que cela m'ouvre mon classeur sur la page "Accueil"
voici ce code
Private Sub Workbook_Open()
'--Copie Données suivant Date Feuil "Echéancier" dans Feuil "Interventions"
Dim Cell As Range, DerLi As Integer
Sheets("Echéancier").Activate
For Each Cell In Range("C2:C" & Range("C65536").End(xlUp).Row) 'C colonne Date

If Cell <= Date And Cell.Offset(, 6) = "" Then '-- 6= colonne I faut mettre J
Cell.Offset(, 6) = "x" '-- 6= colonne I faut mettre J

With Sheets("INTERVENTIONS")
DerLi = .Range("B65536").End(xlUp).Row + 1 ' 1iére colonne ou B
Range("B" & Cell.Row & ":" & "G" & Cell.Row).Copy .Range("B" & DerLi & ":G" & DerLi)
End With

End If
Next
End Sub


si tu a la réponse ce serait bien
Bon week-end
 
Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Bonjour Vaucluse Immo, le forum


Je ne suis pas sûr d'avoir bien compris ce que tu voulais, j'ai donc mis les deux versions :

* Soit tu veux qu'une fois la macro fini, elle se position sur l'onglet "Acceuil" auquel cas, tu gardes ton code + mon code rouge

* Soit tu veux que la macro regarde sur quelle feuille tu es au départ de la macro, puis une fois la macro fini, te re-positionne sur cette feuille, auquel cas, tu gardes ton code + mon code bleu

Pas pu le tester, mais cela devrai fonctionner.

Code:
Private Sub Workbook_Open()
'--Copie Données suivant Date Feuil "Echéancier" dans Feuil "Interventions"
Dim Cell As Range, DerLi As Integer
[COLOR="Blue"]Dim Onglet As String[/COLOR]

  [COLOR="Blue"]Onglet = ActiveSheet.Name[/COLOR]

Sheets("Echéancier").Activate
    For Each Cell In Range("C2:C" & Range("C65536").End(xlUp).Row) 'C colonne Date
     
      If Cell <= Date And Cell.Offset(, 6) = "" Then '-- 6= colonne I faut mettre J
        Cell.Offset(, 6) = "x" '-- 6= colonne I faut mettre J
        
        With Sheets("INTERVENTIONS")
          DerLi = .Range("B65536").End(xlUp).Row + 1 ' 1iére colonne ou B
          Range("B" & Cell.Row & ":" & "G" & Cell.Row).Copy .Range("B" & DerLi & ":G" & DerLi)
        End With
        
      End If
      Next
[COLOR="Blue"]        Sheets(onglet).select[/COLOR]
[COLOR="Red"]        Sheets("Accueil").select[/COLOR]
      End Sub

Bonne soirée
 
Re : Crer une Liste de N° de Chéques avec Usf et TextBox

Bonjour Ecel-lent et le Forum

Merci beaucoup de ta réponse
ça fonctionne bien
Bon dimanche
j'ai encore qq questions a résoudre mais je vais mettre a autre fil,
tu a assez travailler pour mon cas, je ne veux pas abuser e ta gentillesse et de tes compétences
A bientôt sur ce site
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
518
Retour