[Résolu][Calc] éviter la redondance de saisie.
Publié : 06 avr. 2018 18:30
Bonjour,
Je dois saisir une 40 aine de ligne de code par "article" sachant qu'il y a 300 artciles, je me demandait si vous n'auriez pas une astuce ou une formule à laquelle je n'aurait pensé, qui me permettrait de synthétiser la formule.
Je vous joint un fichier exemple pour vous rendre compte et voici également le code :
Ici le code est pour 2 article seulement. je souhaiterais éviter de retaper tout à chaque fois pour chaque article (300 )
Merci d'avance de votre aide
Je dois saisir une 40 aine de ligne de code par "article" sachant qu'il y a 300 artciles, je me demandait si vous n'auriez pas une astuce ou une formule à laquelle je n'aurait pensé, qui me permettrait de synthétiser la formule.
Je vous joint un fichier exemple pour vous rendre compte et voici également le code :
Code : Tout sélectionner
Txt = Inputbox ("tapez une lettre de l'alphabet grec ")
Dim monDocument As Object, maCellule As Object
Dim lesFeuilles as Object
Dim maFeuille as Object
Dim mess As String, cr As String
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("StockA")
maCellule = maFeuille.getCellRangeByName("B3")
TxtAlpha = maCellule.value
If (Txt = "Alpha" ) then
if TxtAlpha = 0 then
Txt = InputBox ("tapez une lettre de l'alphabet grec ?")
while Txt = "Alpha"
Txt = InputBox ("ERREUR, lettre déjà tapée, tapez une autre lettre de l'alphabet grec ?")
If (Txt = "Bravo") then
Call StockSortantBravo
ElseIf (Txt = "Charlie") then
Call StockSortantCharlie
ElseIf (Txt = "Delta") then
Call StockSortantDelta
ElseIf (Txt = "Echo") then
Call StockSortantEcho
ElseIf (Txt = "Fox_trot") then
Call StockSortantFox_trot
ElseIf (Txt = "Golf") then
Call StockSortantGolf
ElseIf (Txt = "Hotel") then
Call StockSortantHotel
ElseIf (Txt = "India") then
Call StockSortantIndia
ElseIf (Txt = "Juliet") then
Call StockSortantJuliet
ElseIf (Txt = "Lima") then
Call StockSortantLima
ElseIf (Txt = "Mike") then
Call StockSortantMike
ElseIf (Txt = "November") then
Call StockSortantNovember
Else
EndIf
Wend ' Fin de la boucle
Else
Call StockSortantAlpha
EndIf
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("Perception")
maCellule = maFeuille.getCellRangeByName("A5")
maCellule.String = Txt
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("StockA")
maCellule = maFeuille.getCellRangeByName("B4")
TxtBravo = maCellule.value
If (Txt = "Bravo" ) then
if TxtBravo = 0 then
Txt = InputBox ("tapez une lettre de l'alphabet grec ?")
while Txt = "Bravo"
Txt = InputBox ("ERREUR, lettre déjà tapée, tapez une autre lettre de l'alphabet grec ?")
If (Txt = "Bravo") then
Call StockSortantBravo
ElseIf (Txt = "Charlie") then
Call StockSortantCharlie
ElseIf (Txt = "Delta") then
Call StockSortantDelta
ElseIf (Txt = "Echo") then
Call StockSortantEcho
ElseIf (Txt = "Fox_trot") then
Call StockSortantFox_trot
ElseIf (Txt = "Golf") then
Call StockSortantGolf
ElseIf (Txt = "Hotel") then
Call StockSortantHotel
ElseIf (Txt = "India") then
Call StockSortantIndia
ElseIf (Txt = "Juliet") then
Call StockSortantJuliet
ElseIf (Txt = "Lima") then
Call StockSortantLima
ElseIf (Txt = "Mike") then
Call StockSortantMike
ElseIf (Txt = "November") then
Call StockSortantNovember
Else
EndIf
Wend ' Fin de la boucle
Else
Call StockSortantBravo
EndIf
Merci d'avance de votre aide