Discussion :

[cooltechfr]

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

[Psychopathe]

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

[Yolak]

Heuuuuuu...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yolak]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Psychopathe]

Heuuuuuu...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Yolak]

Ah c'était juste ça...

Oui lol des fois on cherche trop compliqué quand la réponse est "simple"

[Psychopathe]

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