bonsoir,
Guru du soir Espoir !
voici ce que j'aimerai obtenir :
dans un formulaire, j'ai un objet "image".
à coté de cet onglet "image" j'ai 2 boutons "suivante" et
"precedente".
sous l'image, j'ai un "label" qui contiend le nom de l'image.
grace à ces 2 boutons, je voudrais donc parcourir
un ensemble de s'images (100x100). qui sont stockées
pour le moment dans un repertoire.
comment je dois faire pour pouvoir "balayer" toutes les images
qui se trouve dans le meme dossier que mon classeur.
enfin, une fois que j'ai trouver la bonne image, je souhaite
"enregistrer" ce formulaire, afin qu'a la prochaine ouverture
l'image précédament choisie soit à nouveau.
voila, c'est un peu "fouilli" mais, toutes les remarques seront
les biens venues !
José
bonsoir,
Guru du soir Espoir !
voici ce que j'aimerai obtenir :
dans un formulaire, j'ai un objet "image".
à coté de cet onglet "image" j'ai 2 boutons "suivante" et
"precedente".
sous l'image, j'ai un "label" qui contiend le nom de l'image.
grace à ces 2 boutons, je voudrais donc parcourir
un ensemble de s'images (100x100). qui sont stockées
pour le moment dans un repertoire.
comment je dois faire pour pouvoir "balayer" toutes les images
qui se trouve dans le meme dossier que mon classeur.
enfin, une fois que j'ai trouver la bonne image, je souhaite
"enregistrer" ce formulaire, afin qu'a la prochaine ouverture
l'image précédament choisie soit à nouveau.
voila, c'est un peu "fouilli" mais, toutes les remarques seront
les biens venues !
José
bonsoir,
Guru du soir Espoir !
voici ce que j'aimerai obtenir :
dans un formulaire, j'ai un objet "image".
à coté de cet onglet "image" j'ai 2 boutons "suivante" et
"precedente".
sous l'image, j'ai un "label" qui contiend le nom de l'image.
grace à ces 2 boutons, je voudrais donc parcourir
un ensemble de s'images (100x100). qui sont stockées
pour le moment dans un repertoire.
comment je dois faire pour pouvoir "balayer" toutes les images
qui se trouve dans le meme dossier que mon classeur.
enfin, une fois que j'ai trouver la bonne image, je souhaite
"enregistrer" ce formulaire, afin qu'a la prochaine ouverture
l'image précédament choisie soit à nouveau.
voila, c'est un peu "fouilli" mais, toutes les remarques seront
les biens venues !
José
bonjour Alfred,
voici un exemple avec un SpinButton :
isabelle
Alfred WALLACE a écrit :
> bonsoir,
> Guru du soir Espoir !
> voici ce que j'aimerai obtenir :
> dans un formulaire, j'ai un objet "image".
> à coté de cet onglet "image" j'ai 2 boutons "suivante" et
> "precedente".
> sous l'image, j'ai un "label" qui contiend le nom de l'image.
>
> grace à ces 2 boutons, je voudrais donc parcourir
> un ensemble de s'images (100x100). qui sont stockées
> pour le moment dans un repertoire.
>
> comment je dois faire pour pouvoir "balayer" toutes les images
> qui se trouve dans le meme dossier que mon classeur.
>
> enfin, une fois que j'ai trouver la bonne image, je souhaite
> "enregistrer" ce formulaire, afin qu'a la prochaine ouverture
> l'image précédament choisie soit à nouveau.
>
> voila, c'est un peu "fouilli" mais, toutes les remarques seront
> les biens venues !
>
> José
>
bonjour Alfred,
voici un exemple avec un SpinButton :
isabelle
Alfred WALLACE a écrit :
> bonsoir,
> Guru du soir Espoir !
> voici ce que j'aimerai obtenir :
> dans un formulaire, j'ai un objet "image".
> à coté de cet onglet "image" j'ai 2 boutons "suivante" et
> "precedente".
> sous l'image, j'ai un "label" qui contiend le nom de l'image.
>
> grace à ces 2 boutons, je voudrais donc parcourir
> un ensemble de s'images (100x100). qui sont stockées
> pour le moment dans un repertoire.
>
> comment je dois faire pour pouvoir "balayer" toutes les images
> qui se trouve dans le meme dossier que mon classeur.
>
> enfin, une fois que j'ai trouver la bonne image, je souhaite
> "enregistrer" ce formulaire, afin qu'a la prochaine ouverture
> l'image précédament choisie soit à nouveau.
>
> voila, c'est un peu "fouilli" mais, toutes les remarques seront
> les biens venues !
>
> José
>
bonjour Alfred,
voici un exemple avec un SpinButton :
isabelle
Alfred WALLACE a écrit :
> bonsoir,
> Guru du soir Espoir !
> voici ce que j'aimerai obtenir :
> dans un formulaire, j'ai un objet "image".
> à coté de cet onglet "image" j'ai 2 boutons "suivante" et
> "precedente".
> sous l'image, j'ai un "label" qui contiend le nom de l'image.
>
> grace à ces 2 boutons, je voudrais donc parcourir
> un ensemble de s'images (100x100). qui sont stockées
> pour le moment dans un repertoire.
>
> comment je dois faire pour pouvoir "balayer" toutes les images
> qui se trouve dans le meme dossier que mon classeur.
>
> enfin, une fois que j'ai trouver la bonne image, je souhaite
> "enregistrer" ce formulaire, afin qu'a la prochaine ouverture
> l'image précédament choisie soit à nouveau.
>
> voila, c'est un peu "fouilli" mais, toutes les remarques seront
> les biens venues !
>
> José
>
Bz et pardon Isabelle, il manquait un EndIf.
"isabelle" a écrit dans le message de
news:ueY%bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
End If
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Subisabelle
Alfred WALLACE a écrit :bonsoir,
Guru du soir Espoir !
voici ce que j'aimerai obtenir :
dans un formulaire, j'ai un objet "image".
à coté de cet onglet "image" j'ai 2 boutons "suivante" et
"precedente".
sous l'image, j'ai un "label" qui contiend le nom de l'image.
grace à ces 2 boutons, je voudrais donc parcourir
un ensemble de s'images (100x100). qui sont stockées
pour le moment dans un repertoire.
comment je dois faire pour pouvoir "balayer" toutes les images
qui se trouve dans le meme dossier que mon classeur.
enfin, une fois que j'ai trouver la bonne image, je souhaite
"enregistrer" ce formulaire, afin qu'a la prochaine ouverture
l'image précédament choisie soit à nouveau.
voila, c'est un peu "fouilli" mais, toutes les remarques seront
les biens venues !
José
Bz et pardon Isabelle, il manquait un EndIf.
"isabelle" <i@v> a écrit dans le message de
news:ueY%23nfsSJHA.1172@TK2MSFTNGP03.phx.gbl...
bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
End If
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
Alfred WALLACE a écrit :
bonsoir,
Guru du soir Espoir !
voici ce que j'aimerai obtenir :
dans un formulaire, j'ai un objet "image".
à coté de cet onglet "image" j'ai 2 boutons "suivante" et
"precedente".
sous l'image, j'ai un "label" qui contiend le nom de l'image.
grace à ces 2 boutons, je voudrais donc parcourir
un ensemble de s'images (100x100). qui sont stockées
pour le moment dans un repertoire.
comment je dois faire pour pouvoir "balayer" toutes les images
qui se trouve dans le meme dossier que mon classeur.
enfin, une fois que j'ai trouver la bonne image, je souhaite
"enregistrer" ce formulaire, afin qu'a la prochaine ouverture
l'image précédament choisie soit à nouveau.
voila, c'est un peu "fouilli" mais, toutes les remarques seront
les biens venues !
José
Bz et pardon Isabelle, il manquait un EndIf.
"isabelle" a écrit dans le message de
news:ueY%bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
End If
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Subisabelle
Alfred WALLACE a écrit :bonsoir,
Guru du soir Espoir !
voici ce que j'aimerai obtenir :
dans un formulaire, j'ai un objet "image".
à coté de cet onglet "image" j'ai 2 boutons "suivante" et
"precedente".
sous l'image, j'ai un "label" qui contiend le nom de l'image.
grace à ces 2 boutons, je voudrais donc parcourir
un ensemble de s'images (100x100). qui sont stockées
pour le moment dans un repertoire.
comment je dois faire pour pouvoir "balayer" toutes les images
qui se trouve dans le meme dossier que mon classeur.
enfin, une fois que j'ai trouver la bonne image, je souhaite
"enregistrer" ce formulaire, afin qu'a la prochaine ouverture
l'image précédament choisie soit à nouveau.
voila, c'est un peu "fouilli" mais, toutes les remarques seront
les biens venues !
José
bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count The n
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Va lue))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count The n
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Va lue))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count The n
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Va lue))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Isabelle, et merci pour ton exemple.
te serait il possible, de le commenter un peu ?
je suis loin d'être à l'aise dans tout çà.
je supose que je doit faire un userform dans le vbe ?
par contre je ne vois pas comment créer le spin button.
merci
José
On 20 nov, 05:24, isabelle wrote:bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Isabelle, et merci pour ton exemple.
te serait il possible, de le commenter un peu ?
je suis loin d'être à l'aise dans tout çà.
je supose que je doit faire un userform dans le vbe ?
par contre je ne vois pas comment créer le spin button.
merci
José
On 20 nov, 05:24, isabelle <i@v> wrote:
bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Isabelle, et merci pour ton exemple.
te serait il possible, de le commenter un peu ?
je suis loin d'être à l'aise dans tout çà.
je supose que je doit faire un userform dans le vbe ?
par contre je ne vois pas comment créer le spin button.
merci
José
On 20 nov, 05:24, isabelle wrote:bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Isabelle, et merci pour ton exemple.
te serait il possible, de le commenter un peu ?
je suis loin d'être à l'aise dans tout çà.
je supose que je doit faire un userform dans le vbe ?
par contre je ne vois pas comment créer le spin button.
merci
José
On 20 nov, 05:24, isabelle wrote:bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Isabelle, et merci pour ton exemple.
te serait il possible, de le commenter un peu ?
je suis loin d'être à l'aise dans tout çà.
je supose que je doit faire un userform dans le vbe ?
par contre je ne vois pas comment créer le spin button.
merci
José
On 20 nov, 05:24, isabelle <i@v> wrote:
bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Isabelle, et merci pour ton exemple.
te serait il possible, de le commenter un peu ?
je suis loin d'être à l'aise dans tout çà.
je supose que je doit faire un userform dans le vbe ?
par contre je ne vois pas comment créer le spin button.
merci
José
On 20 nov, 05:24, isabelle wrote:bonjour Alfred,
voici un exemple avec un SpinButton :
Private Sub SpinButton1_Change()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Dim MyArray()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("c:zzx")
Set Files = Dossier.Files
If Files.Count <> 0 Then
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
For Each File In Files
x = x + 1
ReDim Preserve MyArray(x)
MyArray(x) = File
Next
End If
ActiveSheet.Image1.Picture = LoadPicture(MyArray(SpinButton1.Value))
ActiveSheet.TextBox1 = MyArray(SpinButton1.Value)
End Sub
isabelle
bonjour Fredo,
je n'ai pas mit de End If
vue que j'avais mit sur une seul ligne,
probablement sur deux lors de la copie..
bonjour Fredo,
je n'ai pas mit de End If
vue que j'avais mit sur une seul ligne,
probablement sur deux lors de la copie..
bonjour Fredo,
je n'ai pas mit de End If
vue que j'avais mit sur une seul ligne,
probablement sur deux lors de la copie..
"isabelle" a écrit dans le message de
news:bonjour Fredo,
je n'ai pas mit de End If
vue que j'avais mit sur une seul ligne,
probablement sur deux lors de la copie..
Milles excuses, je suis impardonnable d'avoir pu douté de toi.!
"isabelle" <i@v> a écrit dans le message de
news:OIlMdPtSJHA.5568@TK2MSFTNGP05.phx.gbl...
bonjour Fredo,
je n'ai pas mit de End If
vue que j'avais mit sur une seul ligne,
probablement sur deux lors de la copie..
Milles excuses, je suis impardonnable d'avoir pu douté de toi.!
"isabelle" a écrit dans le message de
news:bonjour Fredo,
je n'ai pas mit de End If
vue que j'avais mit sur une seul ligne,
probablement sur deux lors de la copie..
Milles excuses, je suis impardonnable d'avoir pu douté de toi.!
ps/
les 3 controls sur la Feuil1 proviennent de la barre d'outils Control
et la macro est sur la page code de la Feuil1
tu y accede en fesant un click droit sur l'onglet Feuil1 et selectionner
Visualiser le code
isabelle
ps/
les 3 controls sur la Feuil1 proviennent de la barre d'outils Control
et la macro est sur la page code de la Feuil1
tu y accede en fesant un click droit sur l'onglet Feuil1 et selectionner
Visualiser le code
isabelle
ps/
les 3 controls sur la Feuil1 proviennent de la barre d'outils Control
et la macro est sur la page code de la Feuil1
tu y accede en fesant un click droit sur l'onglet Feuil1 et selectionner
Visualiser le code
isabelle
Set Dossier = fso.GetFolder("mondossier-qui-va-bien")
'est-ce que je pourrais utiliser ici : chemin = ActiveWorkbook.Path
'pour être dans le dossier du classeur.
' la je ne comprend pas exactement ce que tu as voulu faire ici
car on sort de la proc
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
Parcontre, je me demande pourquoi tu recharge le tableau à chaque fois
que
le click sur le spin ?
Set Dossier = fso.GetFolder("mondossier-qui-va-bien")
'est-ce que je pourrais utiliser ici : chemin = ActiveWorkbook.Path
'pour être dans le dossier du classeur.
' la je ne comprend pas exactement ce que tu as voulu faire ici
car on sort de la proc
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
Parcontre, je me demande pourquoi tu recharge le tableau à chaque fois
que
le click sur le spin ?
Set Dossier = fso.GetFolder("mondossier-qui-va-bien")
'est-ce que je pourrais utiliser ici : chemin = ActiveWorkbook.Path
'pour être dans le dossier du classeur.
' la je ne comprend pas exactement ce que tu as voulu faire ici
car on sort de la proc
If SpinButton1.Value = 0 Or SpinButton1.Value > Files.Count Then
Exit Sub
Parcontre, je me demande pourquoi tu recharge le tableau à chaque fois
que
le click sur le spin ?