Bonjour,

Je cherche à remplir une ligne d'un tableau à partir d'informations saisis auparavant. L'objectif est que quand je clique sur le bouton valider de mon interface, la ligne 1 de mon tableau se complète.
Si je reclique la ligne 2 se remplis etc (avec des infos différentes que j'ai rentré)

la ligne a remplir qui compose 11 colonnes peut ,ne pas être complète. Je peux avoir des cellules de ma ligne vide.

J'ai partiellement réussi mais des messages d'erreur surviennent quand je change des données.

voici le code de mon bouton:


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
Sub Macro1()
I = 2
 
While Sheets("Bilan").Range("A" & I).Value <> "" And Sheets("Bilan").Range("B" & I).Value <> "" And Sheets("Bilan").Range("C" & I).Value <> "" And Sheets("Bilan").Range("D" & I).Value <> "" And Sheets("Bilan").Range("E" & I).Value <> "" And Sheets("Bilan").Range("F" & I).Value <> "" And Sheets("Bilan").Range("G" & I).Value <> "" And Sheets("Bilan").Range("H" & I).Value <> "" And Sheets("Bilan").Range("I" & I).Value <> "" And Sheets("Bilan").Range("J" & I).Value <> "" And Sheets("Bilan").Range("K" & I).Value <> ""
 
I = I + 1
 
Wend
 
Sheets("bilan").Range("A" & I).Value = Sheets("menu").Range("E4").Value
Sheets("bilan").Range("B" & I).Value = Sheets("menu").Range("H4").Value
Sheets("bilan").Range("C" & I).Value = Sheets("menu").Range("B4").Value
Sheets("bilan").Range("D" & I).Value = Sheets("menu").Range("B8").Value
Sheets("bilan").Range("E" & I).Value = Sheets("menu").Range("E8").Value
Sheets("bilan").Range("F" & I).Value = Sheets("menu").Range("H8").Value
Sheets("bilan").Range("G" & I).Value = Sheets("menu").Range("E18").Value
Sheets("bilan").Range("H" & I).Value = Sheets("menu").Range("E22").Value
Sheets("bilan").Range("I" & I).Value = Sheets("menu").Range("E13").Value
Sheets("bilan").Range("J" & I).Value = Sheets("menu").Range("B22").Value
Sheets("bilan").Range("K" & I).Value = Sheets("menu").Range("H12").Value
 
End Sub
Merci d'avance