Discussion :

[kedas]

a tous

J'espère ne pas poser un problème déjà résolu car après plusieurs recherches, mon problème persiste.
En effet voilà Je désire renseigner les colonnes B,C,D,E,F,G à partir de la ligne 11. Et dès lors, les nouvelles valeurs entrées devraient aller à la prochaine ligne vide.
voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click() 
[C11] = UserForm2.TextBox1 
[F11] = UserForm2.TextBox2 
[D11] = UserForm2.TextBox3 
[E11] = UserForm2.TextBox4 
[G11] = UserForm2.TextBox5 
Unload UserForm2 
End Sub

le problème est qu'à la prochaine opération, les anciennes valeurs sont remplacées par les nouvelles dans la ligne 11. J'aimerais plutôt qu'elles devraient aillent à la prochaine ligne vide et ainsi de suite.
D'après mes recherches sur le forum il faudrait initialiser un i =... ou un truc de ce genre. Mais je n'y comprends rien vu que je suis débutant en vba.
Je vous remercie de bien vouloir me donner un coup de pouce.

[jfontaine]

bonjour kedas

le i est une variable que l'on utilise pour retrouver la prochaine ligne vide
a chaque boucle le i correspond au numero de ligne, on regarde si la case est vide. si elle est vide on ajoute 1 a i et on refait le test sinon i correspond a une ligne vide

Code :

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

1
2
3
4
5
6
 
dim i as long 'declaration
 
do while range("A" & i).value<>""
 i=i+1
loop

ensuite tu mets ton code

[kedas]

Salut JFontaine

Merci pour l'information sur la variable i.

Mais seulement le problème a l'air de se déplacer.
voilà ce que j'ai fait:

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
Private Sub CommandButton1_Click()
Dim i As Long 'declaration
 
Do While Range("C" & i).Value <> ""
Do While Range("D" & i).Value <> ""
Do While Range("E" & i).Value <> ""
Do While Range("F" & i).Value <> ""
Do While Range("G" & i).Value <> ""
 i = i + 1
Loop
 
If Button1.Value = True Then
[B11] = "Entrée"
End If
If Button3.Value = True Then
[B11] = "Sortie"
End If
 
[C11] = UserForm2.TextBox1
[F11] = UserForm2.TextBox2
[D11] = UserForm2.TextBox3
[E11] = UserForm2.TextBox4
[G11] = UserForm2.TextBox5
Unload UserForm2
End Sub

et j'ai une erreur de do sans boucle comment faire our continuer ?

[zazaraignée]

il faut carrément remplacer les [C11] et ainsi de suite pour des objets Range.

[jfontaine]

Essai comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim i as long 'declaration
 
do while range("A" & i).value<>""
 i=i+1
loop
 
Range("C" & i).Value= UserForm2.TextBox1
Range("F" & i).Value = UserForm2.TextBox2
Range("D" & i).Value = UserForm2.TextBox3
Range("E" & i).Value = UserForm2.TextBox4
Range("G" & i).Value= UserForm2.TextBox5
Unload UserForm2

[kedas]

Salut a tous
et une fois de plus merci pour toutes vos contributions.

Je reviens une fois de plus car en essayant comme vous l'avez conseillé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim i as long 'declaration
 
do while range("A" & i).value<>""
 i=i+1
loop
 
Range("C" & i).Value= UserForm2.TextBox1
Range("F" & i).Value = UserForm2.TextBox2
Range("D" & i).Value = UserForm2.TextBox3
Range("E" & i).Value = UserForm2.TextBox4
Range("G" & i).Value= UserForm2.TextBox5
Unload UserForm2

j'obtiens une erreur d'exécution '1004' : la méthode 'Range' de l'objet '_Global' a échoué