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

[MuscatMimi]

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

 

[Excel-lent]

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 :

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

 

[MuscatMimi]

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

 

[Excel-lent]

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

Bonsoir à tous,

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

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

 

[Excel-lent]

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.

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

 

[MuscatMimi]

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

 

[Excel-lent]

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.

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

 

[MuscatMimi]

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