Depot Banque Combobox

@Ric et Andre13, re coucou

avec version 4 je peut modifier la 1première ligne et pas les autres bizarre

avec mon fichier cela fonctionner j'y perd mon latin

bonne soirée ferdinand

Bonjour à tous,

Patientia autem propriam mercedem accipiet.

Est-ce que passe le code en mode pas-à-pas (touche F8) pour voir la valeur des variables ?

ric

Re,

@ tester merci @ vous

1/je viens de voir mon erreur de fin de condition 'End If' qui mettait la pagaille

2/ comme mentionnait Ric deux variables identiques x et x pour les billets et pièces

'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim i As Integer

   If Me.TxtTxGLOBALES.Value = "" Then
   MsgBox "Des champs sont vides!"
   Exit Sub
   Else
   End If

   If MsgBox("Confirmez-vous la modification ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
   '''      If Me.ComboBox1.ListIndex = -1 Then Exit Sub
      Ligne = CBO_Ligne      ''''Me.ComboBox1.ListIndex + 2
   End If
With Worksheets("Dépôt")
On Error GoTo plouf
   .Cells(Ligne, "A") = Me.ComboBox1.Value
   For i = 1 To 15
      If Me.Controls("TextBox" & i).Visible = True Then
         .Cells(Ligne, i + 1) = CInt(Me.Controls("TextBox" & i))
      End If
   Next i

End With

   Me.TextBox1.Locked = False
plouf:
   Exit Sub

End Sub

NOTE: la modification fonctionne une fois sur deux, je pense que c'est du au unload me (qui décharge l'userform1) et ne prend plus en compte le rafraîchissement de la feuille 'Dépôt' mais notion d'Excel sont hélas! encore limité grrrr

Help me thank you very much, merci de votre aide

EDIT: En faite la modification fonctionne SI le contenu des textboxs ont du contenu aussi non si les textboxs sont vides les modifications ne sont pas prises en compte!!!!

Re andré13 et ric

ouf cela fonctionne pour l'instant je reprend les essai demain oui une fois sur deux

on ne voie plus bidouille (c'est pour lui le projet) du moins j’espère

bonne soirée ferdinand

Désolé je n'arrive pus à suivre

j'avais penser à des trucs que j'ai essayer mais qui ne marche pas

des trucs que je n'ose même pas dire

bien sur on a pas le même niveau heureusement pour vous

je me demande si ça vas le faire?????

a++++

Bonjour bidouille et le forum,

il faut te lancer dans tes idées c'est faisable ou pas par un du forum il faut pas te bloquer pour cela, tout le monde est passé par là,

je ne sais pas ou tu veut en venir avec ton classeur,

a+ ferdinand

Re bonjour à tous

Voilà j'avais penser inserer une colonne pour mettre un n° 1.2.3. ou le N° de la date en numérique, puis de faire une rechercheV

Mais si on ajoute un colonne l'userforme ne marche plus

voilà j'ai dit et merci FERDINAND

a+++

RE bidouille et le forum

tu t'explique mal à quoi te sert l’insertion de colonne 1.2.3 , si tu nous explique pas la fin de tout cela

a+ ferdinand

Bonjour toutes et tous,

Bon , il y avait une petite erreur pour nbrebillets et nbrepieces, j'ai mis le tout sur une même variable x (convnum)

l'erreur s'est que cela ne pouvez-pas afficher le nombre de pièces alors que le nombre de billets s'afficher quant à lui correctement

ceci a été rectifié.

NEW: 1/Les références sont sur la colonne V de la feuille Dépôt

NEW: 2a/on peut effectuer une recherche de référence directement sur la feuille en y attribuant dans la zione de texte de la textbox1 de la feuille Dépôt (1 ou 001...) à savoir que cette texbox1 je l'ai limité à 5 caractères, en dessous une listbox1

2b/ on peut double cliquez gauche sur cette textbox1 pour effacer le contenu

3b/ ligne trouver de la recherche de la textbox la ligne de notre recherche trouvée se mettra en couleur

ce code pris ici sur le forum en exemple sur les tutoriels du forum de Sébastien, merci à lui

NEW:A/ l'userform affiche maintenant, le nombre de pièces

B/ affiche le numéro de ligne lors, du choix de la listbox de cette userform1

reste encore à remodeler, j'pense est je re.re.

ci-joint:

crdlt,

André

Bonsoir Andre13 et le forum

Comment créer tu le code ref en V

Toujours le problème de la modif des lignes marche mal,

Attention quand on supprime la ligne 1 on supprime les noms des colonnes

Toujours le problème des dates lors de la séparation mois,jours, semaines, je pense qu'il faut les passer en Now

a+ ferdinand

je reprend les essais demain bonne soirée

re,

ok merci Ferdinand, oupss oui pour le compteur de référence en colonne V, je regarderai demain en fin d'après-midi, je pense mettre un compteur de ligne pour le numéro de réf

( on y arrivera !!!)

merci passez bonne fin de soirée

crdlt,

André

Bonjour toutes et tous,

voilà ce que, j'ai pu effectuer

- compteur (fonctionne en ajoutant nouvelle fiche ==>test ok)

ci-joint

crdlt,

André

Bonsoir andre13 et le forum

il y problème quand tu supprime les lignes les ref ne suivent pas

bidouille n'a pas répondu à mon message !!

bonne soirée ferdinand

Re,

Merci Ferdinand

si l'on supprime avec l'usf1, celui-ci retire -1 dans la la feuille Dépôt cellule ==>w1<= , la référence est ok) et le numéro de ligne s'effectue bien,j' ai ajouté dans le bouton Modifier de l'usf1

' ..[...].
With Sheets("Dépôt")
' on supprime n° ligne
    Application.EnableEvents = False
    [w1] = Range("A1").SpecialCells(xlCellTypeLastCell).Row - 1
    Application.EnableEvents = True
End With
' ..[...].

ci-joint,

crdlt,

André

re

ta modif ne marche pas quand on supprime la ligne 10 la 9 se en 10 bizarre

a+ ferdinand

re,

je viens de voir merci Ferdinand, mais là, mon cerveau va exploser avec ce classeur

Salut à tous

Parti en famille depuis vendredi, je reviens merci à tous, mais encore perdu.

voilà je pense que c'est bien d'avoir mis une colonne 1 2 3 etc, puis mettre le résultat de la colonne U et N° de REF qui correspond au jours de l'année exemple U 12 =Janvier H 6 si non = 0Ou d'autre idées???

A+++

Bonjour a tous le forum

J'espère que ce sera plus claire

j'ai les opérations qui sont fausses je ne sait pas les corriger en espérant que ce soit bien expliquer

merci a++++

Bonjour bidouille et le forum

ta les opérations fausses ou!!!

pour le reste en MFC (mise en forme conditionnelle )

a+ FERDINAND

Bonjour toutes et tous

Coucou Ferdinand, Bidouille

@Bidouille

sur ta feuille Janvier en cellule B4 pour les #/N/A: j'ai mis SIERREUR(maformule);"")

Note remplace ton VRAI par FAUX pour la Valeur proche

ce qui donne:

=SIERREUR(RECHERCHEV(B3;Dépôt!$A$1:$W364;21;FAUX);"")

effectue ceci sur les autres cellules C4,D4,E4,F4,G4H4

puis aussi, (sur toutes tes cellules pour les formules en euros)

même pour les CA de la semaine (cellule remplissage couleur verte)

Exemple:

=SIERREUR(SOMME(B4:H4);"")

puis sur les autres onglets des mois SIERREUR....;"")