utilisation de boucle (while)

[sophie]

Bonjour,j'aimerais savoir comment je peux transformer ces lignes de codes en une boucle sous Lotus Scirpt! colF1 = xlsSheet.Cells(2,1).Value colF2 = xlsSheet.Cells(2,2).Value colF3 = xlsSheet.Cells(2,3).Value colF4 = xlsSheet.Cells(2,4).Value colF5 = xlsSheet.Cells(2,5).Value colF6 = xlsSheet.Cells(2,6).Value colF7 = xlsSheet.Cells(2,7).Value colF8 = xlsSheet.Cells(2,8).Value colF9 = xlsSheet.Cells(2,9).Value colF10 = xlsSheet.Cells(2,10).Value colF11 = xlsSheet.Cells(2,11).Value colF12 = xlsSheet.Cells(2,12).Value colF13= xlsSheet.Cells(2,13).Value colF14 = xlsSheet.Cells(2,14).Value colF15 = xlsSheet.Cells(2,15).Value colF16 = xlsSheet.Cells(2,16).Value colF17 = xlsSheet.Cells(2,17).Value colF18 = xlsSheet.Cells(2,18).Value colF19 = xlsSheet.Cells(2,19).Value Puis comment faire pour afficher tout ce texte grave a une boucle et non en énumérant tous les cas! Msgbox "Col1 : " + colF1 + " " + "Col2 : " + colF2+ " " + _ "Col3 : " + colF3 + " " + "Col4 : " + colF4+ "Col5 : "+colF5 + "" + "Col6 : "+colF6Merci

[Sylvain]

Un chti tableau Dim tCol(18) as string Dim i as integer Dim sMsg as string for i = 0 to 18 tCol(i) = xlsSheet.Cells(2,i+1).Value next i for i = 0 to 18 sMsg = sMsg + "Col" + CStr(i+1) + " : " + tCol(i) + " " next i msgbox sMsg Un truc dans le genre doit l'faire, tu peux mettre la ligne sMsg directement dans la premiere boucle si tu veux. [%sig%]

[Raziel]

Salut, essaie ceci im TabVal (18) as stringDim Colonne as integerFor Colonne := 1 to 19TabVal(Colonne-1) = xlsSheet.Cells(2,Colonne).Valuenext->Ensuite pour l'affichage im Buffer as stringBuffer = ""For Colonne := 0 to ubound(TabVal)if Buffer = "" thenBuffer = "Col" + cstr(Colonne) + " : " + TabCal(Colonne)elseBuffer = Buffer + " " + "Col" + cstr(Colonne) + " : " + TabCal(Colonne)end ifnextmsgbox Buffer

[Sylvain]

2 réponses pour le prix d'une ![%sig%]

[Raziel]

Et en plus, c'était synchro.... )

[sophie]

merci pour toutes les réponses que vous m'avez donné.Je voulais aussi savoir s'il existe sous Notes, (en script), une fonction permettant de retourner le nombres de colonnes totales d'une vue donnée....Merci

[Raziel]

Essai ceci notesView.ColumnCount