Faire une somme de texte sur VBA EXCEL

Logiciel & apps Programmation
1

Bonjour, à tous:)
Voici mon problème, je souhaite effectuer une somme sur du texte C’est à dire sommer pour la journée du 30.déc.07 tous les enfants qui sont en restauration NORMAL je me permets de vous transmettre une exquis de mon code qui bien sûr ne fonctionne pas . Pourriez vous me consacrer quelques instants de votre savoir .

Cordialement

Code

Sub SOMME()
Dim mois
mois = Planning.TextBox1.Value
Sheets(mois + 1).Select
Range(“A2:A65536”).Select
Dim ValeurAChercher
ValeurAChercher = “Normal”
For Each zcell In Selection
If zcell.Value = Planning.TextBox2.Value Then le textbox2 comprend la date
Cells(ActiveCell.Row, ActiveCell.Column + 5).Value
Résultat = Application.CountIf(Range(“G2”), Cells)

'MsgBox (“Le texte " & Cells & " est présent : " & Résultat & " fois.”)

Exit Sub

End If
Next

End Sub
DATE NOM TELEPHONE POLE ASSIDUITE RESTAURATION
23.déc.07 X Absence justifiée Normal
23.déc.07 X Pôle 2 Absence justifiée Végétarien 23.déc.07 X Pôle 3 Absence justifiée Végétarien
23.déc.07 X Pôle 1 Hospitalisation Végétarien
23.déc.07 X Pôle 1 Absence justifiée Végétarien
23.déc.07 X Pôle 1 Hospitalisation Végétarien
23.déc.07 X Pôle 1 Absence justifiée Végétarien
23.déc.07 X Pôle 1 Absent Végétarien
23.déc.07 X Pôle 1 Absent Végétarien
23.déc.07 X Pôle 1 Absence justifiée Végétarien
23.déc.07 X Pôle 1 Hospitalisation Végétarien
29.déc.07 X Pôle 1 Hospitalisation Normal
29.déc.07 X Pôle 1 Absence justifiée Normal
29.déc.07 X Pôle 1 Hospitalisation Végétarien
29.déc.07 X ôle 1 Hospitalisation Normal
29.déc.07 X Pôle 1 Absence justifiée Normal
Edité le 30/12/2007 à 20:16

2

Indiques déja dans ton titre le langage utilisé pour ton programme.
Ensuite je pense que tu devrais éviter de balancer sur le net les noms et téléphones de tes convives :wink:

Pour ce qui est de la methode à appliquer, tu dois en fait compter le nombre de lignes où restauration = normal. Après je ne penses pas que ce soit du PHP donc je ne peux te donner la façon exact de le faire, mais quelqu’un de plus qualidié se fera un plaisir de t’éclairer :smiley:

3

Exact , mais pour l’évolution du programme, je ne voyais pas comment faire. Toutes mes excuses

Pour le langage ceci est du vba excel

Cordialement