Re!
Est ce que quelqu'un pourrait essayer mon code et me dire pourquoi la première fonction ne saute pas de cellule alors que toutes les autres oui. Pourtant il me semble bien que le code de chacune est identique et que la structure aussi!
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, 2) = 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, 3) = 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, 4) = 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, 5) = InputBox("Saisissez l'Id office") End Sub
Partager