While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
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:
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 ;)
While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
Bonjour,
Peux-tu nous donner plus de précisions sur les erreurs que tu as stp ?
While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
Déjà si j'ai bien compris, tu nous dis que ta ligne peut comporter des cases vides or si une seule (ou plusieurs) de tes cases est vide, ton "i" ne va pas s'incrémenter ce qui doit surement t'emmener vers une erreur.
Peux-tu nous poster ton projet pour que l'on jette un oeil ?
1 pièce(s) jointe(s)
While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
Voila mon dossier ci joint
Je veux mettre comme condition que toutes les cellules A,B,C,D,E etc... doivent avoir le indice
merci d'avance
