AIDE FICHIER QUI BEUG

[Fidmo]

Bonjour à toutes & à tous,
Je sollicite votre aide pour ce fichier que je mets en pièce jointe et qui m'a été donné par un ami informaticien qui est aujourd'hui absent. Il a du changé quelque chose qui reste compliqué pour moi et le fichier ne marche pas. Quelqu'un peut-il venir à mon secours SVP
Cordialement.
Fidmo

 

[M12]

Bonjour,

Renomme simplement ton onglet "SAISIE" par "collecte"

 

[Fidmo]

Bonjour M12, & Forum,
Merci pour votre réponse. J'ai fait comme vous me dite mais ça ne marche pas.
Pouvez SVP voir pourquoi?
Fidmo

 

[M12]

Re,
Tu as un combobox qui ne porte pas le bon nom (Combolieu)

 

[Fidmo]

Ré-Bonjour M12,
Il faut que je vous le dis tout de suite: je suis nul en Vba et tout ce langage des experts. Si vous pouvez m'aider je vous en serais très reconnaissant.
Merci pour votre temps si précieux.
Fidmo

 

[M12]

Re,

Ce genre de message

Il faut que je vous le dis tout de suite: je suis nul en Vba et tout ce langage des experts. Si vous pouvez m'aider je vous en serais très reconnaissant.

tu nous le présente depuis un petit moment, alors il est temps que tu mettes à te creuser un petit peu la tête pour éviter d'avoir des classeurs tout fait,
Un forum est là pour aider, pas pour construire
Tu as tout dans mes précédent messages, cherche un peu et tu seras encore plus satisfait de toi quand tu auras résolu ton problème

 

[Fidmo]

Bonsoir, M12,
Je me suis creusé beaucoup la tête. mais j'arrive pas. C'est pourquoi je sollicite votre aide. Je suis un vieil homme de 70 ans. Aidez-moi Svp.
Fidmo

 

[Staple1600]

Bonsoir le fil, le forum

@Fidmo
Tu n'arrives pas à quoi exactement ?
Commence déjà par décrire ton problème dans le message (avec détails et précisions) plutôt que mettre directement un fichier exemple sans explications dans le message.

NB: Peu importe l'âge, tant que tu es en capacité de lire et d'utiliser ton PC, tu peux tout à fait mettre les mains dans le cambouis

PS:Je te remet l'indice laissé par M12 (que je salue au passage)

Re,
Tu as un combobox qui ne porte pas le bon nom (Combolieu)

 

[Fidmo]

Bonsoir Staple1600, le fil, le forum,
Merci pour votre intervention. Merci de cliquer sur bouton "SAISIE". Vous allez voir après avoir tout rempli et que vous passez à "Enregistrer" Le fichier beug. et ne marche pas. Je pense que tout s'explique pour un Expert comme vous.
Est-ce clair ?
Cordialement.

 

[Staple1600]

Re

Ce qui est clair c'est que tu n'as pas fait ce que tu suggérais M12 dans le message#2

 

[Fidmo]

Bonsoir Staple1600, & Forum,
Merci pour votre intervention, j'ai peur de me presser dans le jugement des hommes. Pourquoi M12 ne vient plus dans la discussion? Enfin! j'attends une âme charitable.
Bonne fin de soirée.
Fidmo

 

[Staple1600]

Re

@Fidmo
As-tu oui ou non renommé la feuille SAISIE avec comme nouveau nom: collecte ?
Pourquoi il faut le faire ?
Parce que dans le code VBA, on peut lire
Worksheets("collecte").Select

Ce conseil t'a été donné par M12 dès le message#2

Ensuite as-tu suivi le second conseil (cf le message#4) ?

Ne sommes-nous pas charitables, nous qui te donnons des conseils ?
... que tu ne suis pas !

j'ai peur de me presser dans le jugement des hommes

???
Si tu as peur, allume la lumière

 

[Staple1600]

Bonjour le fil, le forum

@Fidmo
Petit devoir dominical
J'ajouté pou vérification ces commentaires en vert

Private Sub BtnAjout_Click()
Dim ligne As Long
If MsgBox("   Confirmez-vous l'ajout de la fiche?", vbYesNo, " Confirmation") = vbYes Then
With Sheets("collecte")
ligne = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 1) = TextBV.Value             '-> CLIENT
.Cells(ligne, 2) = Year(CDate(TextDate))    '-> ANNEE OK
.Cells(ligne, 3) = ComboService.Value       '-> IMPOT
.Cells(ligne, 4) = TextAgent.Value          '-> MONTANT
.Cells(ligne, 5) = CheckBV.Value            '-> REFERENCE
.Cells(ligne, 6) = TextVolume.Value         '-> Date EXIGIBILITE
.Cells(ligne, 7) = ComboLieu.Value          '-> Date PAIEMENT
.Cells(ligne, 8) = TextTemps.Value          '-> DEPOSE
.Cells(ligne, 9) = TextObserv.Value         '-> Observation OK
.Cells(ligne, 10) = CheckClass.Value        '-> Classé OK
Unload Me
FormCollecte.Show
   End With
   Else
   End If
End Sub

Est-ce que d’après toi les données sont mises dans les bonnes colonnes quand on clique sur ENREGISTRER?

 

[Fidmo]

Bonjour Cher Staple1600, Forum,
1) Vous avez complètement raison. Les données ne sont pas mises dans les bonnes colonnes et je m'en excuse. 2) Les commentaires en vert que vous ajoutez sont difficiles pour moi je ne saurais jamais quoi faire. Je suis nul dans ce domaine. Pourriez-vous Svp m'aider.
Cordialement.

 

[Staple1600]

Re

@Fidmo
C'est une blague?
Les commentaires que j'ai mis sont juste les noms qu'il y avait dans la feuille "collecte" (sur la ligne1)
NB: Tu as bien renommé la feuille SAISIE en feuille collecte ?
Puisque tu as vu que les colonnes ne sont pas dans le bon ordre, il suffit de remettre les noms des colonnes à la bonne place sur la feuille, non ?
Cette écriture Cells(ligne, 1) veut dire:
On se place dans la colonne 1 sur la ligne qui correspond à la valeur de la variable ligne
ligne= la première ligne vide de la colonne (donc ici de la colonne 1)
Don en suivant ce raisonnement, il est simple de savoir quel nom de colonne doit être inscrit dans les colonnes
A,B,C,D,E,F,H,I et J.

Je suis nul dans ce domaine. (1*)
Pourriez-vous Svp m'aider. (2**)

*: (1) Ta permanente auto-dépréciation ne concerne pas le forum
Voir cela avec un psy conventionné ou pas ou ressortir le best-seller du Docteur E.Coué

**: (2) Qu'est-ce que je fais sinon t'aider depuis que je poste des messages dans cette discussion ?