Problème syntaxe condition IF en VBA

vgendron

XLDnaute Barbatruc

• 28 Janvier 2013

• #2

Re : Problème syntaxe condition IF en VBA

hello

j'aurai écris comme ca.. le test après for each
et des quotes " au lieu d'apostrophe '

Code:

Sub selection_feuille()
'
' selection_feuille Macro
'
Dim feuille As Worksheet


For Each feuille In ActiveWorkbook.Sheets
If feuille <> "Feuil1" Then
feuille.Select Replace:=False
End If
Next feuille

'
End Sub

je n'ai pas testé par contre

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Janvier 2013

• #3

Re : Problème syntaxe condition IF en VBA

Bonjour,

essaye peut être ceci :

Code:

Option Explicit
Sub test()
Dim feuille As Worksheet, t() As Variant, i As Byte
ReDim t(1 To Worksheets.Count - 1)
For Each feuille In Worksheets
    If feuille.Name <> "Feuil1" Then i = i + 1: t(i) = feuille.Name
Next feuille
Worksheets(t).Select
End Sub

devrait fonctionner même si feuil1 est sélectionnée lorsque tu lances la macro.

bon après midi
@+

 

Vote positif 0 Vote négatif

P

pascals

XLDnaute Nouveau

• 28 Janvier 2013

• #4

Re : Problème syntaxe condition IF en VBA

Bonsoir

Merci à vous deux pour vos réponses.

@vgendron : j'ai essayé cette syntaxe. Mais je ne sais pas pourquoi elle ne fonctionne pas.

@Pierrot93 : merci ça fonctionne. une dernière petite faveur. Peux tu m'expliquer la partie du code

then i = i+1 : t(i) = feuille.name.

J'ai saisi le reste mais la j'ai un peu de mal. Maintenant il faudra que je me souvienne de la solution pour la prochaine fois. 😛

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Janvier 2013

• #5

Re : Problème syntaxe condition IF en VBA

Bonjour,

t(i) = feuille.name

Cliquez pour agrandir...

si le nom de la feuille est différent de "feuil1" on stocke son nom dans un tableau virtuel... "i = i+1" on incrémente la variable "i" afin d'enrichir l'élément suivant.

bonne journée
@+

 

Vote positif 0 Vote négatif

P

pascals

XLDnaute Nouveau

• 29 Janvier 2013

• #6

Re : Problème syntaxe condition IF en VBA

Ok merci Pierrot.

 

Vote positif 0 Vote négatif