[VBA-E] Problème de remplissage de lignes

Bonjour,

je dois à l'aide d'un formulaire de saisie remplir une ligne dans Excel.

Mais l'emplacement de cette ligne dépend de la première colonne qui comporte à la fois des caractères et des chiffres (ex: événement 15 action 1, événement 15 action 2, événement 16 action 1 ...).

En fait, il faudrait que dans un premier formulaire je demande le N° événement et de l'action à l'aide d'une liste déroulante, puis que je l'enregistre dans une case.

Et ensuite que le 2ème formulaire utilise cette case pour trouver la ligne qu'il doit remplir.

Et c'est là mon problème, je sais le faire si cela aurait été uniquement un chiffre, mais un chiffre et des caractères je n'y arrive pas.

Est-ce que quelqu'un pourrait m'aider?

Merci.

pk n'utilise tu pas un String?

si tu ve comparer 2 string ca marchera et si tu ve comparer 1 string avec 1 nombre:
transforme le nombre en string puis compare

Code:

---

1 2	if (a = string(nombreenquestion) ) then...

---

sinon au lieu de prendre un caractère, défini ton caractère non pas comme un char mais comme un string.

Bon voit déja ca si tu pe faire ce que tu ve en passant plutot par des string.

les évènements sont-ils tous :
de la même longueur ?
en un seul mot (sans espaces au milieu) ?

il faudrait avant tout pouvoir travailler sur la chaine de caractères contenue dans la cellule pour déterminer les n° que tu veux récupérer.

sinon, est-il possible de modifier la structure du fichier en éclatant les données ? (je pose cette question à tout hasard, même si je sens venir la réponse)

biggione> VBA caste automatiquement les types. pas de problème de ce côté là.

salut, j'ai un nouveau soucis similaire à celui là.

Je dispose dans une cellule de donnée de la sorte : "93 evt" où on a en premier un numéro et ensuite des caractères, je pense que le numéro ne dépassera pas 1000.

Je souhaiterai dans une case à côté ne garder que le numéro mais je ne trouve pas comment faire.

Merci.

bonjour

tu peux essayer

Code:

---

MsgBox Val("93 evt")

---

bon apres midi
michel

J'ai déjà écrit quelque chose:

Code:

---

f.Cells(2, 27).FormulaR1C1 = "=LEFT(R[-1]C ,2)"

---

Mais cela ne marche que pour les chiffres à 2 caractères il faudrait que cela fonctionne aussi avec les chiffres à 3 voir 4 caractères.

Merci.

Citation:

---

Envoyé par SilkyRoad

Code:

---

MsgBox Val("93 evt")

---

---

As-tu essayé ce que propose SilkyRoad???

Merci, j'ai réussi avec votre méthode:

Code:

---

1 2 3 4 5

Dim a As Integer Dim f As Worksheet   a = Val(f.Cells(1, 27).Value) f.Cells(2, 27).Value = a

---