Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel c'est simple mais ....helllp

c'est simple mais ....helllp

7 réponses
Avatar
msillienne
bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait faire=20
=E7a :

If checkbox1.Value =3D True Then
AddFeuille =3D "feuil1"
End If
If checkbox2.Value =3D True Then
AddFeuille =3D AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cenc=E9 trouver dans AddFeuille =3D("feuil1","feuil2")
mais il ne me garde pas les guillemets "" je trouve =E7a:
AddFeuille =3D"feuil1,feuil2" comment faire ????
mer=E7i
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Nicolas B.
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de caractères ; les
deuxième et troisième sont là pour afficher un guillemet dans la chaîne de
caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment claires :-)


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait faire
ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille =("feuil1","feuil2")
mais il ne me garde pas les guillemets "" je trouve ça:
AddFeuille ="feuil1,feuil2" comment faire ????
merçi


Avatar
msillienne
merci ca répond a ma question mais ....
maintenant ma variable AddFeuille =""feuil1","feuil2""
alors que le guillemet de début et de fin je n'en veux
pas
AddFeuille ="feuil1","feuil2"
et ça c'est possible ;-)





---Message d'origine-----
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de
caractères ; les

deuxième et troisième sont là pour afficher un guillemet
dans la chaîne de

caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment
claires :-)



A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait faire
ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille =
("feuil1","feuil2")


mais il ne me garde pas les guillemets "" je trouve ça:
AddFeuille ="feuil1,feuil2" comment faire ????
merçi



.




Avatar
Nicolas B.
Le code ci-dessous me renvoie pourtant bien "feuil1","feuil2" :

Sub test()
addfeuille = """feuil1"""
addfeuille + "," + """feuil2"""
MsgBox addfeuille
addfeuille.select
End Sub

Le problème ne vient pas de là, mais de la méthode à utiliser pour
sélectionner les feuilles. Pour sélectionner tu ne peux pas remplacer dans
VBA :
Sheets(Array("feuil1","feuil2")).Select
par
Sheets(Array(AddFeuille)).Select
avec Addfeuille contenant "feuil1","feuil2".


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


merci ca répond a ma question mais ....
maintenant ma variable AddFeuille =""feuil1","feuil2""
alors que le guillemet de début et de fin je n'en veux
pas
AddFeuille ="feuil1","feuil2"
et ça c'est possible ;-)





---Message d'origine-----
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de caractères ; les
deuxième et troisième sont là pour afficher un guillemet dans la
chaîne de caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment claires :-)


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait faire
ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille = ("feuil1","feuil2")
mais il ne me garde pas les guillemets "" je trouve ça:
AddFeuille ="feuil1,feuil2" comment faire ????
merçi



.





Avatar
michdenis
Bonsoir msillienne,

Et si tu essayais quelque chose dans le genre :


Dim AddFeuille(), A As Integer

If checkbox1.Value = True Then
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil1"
End If
If checkbox2.Value = True Then
A = A + 1
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil2"
End If

For Each F In AddFeuille
Sheets(F).Select Replace:úlse
Next

With ActiveWindow.SelectedSheets
'les opérations à effectuer sur le groupe de feuille
End With



Salutations!





"msillienne" a écrit dans le message de news:033401c3d4a4$78555850$
merci ca répond a ma question mais ....
maintenant ma variable AddFeuille =""feuil1","feuil2""
alors que le guillemet de début et de fin je n'en veux
pas
AddFeuille ="feuil1","feuil2"
et ça c'est possible ;-)





---Message d'origine-----
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de
caractères ; les

deuxième et troisième sont là pour afficher un guillemet
dans la chaîne de

caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment
claires :-)



A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait faire
ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille ("feuil1","feuil2")
mais il ne me garde pas les guillemets "" je trouve ça:
AddFeuille ="feuil1,feuil2" comment faire ????
merçi



.




Avatar
docmarti
Pour compléter, tu peux aussi utiliser la syntaxe

Sheets(Array("feuil1", "feuil2")).Select

ou encore

Sheets(AddFeuille).Select

à la condition que AddFeuille contienne un tableau
créé comme dans l'exemple de michdenis
ou encore créé ainsi par la commande Array()
AddFeuille = Array("feuil1", "feuil2")

Sheets(AddFeuille).Select



"michdenis" wrote in message
news:umcW$
Bonsoir msillienne,

Et si tu essayais quelque chose dans le genre :


Dim AddFeuille(), A As Integer

If checkbox1.Value = True Then
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil1"
End If
If checkbox2.Value = True Then
A = A + 1
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil2"
End If

For Each F In AddFeuille
Sheets(F).Select Replace:úlse
Next

With ActiveWindow.SelectedSheets
'les opérations à effectuer sur le groupe de feuille
End With



Salutations!





"msillienne" a écrit dans le message
de news:033401c3d4a4$78555850$

merci ca répond a ma question mais ....
maintenant ma variable AddFeuille =""feuil1","feuil2""
alors que le guillemet de début et de fin je n'en veux
pas
AddFeuille ="feuil1","feuil2"
et ça c'est possible ;-)





---Message d'origine-----
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de
caractères ; les

deuxième et troisième sont là pour afficher un guillemet
dans la chaîne de

caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment
claires :-)



A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait faire
ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille > ("feuil1","feuil2")
mais il ne me garde pas les guillemets "" je trouve ça:
AddFeuille ="feuil1,feuil2" comment faire ????
merçi



.








Avatar
msillienne
Merci ;-)
ça maaaaarche capitaine ça maaaaaaaaarche

-----Message d'origine-----
Pour compléter, tu peux aussi utiliser la syntaxe

Sheets(Array("feuil1", "feuil2")).Select

ou encore

Sheets(AddFeuille).Select

à la condition que AddFeuille contienne un tableau
créé comme dans l'exemple de michdenis
ou encore créé ainsi par la commande Array()
AddFeuille = Array("feuil1", "feuil2")

Sheets(AddFeuille).Select



"michdenis" wrote in message
news:umcW$
Bonsoir msillienne,

Et si tu essayais quelque chose dans le genre :


Dim AddFeuille(), A As Integer

If checkbox1.Value = True Then
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil1"
End If
If checkbox2.Value = True Then
A = A + 1
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil2"
End If

For Each F In AddFeuille
Sheets(F).Select Replace:úlse
Next

With ActiveWindow.SelectedSheets
'les opérations à effectuer sur le groupe de
feuille


End With



Salutations!





"msillienne" a
écrit dans le message


de news:033401c3d4a4$78555850$
merci ca répond a ma question mais ....
maintenant ma variable AddFeuille =""feuil1","feuil2""
alors que le guillemet de début et de fin je n'en veux
pas
AddFeuille ="feuil1","feuil2"
et ça c'est possible ;-)





---Message d'origine-----
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de
caractères ; les

deuxième et troisième sont là pour afficher un
guillemet



dans la chaîne de
caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment
claires :-)



A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait
faire




ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille =
("feuil1","feuil2")


mais il ne me garde pas les guillemets "" je trouve
ça:




AddFeuille ="feuil1,feuil2" comment faire ????
merçi



.







.






Avatar
docmarti
Super mon général ;)

"msillienne" wrote in message
news:074901c3d4f6$6dac7d50$
Merci ;-)
ça maaaaarche capitaine ça maaaaaaaaarche

-----Message d'origine-----
Pour compléter, tu peux aussi utiliser la syntaxe

Sheets(Array("feuil1", "feuil2")).Select

ou encore

Sheets(AddFeuille).Select

à la condition que AddFeuille contienne un tableau
créé comme dans l'exemple de michdenis
ou encore créé ainsi par la commande Array()
AddFeuille = Array("feuil1", "feuil2")

Sheets(AddFeuille).Select



"michdenis" wrote in message
news:umcW$
Bonsoir msillienne,

Et si tu essayais quelque chose dans le genre :


Dim AddFeuille(), A As Integer

If checkbox1.Value = True Then
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil1"
End If
If checkbox2.Value = True Then
A = A + 1
ReDim Preserve AddFeuille(A)
AddFeuille(A) = "feuil2"
End If

For Each F In AddFeuille
Sheets(F).Select Replace:úlse
Next

With ActiveWindow.SelectedSheets
'les opérations à effectuer sur le groupe de
feuille


End With



Salutations!





"msillienne" a
écrit dans le message


de news:033401c3d4a4$78555850$
merci ca répond a ma question mais ....
maintenant ma variable AddFeuille =""feuil1","feuil2""
alors que le guillemet de début et de fin je n'en veux
pas
AddFeuille ="feuil1","feuil2"
et ça c'est possible ;-)





---Message d'origine-----
Salut msillienne,

Pour le premier If :
AddFeuille = """feuil1"""

Pour le deuxième :
AddFeuille = AddFeuille + "," + """feui2"""

Késako 3 guillemets ?
Le premier indique à vba qu'on "ouvre" une chaîne de
caractères ; les

deuxième et troisième sont là pour afficher un
guillemet



dans la chaîne de
caractères (un seul indiquerait la fin de la chaîne).

En espérant que les explications sont suffisamment
claires :-)



A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


bonjour a tous
voila j'ai une variable "AddFeuille" qui devrait
faire




ça :

If checkbox1.Value = True Then
AddFeuille = "feuil1"
End If
If checkbox2.Value = True Then
AddFeuille = AddFeuille + "," + "feui2"
End If

Sheets(Array(AddFeuille)).Select

je suis cencé trouver dans AddFeuille >> ("feuil1","feuil2")
mais il ne me garde pas les guillemets "" je trouve
ça:




AddFeuille ="feuil1,feuil2" comment faire ????
merçi



.







.