Discussion :

[luudii]

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

[gruget]

Bonjour
alors en fait c'est parce que tu testes (ta boucle while) uniquement sur la première colonne alors que tu écrit ensuite dans des colonnes différentes.
Que veux tu en fait?
si le test doit effectivement se faire uniquement sur la 1ere colonne et que tu ne veux pas de saut de ligne il faut plutot mettre:

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, 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 - 1, 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 - 1, 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 - 1, 5) = InputBox("Saisissez l'Id office")
End Sub

parcequ'une fois que ta rempli ta cellule en colonne 1 ensuite le test ira toujours pour chacune des fonctions suivantes sur la ligne d'après
Sinon pourquoi sélectionnes-tu les colonnes au début? je ne vois pas l'intéret d'autant qu'il y a un décalage (sélection de la colonne B pour l'écriture dans la colonne A, C pour B,...)
dis moi si c'est ce que tu voulais
Rémi

[dadavyvy]

Code :

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

1
2
3
While Cells(i, 1) <> ""
    i = i + 1
Wend

va chercher la prochaine cellule vide de la colonne A.
Ensuite la procedure "site" va coller une valeur a la suite, dans cette meme colonne A.

Code :

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

Cells(i, 1) = InputBox("Saisissez le site sur lequel vous travaillez")

Les autres procedures lancées après seront logiquement décalées d'une ligne par rapport à celle-ci.

[luudii]

Oui c'est ce que je voulais faire merci! j'avais pas compris le principe!

[luudii]

Bonjour
alors en fait c'est parce que tu testes (ta boucle while) uniquement sur la première colonne alors que tu écrit ensuite dans des colonnes différentes.
Que veux tu en fait?
si le test doit effectivement se faire uniquement sur la 1ere colonne et que tu ne veux pas de saut de ligne il faut plutot mettre:

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, 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 - 1, 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 - 1, 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 - 1, 5) = InputBox("Saisissez l'Id office")
End Sub

parcequ'une fois que ta rempli ta cellule en colonne 1 ensuite le test ira toujours pour chacune des fonctions suivantes sur la ligne d'après
Sinon pourquoi sélectionnes-tu les colonnes au début? je ne vois pas l'intéret d'autant qu'il y a un décalage (sélection de la colonne B pour l'écriture dans la colonne A, C pour B,...)
dis moi si c'est ce que tu voulais
Rémi

Ahh merci j'ai compris! youpi!lol