[VBA-E] Saut de cellule non demandé

Version imprimable

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:

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

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:

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

06/04/2007, 16h08
dadavyvy
Code:

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.

Citation:

Envoyé par luudii

Code:

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.
06/04/2007, 16h26
luudii

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

Citation:
Envoyé par 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:

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