Comment lire un ensemble de cellules dont le nombre varie

Questions sur de la programmation avancée avec WinTask
rbp
Posts: 1
Joined: 24 Feb 2016, 14:12

Comment lire un ensemble de cellules dont le nombre varie

Postby rbp » 24 Feb 2016, 14:15

Bonjour,

Dans une boîte de dialogue, je propose à l'utilisateur une rangée de cellules Excel qui doivent ensuite être lues par ReadExcel. Comment je peux écrire la syntaxe de ReadExcel pour lire de la cellule i à la cellule j, i et j étant spécifiés dans la boîte de dialogue ?

Support
Posts: 55
Joined: 11 Feb 2016, 09:26

Re: Comment lire un ensemble de cellules dont le nombre varie

Postby Support » 26 Feb 2016, 10:44

Bonjour,

Voici un exemple de code avec des commentaires pour que vous puissiez adapter à votre environnement :

Code: Select all

Dim data$(100)
'Nom du fichier excel à lire
fichierexcel$="info.xlsx"
'Définition de la boîte de dialogue
BEGINDIALOG Dialog 545, 320, 350, 220
CAPTION "Saisissez les numéros de ligne de début et de fin"
   EDITTEXT i$, 168, 24, 52, 15
   TEXT "Numéro ligne début :", 33, 25
   EDITTEXT j$, 172, 67, 63, 17
   TEXT "Numéro ligne fin : ", 41, 68
   PUSHBUTTON "&Annuler", Button1, 207, 140, 75, 23
   DEFPUSHBUTTON "&OK", btnOK, 51, 141, 75, 23
ENDDIALOG

'Affichage de la boîte de dialogue
CallDialog Dialog
'Vérification des données saisies
msgbox(i$)
msgbox(j$)
'Lecture du fichier excel pour la colonne A du numéro de ligne de début au numéro de ligne de fin
ReadExcel(fichierexcel$,"A"+i$+":A"+j$,data$())
'Affichage d'un élément pour vérification
msgbox(data$(2))


Return to “Scripts complexes avec WinTask”

Who is online

Users browsing this forum: No registered users and 2 guests