Exposant dans une boite de dialogue

Question

Bonjour,

Je voudrais faire une boite de dialogue avec cette formule :
nombre = inputbox("entrez le nombre")

for i = 1 to nombre
nom = inputbox("entrez le 1er nom")

et à partir du deuxième
 
("entrez le 2ème nom")
avec (er) et (ème) en exposant.

J'ai cru comprendre qu'il faut utiliser la fonction ''Superscript'' mais je n'arrive pas à la constuire.
Est-ce que vous pouvez m'aider dans ce domaine ?

Merci
chaudier37

cs_Le Pivert · Answer

Bonjour,

un exemple d'après ce que j'ai compris:

Sub test()
Dim nombre As Integer
Dim nom As String
nombre = InputBox("Entrez un nombre entre 1 et 3", "Nombre de fois", "1")
Select Case nombre
Case 1
nom = InputBox("Entrez le 1er nom", "Choix du nom", "Dupond")
Range("A1") = nom
Case 2
nom = InputBox("Entrez le 1er nom", "Choix du nom", "Dupond")
Range("A1") = nom
nom = InputBox("Entrez le 2ème nom", "Choix du nom", "Durand")
Range("A2") = nom
Case 3
nom = InputBox("Entrez le 1er nom", "Choix du nom", "Dupond")
Range("A1") = nom
nom = InputBox("Entrez le 2ème nom", "Choix du nom", "Durand")
Range("A2") = nom
nom = InputBox("Entrez le 3ème nom", "Choix du nom", "Duval")
Range("A3") = nom
End Select
End Sub

a adapter

Exposant dans une boite de dialogue

1 réponse

Votre réponse

Discussions similaires