Macro Formulaire de saisie - Aide?

[Raphsd]

Bonsoir à tous,

Je vous écris car j'ai un soucis avec une macro.

J'ai récupéré une macro de l'un de vous dans un autre fil mais je n'arrive pas à l'adapter: il y a un beug quelques part.

Quelqu'un pourrai-t-il m'aider?

Raphsd.

 

[Staple1600]

Re : Macro Formulaire de saisie - Aide?

Bonsoir


Quelle est cette macro ?

 

[Raphsd]

Re : Macro Formulaire de saisie - Aide?

la voici ....

 

[jeanpierre]

Re : Macro Formulaire de saisie - Aide?

Bonsoir Raphsd, et Bienvenue sur XLD, JM,

Je n'arrive pas à accrocher ton CommandButton à la macro (version 2007 rapportée à 2000-2003 ???), mais déjà, ta sheets("aliment") n'existe pas...

Ensuite tu parles de beug, mais tu ne précises pas lequel et où, ni le message éventuel...

Donc pas simple.

A te lire pour plus d'infos.

Jean-Pierre

 

[Raphsd]

Re : Macro Formulaire de saisie - Aide?

Bonsoir Jean Pierre,

Merci de ta réponse.

Pour essayer de répondre le plus clairement possible.

La sheets Aliment n'est-elle pas normalement dans la colone B?

Pour répondre aux beugs, en fait, dans l'idéal, je voudrais faire grace à ma macro que je puisse entrer un nouveau produit, qu'il se rajoute automatiquement dans le tabeau, en supprimer un....
et quand tu rentres les données et fait ajouter il y a un problème avec Private Sub BoutAjout_Click()

si tu essayes sans doute comprendras-tu mieux que moi...

merci,

Raphsd

 

[Staple1600]

Re : Macro Formulaire de saisie - Aide?

Re, re jeanpierre



Raphsd

Peux-tu poster une version compatible XL2000,2003 stp ?

 

[jeanpierre]

Re : Macro Formulaire de saisie - Aide?

Re,

J'ai peur de ne pas comprendre ceci :

"La sheets Aliment n'est-elle pas normalement dans la colone B?" ????????

Pour le reste, ça beug de partout, donc il faut rentrer dans ton appli. Vais voir si j'y comprends quelque chose.

 

[Cousinhub]

Re : Macro Formulaire de saisie - Aide?

Bonsoir, le fil

juste, pour que tout le monde puisse aider...

Le fichier xls

 

[soenda]

Re : Macro Formulaire de saisie - Aide?

Bonsoir le forum

@Raphsd : pour information, Sheets signifie Feuilles

Et comme te l'a signalé jean-pierre,
la feuille "Aliments" n'existe pas dans ton classeur
de ce fait, le code suivant
qui est appelé par le bouton de la feuille 1, plantera

Sub CommandButton2_Click()
Sheets("Aliments").Select
End Sub

A plus

 

[Raphsd]

Re : Macro Formulaire de saisie - Aide?

merci bhbh,

comme pourrais-je le mettre sous ce format afin d'envoyer l'ensemble du fichier,?

car en fait, soenda, j'ai un fichier global à faire ais je voulais vous demander cette aide juste sur cette macro

si je vous donne le fichier global peut-être pouarrez-vous mieux m'aider.

désolé, mais je début tout juste sur VBA

 

[Staple1600]

Re : Macro Formulaire de saisie - Aide?

Re


Merci bhbh pour la conversion 😉


Raphsd: pourrais-tu stp citer le nom de l'auteur de la macro
ou à défaut indiquer le lien du fil de discussion d'origine du code VBA que tu utilises dans ton classeur. Merci

 

[Cousinhub]

Re : Macro Formulaire de saisie - Aide?

Re-,

Lorsque tu es sous Exel 2007, pour enregistrer sous un format différent,
tu cliques sur F12 (la boîte "Enregistrer Sous" s'ouvre)

Dans "Type de Fichier", en bas, tu sélectionnes :

"Classeur Excel 97 - 2003 (*.xls)"

Et le nom que tu veux

Amicalement

 

[BERRACHED said]

Re : Macro Formulaire de saisie - Aide?

Salut,rasphed,bhbh,staple1600

Voir cette version

Cordialement

 

[Raphsd]

Re : Macro Formulaire de saisie - Aide?

said,

lorsque j'ouvre mon doc j'ai un soucis ici :


Private Sub BoutAjout_Click()
If TextBNom.Text = "" Then Beep: Exit Sub
If SurAjout Then
SurAjout = False
BoutAjout.Caption = "Modifier"
BoutNew.Caption = "Nouveau"
AjoutDansBase
Else
If IndexBase = 0 Then Beep Else ModifieBase
End If
End Sub

il me surligne en jaune Private Sub BoutAjout_Click() et ça ne marche pas!

 

[Raphsd]

Re : Macro Formulaire de saisie - Aide?

said,

lorsque j'ouvre mon doc j'ai un soucis ici :


Private Sub BoutAjout_Click()
If TextBNom.Text = "" Then Beep: Exit Sub
If SurAjout Then
SurAjout = False
BoutAjout.Caption = "Modifier"
BoutNew.Caption = "Nouveau"
AjoutDansBase
Else
If IndexBase = 0 Then Beep Else ModifieBase
End If
End Sub

il me surligne en jaune Private Sub BoutAjout_Click() et ça ne marche pas!
il y a un problème avec : TextBNom.Text

mais je ne sais pas quoi ...