Bonjour,
Quelqu'un peut-il essayer de comprendre ce qui ne va pas=20
dans ce programme ?
J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli=20
avec des chiffres de 1 =E0 20.
Je souhaiterais ensuite =E9crire =E0 droite de chaque valeur=20
de retour (X) une *.
Le probl=E8me est que je n'ai cette =E9toile que pour une=20
seule occurence du chiffre saisi.
Y =3D 1
X =3D InputBox("Saisissez un chiffre entre 1 et 20 ")
While Worksheets(1).Cells(X, Y).Value <> ""
For Y =3D 1 To 2
Y =3D Y + 1
If Worksheets(1).Cells(X, Y).Value =3D "" Then
Worksheets(1).Cells(X, Y).Value =3D "*"
End If
Next Y
Wend
J'ai essay=E9 de redimensionner le tableau, entre autres,=20
mais cela ne marche pas.
D'avance merci =E0 ceux ou celles qui pourront=20
m'aider.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Lepage Stephane
"Jean-mi" a écrit dans le message de news:08da01c3afa2$0a075000$ Bonjour, Quelqu'un peut-il essayer de comprendre ce qui ne va pas dans ce programme ? J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli avec des chiffres de 1 à 20. Je souhaiterais ensuite écrire à droite de chaque valeur de retour (X) une *. Le problème est que je n'ai cette étoile que pour une seule occurence du chiffre saisi. Y = 1 X = InputBox("Saisissez un chiffre entre 1 et 20 ") While Worksheets(1).Cells(X, Y).Value <> "" For Y = 1 To 2 Y = Y + 1 If Worksheets(1).Cells(X, Y).Value = "" Then Worksheets(1).Cells(X, Y).Value = "*" End If Next Y Wend J'ai essayé de redimensionner le tableau, entre autres, mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront m'aider.
Jean-michel
Bonjour , ton programme fonctionne! dans la colonne gauche j'ai mis les valeurs de 1 à 20 lorsque je choisis une valeur ds ton input box une étoile s'inscrit à la ligne de numéro correspondant. Pour faire cela tu peux sélectionner la colonne b en entier , taper * et CTRLEntée tu en aura sur toute la colonne. Bon je ne me moque pas mais toi tu peux car je ne comprends ni l'objectif ( yenaun c'est sur) ni le probleme . Explique ton but réel et ce sera plus clair pour en déterminer le moyen. (Je suis dur à la comprenette). a tout de suite Steph
"Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08da01c3afa2$0a075000$a001280a@phx.gbl...
Bonjour,
Quelqu'un peut-il essayer de comprendre ce qui ne va pas
dans ce programme ?
J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli
avec des chiffres de 1 à 20.
Je souhaiterais ensuite écrire à droite de chaque valeur
de retour (X) une *.
Le problème est que je n'ai cette étoile que pour une
seule occurence du chiffre saisi.
Y = 1
X = InputBox("Saisissez un chiffre entre 1 et 20 ")
While Worksheets(1).Cells(X, Y).Value <> ""
For Y = 1 To 2
Y = Y + 1
If Worksheets(1).Cells(X, Y).Value = "" Then
Worksheets(1).Cells(X, Y).Value = "*"
End If
Next Y
Wend
J'ai essayé de redimensionner le tableau, entre autres,
mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront
m'aider.
Jean-michel
Bonjour ,
ton programme fonctionne!
dans la colonne
gauche
j'ai mis les valeurs de 1 à 20
lorsque je choisis une valeur
ds ton input box
une étoile
s'inscrit à la ligne de numéro correspondant.
Pour faire cela tu peux sélectionner la colonne b
en entier , taper * et CTRLEntée tu en aura sur toute la colonne.
Bon je ne me moque pas mais toi tu peux car je ne comprends ni l'objectif
( yenaun c'est sur) ni
le probleme .
Explique ton but réel et ce sera plus clair pour en déterminer le moyen.
(Je suis dur à la comprenette).
a tout de suite
Steph
"Jean-mi" a écrit dans le message de news:08da01c3afa2$0a075000$ Bonjour, Quelqu'un peut-il essayer de comprendre ce qui ne va pas dans ce programme ? J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli avec des chiffres de 1 à 20. Je souhaiterais ensuite écrire à droite de chaque valeur de retour (X) une *. Le problème est que je n'ai cette étoile que pour une seule occurence du chiffre saisi. Y = 1 X = InputBox("Saisissez un chiffre entre 1 et 20 ") While Worksheets(1).Cells(X, Y).Value <> "" For Y = 1 To 2 Y = Y + 1 If Worksheets(1).Cells(X, Y).Value = "" Then Worksheets(1).Cells(X, Y).Value = "*" End If Next Y Wend J'ai essayé de redimensionner le tableau, entre autres, mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront m'aider.
Jean-michel
Bonjour , ton programme fonctionne! dans la colonne gauche j'ai mis les valeurs de 1 à 20 lorsque je choisis une valeur ds ton input box une étoile s'inscrit à la ligne de numéro correspondant. Pour faire cela tu peux sélectionner la colonne b en entier , taper * et CTRLEntée tu en aura sur toute la colonne. Bon je ne me moque pas mais toi tu peux car je ne comprends ni l'objectif ( yenaun c'est sur) ni le probleme . Explique ton but réel et ce sera plus clair pour en déterminer le moyen. (Je suis dur à la comprenette). a tout de suite Steph
Lepage Stephane
"Jean-mi" a écrit dans le message de news:08da01c3afa2$0a075000$ Bonjour, Quelqu'un peut-il essayer de comprendre ce qui ne va pas dans ce programme ? J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli avec des chiffres de 1 à 20. Je souhaiterais ensuite écrire à droite de chaque valeur de retour (X) une *. Le problème est que je n'ai cette étoile que pour une seule occurence du chiffre saisi. Y = 1 X = InputBox("Saisissez un chiffre entre 1 et 20 ") While Worksheets(1).Cells(X, Y).Value <> "" For Y = 1 To 2 Y = Y + 1 If Worksheets(1).Cells(X, Y).Value = "" Then Worksheets(1).Cells(X, Y).Value = "*" End If Next Y Wend J'ai essayé de redimensionner le tableau, entre autres, mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront m'aider.
Jean-michel
"Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08da01c3afa2$0a075000$a001280a@phx.gbl...
Bonjour,
Quelqu'un peut-il essayer de comprendre ce qui ne va pas
dans ce programme ?
J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli
avec des chiffres de 1 à 20.
Je souhaiterais ensuite écrire à droite de chaque valeur
de retour (X) une *.
Le problème est que je n'ai cette étoile que pour une
seule occurence du chiffre saisi.
Y = 1
X = InputBox("Saisissez un chiffre entre 1 et 20 ")
While Worksheets(1).Cells(X, Y).Value <> ""
For Y = 1 To 2
Y = Y + 1
If Worksheets(1).Cells(X, Y).Value = "" Then
Worksheets(1).Cells(X, Y).Value = "*"
End If
Next Y
Wend
J'ai essayé de redimensionner le tableau, entre autres,
mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront
m'aider.
"Jean-mi" a écrit dans le message de news:08da01c3afa2$0a075000$ Bonjour, Quelqu'un peut-il essayer de comprendre ce qui ne va pas dans ce programme ? J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli avec des chiffres de 1 à 20. Je souhaiterais ensuite écrire à droite de chaque valeur de retour (X) une *. Le problème est que je n'ai cette étoile que pour une seule occurence du chiffre saisi. Y = 1 X = InputBox("Saisissez un chiffre entre 1 et 20 ") While Worksheets(1).Cells(X, Y).Value <> "" For Y = 1 To 2 Y = Y + 1 If Worksheets(1).Cells(X, Y).Value = "" Then Worksheets(1).Cells(X, Y).Value = "*" End If Next Y Wend J'ai essayé de redimensionner le tableau, entre autres, mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront m'aider.
Jean-michel
Lepage Stephane
"Lepage Stephane" a écrit dans le message de news:3fbd282f$1$17093$
"Jean-mi" a écrit dans le message de news:08da01c3afa2$0a075000$ Bonjour, Quelqu'un peut-il essayer de comprendre ce qui ne va pas dans ce programme ? J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli avec des chiffres de 1 à 20. Je souhaiterais ensuite écrire à droite de chaque valeur de retour (X) une *. Le problème est que je n'ai cette étoile que pour une seule occurence du chiffre saisi. Y = 1 X = InputBox("Saisissez un chiffre entre 1 et 20 ") While Worksheets(1).Cells(X, Y).Value <> "" For Y = 1 To 2 Y = Y + 1 If Worksheets(1).Cells(X, Y).Value = "" Then Worksheets(1).Cells(X, Y).Value = "*" End If Next Y Wend J'ai essayé de redimensionner le tableau, entre autres, mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront m'aider.
Jean-michel Je te l'aienvoyé en perso
"Lepage Stephane" <cocosteph@free.fr> a écrit dans le message de
news:3fbd282f$1$17093$626a54ce@news.free.fr...
"Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08da01c3afa2$0a075000$a001280a@phx.gbl...
Bonjour,
Quelqu'un peut-il essayer de comprendre ce qui ne va pas
dans ce programme ?
J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli
avec des chiffres de 1 à 20.
Je souhaiterais ensuite écrire à droite de chaque valeur
de retour (X) une *.
Le problème est que je n'ai cette étoile que pour une
seule occurence du chiffre saisi.
Y = 1
X = InputBox("Saisissez un chiffre entre 1 et 20 ")
While Worksheets(1).Cells(X, Y).Value <> ""
For Y = 1 To 2
Y = Y + 1
If Worksheets(1).Cells(X, Y).Value = "" Then
Worksheets(1).Cells(X, Y).Value = "*"
End If
Next Y
Wend
J'ai essayé de redimensionner le tableau, entre autres,
mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront
m'aider.
"Lepage Stephane" a écrit dans le message de news:3fbd282f$1$17093$
"Jean-mi" a écrit dans le message de news:08da01c3afa2$0a075000$ Bonjour, Quelqu'un peut-il essayer de comprendre ce qui ne va pas dans ce programme ? J'ai fait un tableau Tableau(1 To 20, Y) que j'ai rempli avec des chiffres de 1 à 20. Je souhaiterais ensuite écrire à droite de chaque valeur de retour (X) une *. Le problème est que je n'ai cette étoile que pour une seule occurence du chiffre saisi. Y = 1 X = InputBox("Saisissez un chiffre entre 1 et 20 ") While Worksheets(1).Cells(X, Y).Value <> "" For Y = 1 To 2 Y = Y + 1 If Worksheets(1).Cells(X, Y).Value = "" Then Worksheets(1).Cells(X, Y).Value = "*" End If Next Y Wend J'ai essayé de redimensionner le tableau, entre autres, mais cela ne marche pas.
D'avance merci à ceux ou celles qui pourront m'aider.
