Dim i As String
Dim data As String
data = Sheets("data" & i)
i n'as aucune valeur donc
Dim i As String
Dim data As String
If OptionButton1 = True Then i = l1
If OptionButton2 = True Then i = l2
If OptionButton3 = True Then i = l3
data = Sheets("data" & i)
mais ensuite que fais tu de data??
@+
Thierry
"papyty" <papyty@yahoo.fr> a écrit dans le message de news:
ONzmkoegDHA.3056@tk2msftngp13.phx.gbl...
> Salut Wallca
> Essai
>
> Dim i As String
> Dim data As String
> data = Sheets("data" & i)
> If OptionButton1 = True Then i = l1
> If OptionButton2 = True Then i = l2
> If OptionButton3 = True Then i = l3
>
> @+
> Thierry
>
> "Wallace" <cbolmont@ch-dreux.fr> a écrit dans le message de news:
> bkpn95$qp0$1@s1.read.news.oleane.net...
> > Salut à tous
> >
> > Voici un petit script que j'ai écrit mais il doit y avoir des erreur car
> il
> > ne fonctionne pas :
> >
> > Dim i As String
> > Dim data As String
> > data = Sheets("data" & i)
> > If OptionButton1 = True Then
> > i = l1
> > ElseIf OptionButton2 = True Then
> > i = l2
> > ElseIf OptionButton3 = True Then
> > i = l3
> > End If
> > Je souhaite que la valeur i soit remplacée par l1 l2 ou l3 en fonction
du
> > bouton d'option activé; pour aller sur la bonne feuille et entrer des
> > données.
> >
> >
> > Merci à ceux qui m'apporterons des réponses....
> >
> >
>
>
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
Jacky
Salut papyty
mais ensuite que fais tu de data??
ben, il va afficher la feuille "data11" ou "data12" ou data13"(c'etait le but ,non?) et boire un coup si cela fonctionne. JJ
"papyty" a écrit dans le message news: #
Je n'avais controlé que les If mais
Dim i As String Dim data As String data = Sheets("data" & i)
i n'as aucune valeur donc
Dim i As String Dim data As String If OptionButton1 = True Then i = l1 If OptionButton2 = True Then i = l2 If OptionButton3 = True Then i = l3 data = Sheets("data" & i)
mais ensuite que fais tu de data?? @+ Thierry
"papyty" a écrit dans le message de news:
Salut Wallca Essai
Dim i As String Dim data As String data = Sheets("data" & i) If OptionButton1 = True Then i = l1 If OptionButton2 = True Then i = l2 If OptionButton3 = True Then i = l3
@+ Thierry
"Wallace" a écrit dans le message de news: bkpn95$qp0$
Salut à tous
Voici un petit script que j'ai écrit mais il doit y avoir des erreur car
il
ne fonctionne pas :
Dim i As String Dim data As String data = Sheets("data" & i) If OptionButton1 = True Then i = l1 ElseIf OptionButton2 = True Then i = l2 ElseIf OptionButton3 = True Then i = l3 End If Je souhaite que la valeur i soit remplacée par l1 l2 ou l3 en fonction du
bouton d'option activé; pour aller sur la bonne feuille et entrer des données.
Merci à ceux qui m'apporterons des réponses....
Salut papyty
mais ensuite que fais tu de data??
ben, il va afficher la feuille "data11" ou "data12" ou data13"(c'etait le
but ,non?)
et boire un coup si cela fonctionne.
JJ
"papyty" <papyty@yahoo.fr> a écrit dans le message news:
#KENqQfgDHA.2164@TK2MSFTNGP12.phx.gbl...
Je n'avais controlé que les If mais
Dim i As String
Dim data As String
data = Sheets("data" & i)
i n'as aucune valeur donc
Dim i As String
Dim data As String
If OptionButton1 = True Then i = l1
If OptionButton2 = True Then i = l2
If OptionButton3 = True Then i = l3
data = Sheets("data" & i)
mais ensuite que fais tu de data??
@+
Thierry
"papyty" <papyty@yahoo.fr> a écrit dans le message de news:
ONzmkoegDHA.3056@tk2msftngp13.phx.gbl...
Salut Wallca
Essai
Dim i As String
Dim data As String
data = Sheets("data" & i)
If OptionButton1 = True Then i = l1
If OptionButton2 = True Then i = l2
If OptionButton3 = True Then i = l3
@+
Thierry
"Wallace" <cbolmont@ch-dreux.fr> a écrit dans le message de news:
bkpn95$qp0$1@s1.read.news.oleane.net...
Salut à tous
Voici un petit script que j'ai écrit mais il doit y avoir des erreur
car
il
ne fonctionne pas :
Dim i As String
Dim data As String
data = Sheets("data" & i)
If OptionButton1 = True Then
i = l1
ElseIf OptionButton2 = True Then
i = l2
ElseIf OptionButton3 = True Then
i = l3
End If
Je souhaite que la valeur i soit remplacée par l1 l2 ou l3 en fonction
du
bouton d'option activé; pour aller sur la bonne feuille et entrer des
données.
ben, il va afficher la feuille "data11" ou "data12" ou data13"(c'etait le but ,non?) et boire un coup si cela fonctionne. JJ
"papyty" a écrit dans le message news: #
Je n'avais controlé que les If mais
Dim i As String Dim data As String data = Sheets("data" & i)
i n'as aucune valeur donc
Dim i As String Dim data As String If OptionButton1 = True Then i = l1 If OptionButton2 = True Then i = l2 If OptionButton3 = True Then i = l3 data = Sheets("data" & i)
mais ensuite que fais tu de data?? @+ Thierry
"papyty" a écrit dans le message de news:
Salut Wallca Essai
Dim i As String Dim data As String data = Sheets("data" & i) If OptionButton1 = True Then i = l1 If OptionButton2 = True Then i = l2 If OptionButton3 = True Then i = l3
@+ Thierry
"Wallace" a écrit dans le message de news: bkpn95$qp0$
Salut à tous
Voici un petit script que j'ai écrit mais il doit y avoir des erreur car
il
ne fonctionne pas :
Dim i As String Dim data As String data = Sheets("data" & i) If OptionButton1 = True Then i = l1 ElseIf OptionButton2 = True Then i = l2 ElseIf OptionButton3 = True Then i = l3 End If Je souhaite que la valeur i soit remplacée par l1 l2 ou l3 en fonction du
bouton d'option activé; pour aller sur la bonne feuille et entrer des données.
