Vba excel 2013

guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour a tous,

Voici ma vba : Sub tierce3()

Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 3 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h44").Value = Cptr
End Sub

Sub tierce4()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 4 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h45").Value = Cptr
End Sub
Sub tierce5()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 5 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h46").Value = Cptr
End Sub
Sub tierce6()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 6 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h47").Value = Cptr
End Sub
Sub tierce7()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 7 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h48").Value = Cptr
End Sub
Sub tierce8()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 8 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h49").Value = Cptr
End Sub

est-il possible de rendre plus simple et comment pouvoir la rende active,
car je suis obliger d'aller sur macro et exécuter pour que cela fonctionne

merci encore pour le coup de main

Cdlmt



A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour
avant toute chose:
ta macro va planter lorsque tu arrives à la dernière feuille puisque tu demandes "next sh" soit une feuille qui n'existe pas 

 For Each Sh In Worksheets 
 .....
 Next Sh 
 Range("h44").Value = Cptr

Michel
0
guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour,

cela ai fait, mais peut ont reduire ma vba
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313 > guismo33 Messages postés 351 Date d'inscription   Statut Membre Dernière intervention  
 
oui, sans problème, mais vu_la mnière dont tu réponds sans te donner la peine d'expliquer comment tu as résolu le problème, je n'ai plus du tout envie de t'aider

essaies le mamacramé, ca ira mieux
0