Remplir un tableau a partir d'un inputbox

Version imprimable

13/07/2010, 08h04
cooltechfr

Remplir un tableau a partir d'un inputbox

bonjours,
je suis débutant
SVP , je n'arrive pas a remplir un tableau de 4 colonne (nom,prénom,moyenne,attach)
avec le contenue de "attach" est un URL de fichiers pdf
c'est a dire lorsqu'on appui sur boutton "remplir" 4 inputbox s'affichera pour le remplissage de nom ,prénom ,moyenne et attach (URL)
aidez-moi SVP
13/07/2010, 09h55
Psychopathe

Pas compris grand chose à ton message... Que cherches-tu à faire? Cela manque de précisions pour que l'on puisse t'aider...

Heuuuuuu...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ButtonRemplir_Click()
 
    Dim nom As String
    Dim prenom As String
    Dim moyenne As String
    Dim attach As String
 
    nom = InputBox("Entrez votre nom", "NomDeLafenêtre")
    prenom = InputBox("Entrez votre prenom", "NomDeLafenêtre")
    moyenne = InputBox("Entrez la moyenne", "NomDeLafenêtre")
    attach = InputBox("Entrez l'URL", "NomDeLafenêtre")
 
    Range("A1").Value = nom
    Range("B1").Value = prenom
    Range("C1").Value = moyenne
    Range("D1").Value = attach
 
End Sub

Quelque chose dans ce genre?

15/07/2010, 07h28
cooltechfr

merciiii c'est parfait mon ami . juste une petite modification SVP
1-Incrémentation automatique des ligne (car dans ce code les nouveau donnés entrées prend la place des anciennes valeurs).
2-est ce qu'on peut changer l'URL dans la colonne attach à un lien hypertext.
merci encore :ccool::ccool::ccool::ccool:

Code:

1
2
3
4
5
6
7
8
9
10
Dim NewLig As Long
Dim attach As String
 
NewLig = Cells(Rows.Count, 1).End(xlUp).Row + 1
 
Range("A" & NewLig).Value = InputBox("Entrez votre nom", "NomDeLafenêtre")
Range("B" & NewLig).Value = InputBox("Entrez votre prenom", "NomDeLafenêtre")
Range("C" & NewLig).Value = InputBox("Entrez la moyenne", "NomDeLafenêtre")
attach = InputBox("Entrez l'URL", "NomDeLafenêtre")
ActiveSheet.Hyperlinks.Add Anchor:=Range("D" & NewLig), Address:=attach, TextToDisplay:=attach

15/07/2010, 10h24
Yolak

Citation:

Envoyé par mercatog

Code:

NewLig = Cells(Rows.Count, 1).End(xlUp).Row + 1

C'est génial cette astuce ! +1
J'ai un peu de mal à la comprendre mais je vais y méditer!

Citation:

Envoyé par Yolak

Heuuuuuu...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ButtonRemplir_Click()
 
    Dim nom As String
    Dim prenom As String
    Dim moyenne As String
    Dim attach As String
 
    nom = InputBox("Entrez votre nom", "NomDeLafenêtre")
    prenom = InputBox("Entrez votre prenom", "NomDeLafenêtre")
    moyenne = InputBox("Entrez la moyenne", "NomDeLafenêtre")
    attach = InputBox("Entrez l'URL", "NomDeLafenêtre")
 
    Range("A1").Value = nom
    Range("B1").Value = prenom
    Range("C1").Value = moyenne
    Range("D1").Value = attach
 
End Sub

Quelque chose dans ce genre?

Ah c'était juste ça...:mouarf:

15/07/2010, 22h51
Yolak

Citation:

Envoyé par Psychopathe

Ah c'était juste ça...:mouarf:

Oui lol des fois on cherche trop compliqué quand la réponse est "simple"
15/07/2010, 22h57
Psychopathe

Tellement simple que parfois on peut se demander à quoi servent les tutoriels sur le site...:roll: