Discussion :

[luudii]

rerere!!
Je sais je suis un peu nulle lol! désolée de vous embeter mais je ne comprends pas pourquoi toutes les informations saisies s'écrivent les une à la suite des autres dans la même colonne, alors que mes fonctions font sélectionner les bonnes colonnes???
Quelqu'un peut m'aider (encore une fois lol)???

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub Ludi()
 
 
Call site
Call nom
Call typepc
Call idwin
Call idoff
 
End Sub
 
Sub site()
    Sheets("Feuil1").Columns("b:b").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez le site sur lequel vous travaillez")
End Sub
 
Sub nom()
    Sheets("Feuil1").Columns("c:c").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez votre nom")
End Sub
 
Sub typepc()
    Sheets("Feuil1").Columns("d:d").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez le type d'ordinateur sur lequel vous travaillez (PC ou portable)")
End Sub
 
Sub idwin()
    Sheets("Feuil1").Columns("e:e").Select
    i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez l'Id Windows")
End Sub
 
Sub idoff()
    Sheets("Feuil1").Columns("f:f").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez l'Id office")
End Sub

Voila!

[dadavyvy]

A cause de cette meme ligne qui se repete :

Code :

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

Cells(i, 1) = InputBox(...)

Cells(i, 1) veut dire : Cellule ligne i colonne 1, donc tout dans la colonne A.
Le Select ne sert absolument à rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Ludi()
    i = 1
    While Sheets("Feuil1").Cells(i, 1) <> ""
        i = i + 1
    Wend
    Sheets("Feuil1").Cells(i, 2) = InputBox("Saisissez le site sur lequel vous travaillez")
    Sheets("Feuil1").Cells(i, 3) = InputBox("Saisissez votre nom")
    Sheets("Feuil1").Cells(i, 4) = InputBox("Saisissez le type d'ordinateur sur lequel vous travaillez (PC ou portable)")
    Sheets("Feuil1").Cells(i, 5) = InputBox("Saisissez l'Id Windows")
    Sheets("Feuil1").Cells(i, 6) = InputBox("Saisissez l'Id office")
End Sub

PS. n'oublie pas les balises de code