bonjour à tous,
j'utilise la macro suivante qui me compte le nombre d'onglets
Sub nbronglets()
x = Worksheets.Count
sheet(1).[a1].Value = x
End Sub
Je souhaite modifier le code pour ne compter que les onglets visbles, alors
que le code actuel me compte également les onglets masqués
Si kekun sait comment me dépanner, qu'il n'hésite pas ...
merci d'avance au(x) dieu(x) qui me répondra
--
gilles72
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
ChrisV
Bonjour Gilles,
Sub nbronglets() x = 0 For i = 1 To Worksheets.Count If Sheets(i).Visible = True Then _ x = 1 + x Next i Sheet(1).[a1].Value = x End Sub
ChrisV
"gilles" a écrit dans le message de news:
bonjour à tous, j'utilise la macro suivante qui me compte le nombre d'onglets Sub nbronglets() x = Worksheets.Count sheet(1).[a1].Value = x End Sub Je souhaite modifier le code pour ne compter que les onglets visbles, alors que le code actuel me compte également les onglets masqués Si kekun sait comment me dépanner, qu'il n'hésite pas ... merci d'avance au(x) dieu(x) qui me répondra -- gilles72
Bonjour Gilles,
Sub nbronglets()
x = 0
For i = 1 To Worksheets.Count
If Sheets(i).Visible = True Then _
x = 1 + x
Next i
Sheet(1).[a1].Value = x
End Sub
ChrisV
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
0C0E5F9C-AD52-4775-9D51-D8863C52FC44@microsoft.com...
bonjour à tous,
j'utilise la macro suivante qui me compte le nombre d'onglets
Sub nbronglets()
x = Worksheets.Count
sheet(1).[a1].Value = x
End Sub
Je souhaite modifier le code pour ne compter que les onglets visbles,
alors
que le code actuel me compte également les onglets masqués
Si kekun sait comment me dépanner, qu'il n'hésite pas ...
merci d'avance au(x) dieu(x) qui me répondra
--
gilles72
Sub nbronglets() x = 0 For i = 1 To Worksheets.Count If Sheets(i).Visible = True Then _ x = 1 + x Next i Sheet(1).[a1].Value = x End Sub
ChrisV
"gilles" a écrit dans le message de news:
bonjour à tous, j'utilise la macro suivante qui me compte le nombre d'onglets Sub nbronglets() x = Worksheets.Count sheet(1).[a1].Value = x End Sub Je souhaite modifier le code pour ne compter que les onglets visbles, alors que le code actuel me compte également les onglets masqués Si kekun sait comment me dépanner, qu'il n'hésite pas ... merci d'avance au(x) dieu(x) qui me répondra -- gilles72
poy-poy
Salut gilles, Voici un code qui devrait marcher :
sub nbronglets() Dim wks as worksheet, x as integer
x=0 For each wks in activeworkbook.worksheets if wks.visible =true then x = x+1 end if next sheets(1).[a1] = x
end sub
Cordialement Benjamin
bonjour à tous, j'utilise la macro suivante qui me compte le nombre d'onglets Sub nbronglets() x = Worksheets.Count sheet(1).[a1].Value = x End Sub Je souhaite modifier le code pour ne compter que les onglets visbles, alors que le code actuel me compte également les onglets masqués Si kekun sait comment me dépanner, qu'il n'hésite pas ... merci d'avance au(x) dieu(x) qui me répondra -- gilles72
Salut gilles,
Voici un code qui devrait marcher :
sub nbronglets()
Dim wks as worksheet, x as integer
x=0
For each wks in activeworkbook.worksheets
if wks.visible =true then
x = x+1
end if
next
sheets(1).[a1] = x
end sub
Cordialement
Benjamin
bonjour à tous,
j'utilise la macro suivante qui me compte le nombre d'onglets
Sub nbronglets()
x = Worksheets.Count
sheet(1).[a1].Value = x
End Sub
Je souhaite modifier le code pour ne compter que les onglets visbles, alors
que le code actuel me compte également les onglets masqués
Si kekun sait comment me dépanner, qu'il n'hésite pas ...
merci d'avance au(x) dieu(x) qui me répondra
--
gilles72
sub nbronglets() Dim wks as worksheet, x as integer
x=0 For each wks in activeworkbook.worksheets if wks.visible =true then x = x+1 end if next sheets(1).[a1] = x
end sub
Cordialement Benjamin
bonjour à tous, j'utilise la macro suivante qui me compte le nombre d'onglets Sub nbronglets() x = Worksheets.Count sheet(1).[a1].Value = x End Sub Je souhaite modifier le code pour ne compter que les onglets visbles, alors que le code actuel me compte également les onglets masqués Si kekun sait comment me dépanner, qu'il n'hésite pas ... merci d'avance au(x) dieu(x) qui me répondra -- gilles72
gilles
à POY-POY et CHRIS saint-cloud à la lecture des 2 codes ça m'a pourtant l'air simple je regarde ça de plus près merci à vous gilles
Salut gilles, Voici un code qui devrait marcher :
sub nbronglets() Dim wks as worksheet, x as integer
x=0 For each wks in activeworkbook.worksheets if wks.visible =true then x = x+1 end if next sheets(1).[a1] = x
end sub
Cordialement Benjamin
bonjour à tous, j'utilise la macro suivante qui me compte le nombre d'onglets Sub nbronglets() x = Worksheets.Count sheet(1).[a1].Value = x End Sub Je souhaite modifier le code pour ne compter que les onglets visbles, alors que le code actuel me compte également les onglets masqués Si kekun sait comment me dépanner, qu'il n'hésite pas ... merci d'avance au(x) dieu(x) qui me répondra -- gilles72
à POY-POY et CHRIS
saint-cloud
à la lecture des 2 codes ça m'a pourtant l'air simple
je regarde ça de plus près
merci à vous
gilles
Salut gilles,
Voici un code qui devrait marcher :
sub nbronglets()
Dim wks as worksheet, x as integer
x=0
For each wks in activeworkbook.worksheets
if wks.visible =true then
x = x+1
end if
next
sheets(1).[a1] = x
end sub
Cordialement
Benjamin
bonjour à tous,
j'utilise la macro suivante qui me compte le nombre d'onglets
Sub nbronglets()
x = Worksheets.Count
sheet(1).[a1].Value = x
End Sub
Je souhaite modifier le code pour ne compter que les onglets visbles, alors
que le code actuel me compte également les onglets masqués
Si kekun sait comment me dépanner, qu'il n'hésite pas ...
merci d'avance au(x) dieu(x) qui me répondra
--
gilles72
à POY-POY et CHRIS saint-cloud à la lecture des 2 codes ça m'a pourtant l'air simple je regarde ça de plus près merci à vous gilles
Salut gilles, Voici un code qui devrait marcher :
sub nbronglets() Dim wks as worksheet, x as integer
x=0 For each wks in activeworkbook.worksheets if wks.visible =true then x = x+1 end if next sheets(1).[a1] = x
end sub
Cordialement Benjamin
bonjour à tous, j'utilise la macro suivante qui me compte le nombre d'onglets Sub nbronglets() x = Worksheets.Count sheet(1).[a1].Value = x End Sub Je souhaite modifier le code pour ne compter que les onglets visbles, alors que le code actuel me compte également les onglets masqués Si kekun sait comment me dépanner, qu'il n'hésite pas ... merci d'avance au(x) dieu(x) qui me répondra -- gilles72
