Aide pour un projet VBA

Bonjour à tous,

Je vous rejoin sur le forom car j'aurai besoin d'aide.

Je suis désolé si mon poste n'est pas au bonne androit, car j'en suis pas sur du tout.

Je suis une personne aveugle, utilisatrice d'une synthèse vocal, et il n'est pas toujours facile de comprendre la construction d'un site internet.

Voici mon problème.

Il y a plusieurs années un ami m'avait fait une suite de macro VBA, pour que je puisse jouer au loto de salle.

Les loto qu'on joue laplupart du temps dans des salle de fête, organisé par des associations.

Mais ce projet n'a jamais été terminé, et j'ai entrepris d'apprendre le VBA et d'essayer de terminer tout ça.

Je cherche donc une âme charitable spécialiste du VBA qui pourai m'aider à finioler tout ça.

En vous remerciant par avance

bonjour,

On est tous des amis potentiels et beaucoup sont spécialistes ès VBA. Mais si tu ne nous en dit pas plus difficile de savoir si on peut t'aider...

Déjà je suppose que la plupart d'entre nous n'ont aucune idée de ce que la synthèse vocale peut apporter dans cette situation, donc il faut développer un peu tes questions.

A+

bon soire,

Oui je comptais bien vous donner des précisions une fois avoir obtenu des réponces de personne voulant éventuellement m'aider.

Je crois que la meilleur manière de présenter ça, serai de vous poster le projet, j'espère que je vais pouvoir ajouter le fichier.

Mais je vais essayer de résumer ce qui est déjà fait.

Je peux choisir le nombre de cartons.

Je peux générer des numéro aléatoirement dans tous les cartons.

On entre un numéro pour vérifier sa présence dans tous les cartons.

Je peux diférancier quand un numéro est sortie ou pas, grace a un signal sonor quand la cellule à le focus avec le clavier.

Il y a une annonce sonor quand il y a une ligne complète, 2 lignes, ou les 3 lignes "le carton plein".

Je vous poste le fichier, et si vous avez des questions, dites moi.

merci encore de votre aide

Bonjour à tous,

Je vous expose mon premier soucis.

Dans mon classeur,

une feuille est égale à un carton de loto.

par défaut, les feuilles sont nomé

carton1, carton2, carton3.... etc...

Il y a une fonction GotoBoard qui permet d'aller à un carton donné.

Le soucis, est que parfois dans des grande salle de jeu, nous devons donner le numéro de série du carton.

Donc je doit donner a chaque carton que j'entre dans mes feuille les noms suivant:

carton1 num_de_série,

carton2 num_de_série,

carton3 num_de_série,

etc...

Mais si je fais cela, la fonction GotoBoard ne fonctionne plus

Je vous met la fonction si dessous.

Public Sub GotoBoard()

' proposer d'aller à un carton donné.

Dim s As String

Dim i As Integer

Dim sh As Object

On Error Resume Next

s = InputBox("Tapez le numéro du carton que vous voulez directement atteindre.", "Numéro de carton à atteindre")

If s = vbNullString Then Exit Sub

If IsNumeric(s) = False Then

SayText "Erreur: La valeur tapée n'est pas numérique"

Exit Sub

End If

' tentative de captage de la bonne feuille

Set sh = Worksheets("Carton" & s)

If sh Is Nothing Then

SayText "Erreur: Vous ne pouvez aller au dela du carton N° 36."

Exit Sub

End If

' vérification si carton actuellement visible

If sh.Visible = False Then

SayText "Erreur: Le carton '" & s & "' n'est actuellement pas disponible."

Exit Sub

End If

' déplacement

sh.Select

' libération

Set sh = Nothing

End Sub

Je ne connais vraiment pas le VBA, mais je dévelope pas trop mal en langage perl, sa me permet de comprendre tout de même certaine chose.

Je pense que le problème est sur cette ligne:

Set sh = Worksheets("Carton" & s)

Il cherche un carton qui s'appel carton et son numéro

le numéro qui est contenu dans la variable s.

Mais si mon carton s'appelle

carton3 123456

le premier segment est le carton numéroté, et le deuxième segment son numéro de série.

Donc la ligne:

Set sh = Worksheets("Carton" & s)

ne peu plus fonctionner.

Je verai bien pour rêgler le problème utiliser une fonction du genre

StringSegment("chaine de caractère","séparateur qui sera espace",numéro du segment)

est-ce possible en VBA?

merci à vous.

Bonjour Djblind,

Merci de bien vouloir mettre tout ce qui est code entre balises, grâce au bouton </>

Pour ce qui concerne votre requête, il y a 2 soucis à mes yeux :

1) Lors de la saisie du numéro de carton et du numéro de série, l'espace n'est pas numérique, donc le code

If IsNumeric(s) = False Then

Ne peut pas fonctionner

2) La saisie du numéro de carton et du numéro de série peut-être fait dans le même Inputbox,
mais il faudra respecter l'écriture du nom de la feuille

Saisir : 3[Espace]123456

Ce qui fera que le code

Set sh = Worksheets("Carton" & s)

Sera du coup fonctionnel

@+

Bonjour bruno,

merci de ta réponce.

Je vais essayer la prochaine fois de trouver le bouton en question, si ma synthèse vocal veux bien le lire.

Je pense que je me suis mal exprimé.

Dans l'inputBox je souhaite qu'on entre seulement le numéro du carton, et pas le numéro de série.

Le numéro de série je le donne seulement si il y a un gain.

Donc je nome un carton dde la manière suivante:

carton1 123456

et donc dans l'inputbox j'entre le chiffre 1 pour le carton1.

C'est ça que je voudrai obtenir.

merci