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 VBA : Compter les onglet... mais uniquement ceux qui....

VBA : Compter les onglet... mais uniquement ceux qui....

8 réponses
Avatar
Domi
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les archives.

Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi
Signaler un problème avec ce contenu

8 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
Joel
Bonjour Domi !

Sub CompterOnglet()
Dim NbOng As Integer
Dim oSheet As Worksheet
NbOng = 0
For Each oSheet In Sheets
If Left(oSheet.Name, 2) = "AZ" Then
NbOng = NbOng + 1
End If
Next
MsgBox NbOng
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi




Avatar
Bonjour Dom,
Pour compter les feuille du classeur actif :
For Each n In ThisWorkbook.Sheets
If Left(n.Name, 2) = "AZ" Then c = c + 1
Next
MsgBox "Nombre de feuille avec 'AZ' " & c
Philippe

"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi




Avatar
P R B
Salut

Sub TEST()
For i = 1 To Sheets.Count
If Sheets(i).Name Like "AZ*" Then REP = REP + 1
Next
MsgBox REP & " feuille commençant par AZ"
End Sub


a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi




Avatar
Philippe.R
Bonjour Domi,

Comme ceci ?

Sub comptongletsi()
'MPFE le 24/07/2004
For Each Sheet In Worksheets
If Left(Sheet.Name, 2) = "az" Then
i = i + 1
End If
Next Sheet
MsgBox i & " feuilles dans le classeur", , "Noms avec AZ"
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Domi" a écrit dans le message de news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les archives.

Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi




Avatar
Domi
Rapide et efficace !
Puis-je abuser ?
Même question mais si AZ se trouve en 3eme et 4 eme caractères à partir de
la gauche (ça devient du STXT en VBA...) ?

Merci beaucoup ;o)
Domi

"Joel" a écrit dans le message de
news:cdt1dv$tbs$
Bonjour Domi !

Sub CompterOnglet()
Dim NbOng As Integer
Dim oSheet As Worksheet
NbOng = 0
For Each oSheet In Sheets
If Left(oSheet.Name, 2) = "AZ" Then
NbOng = NbOng + 1
End If
Next
MsgBox NbOng
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi








Avatar
ru-th
re-

pour comprenant AZ
Sub TEST()
For i = 1 To Sheets.Count
If Sheets(i).Name Like "*AZ*" Then REP = REP + 1
Next
MsgBox REP & " feuille commençant par AZ"
End Sub

pour à partir du 3ème caractère
If Mid(Sheets(i).Name, 3, 2) = "AZ" Then REP = REP + 1


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Domi" a écrit dans le message de
news:
Rapide et efficace !
Puis-je abuser ?
Même question mais si AZ se trouve en 3eme et 4 eme caractères à partir de
la gauche (ça devient du STXT en VBA...) ?

Merci beaucoup ;o)
Domi

"Joel" a écrit dans le message de
news:cdt1dv$tbs$
Bonjour Domi !

Sub CompterOnglet()
Dim NbOng As Integer
Dim oSheet As Worksheet
NbOng = 0
For Each oSheet In Sheets
If Left(oSheet.Name, 2) = "AZ" Then
NbOng = NbOng + 1
End If
Next
MsgBox NbOng
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi












Avatar
Philippe.R
Bonjour Thierry,
Juste pour Maman Sabatier, le message serait mieux ainsi, non ?

MsgBox REP & " feuille" & IIf(REP > 1, "s", "") & " contenant AZ"

--
Amicales Salutations

"ru-th" a écrit dans le message de news:
re-

pour comprenant AZ
Sub TEST()
For i = 1 To Sheets.Count
If Sheets(i).Name Like "*AZ*" Then REP = REP + 1
Next
MsgBox REP & " feuille commençant par AZ"
End Sub

pour à partir du 3ème caractère
If Mid(Sheets(i).Name, 3, 2) = "AZ" Then REP = REP + 1


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Domi" a écrit dans le message de
news:
Rapide et efficace !
Puis-je abuser ?
Même question mais si AZ se trouve en 3eme et 4 eme caractères à partir de
la gauche (ça devient du STXT en VBA...) ?

Merci beaucoup ;o)
Domi

"Joel" a écrit dans le message de
news:cdt1dv$tbs$
Bonjour Domi !

Sub CompterOnglet()
Dim NbOng As Integer
Dim oSheet As Worksheet
NbOng = 0
For Each oSheet In Sheets
If Left(oSheet.Name, 2) = "AZ" Then
NbOng = NbOng + 1
End If
Next
MsgBox NbOng
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi
















Avatar
Domi
Impec
Merci
Domi
"ru-th" a écrit dans le message de
news:
re-

pour comprenant AZ
Sub TEST()
For i = 1 To Sheets.Count
If Sheets(i).Name Like "*AZ*" Then REP = REP + 1
Next
MsgBox REP & " feuille commençant par AZ"
End Sub

pour à partir du 3ème caractère
If Mid(Sheets(i).Name, 3, 2) = "AZ" Then REP = REP + 1


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Domi" a écrit dans le message de
news:
Rapide et efficace !
Puis-je abuser ?
Même question mais si AZ se trouve en 3eme et 4 eme caractères à partir
de


la gauche (ça devient du STXT en VBA...) ?

Merci beaucoup ;o)
Domi

"Joel" a écrit dans le message de
news:cdt1dv$tbs$
Bonjour Domi !

Sub CompterOnglet()
Dim NbOng As Integer
Dim oSheet As Worksheet
NbOng = 0
For Each oSheet In Sheets
If Left(oSheet.Name, 2) = "AZ" Then
NbOng = NbOng + 1
End If
Next
MsgBox NbOng
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Domi" a écrit dans le message de
news:
Bonjour,
Petite question à laquelle je n'ai pas trouvé de réponse dans les
archives.


Compter les onglets, je sais faire...(Sheets.Count)
Mais comment compter les onglets dont le nom commence par "AZ" ?

Merci
Domi