UserForm ne marche pas
Résolu/Fermé
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
-
Modifié par Kuartz le 9/10/2015 à 10:48
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 12 oct. 2015 à 10:10
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 12 oct. 2015 à 10:10
1 réponse
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
Modifié par f894009 le 9/10/2015 à 11:46
Modifié par f894009 le 9/10/2015 à 11:46
Bonjour,
le mois de la cellule sur deux caracteres:
Pour tester un code, posez des points d'arrets et quand le programme s'arrete, passez le curseur souris sur les variables et/ou objets pour voir leurs contenus
Call Codesuffi, pas besoin de
Application.Run ("Code")
le mois de la cellule sur deux caracteres:
Sub Code() Dim DL As Long Dim MOT As String Dim COMPTEUR As Long Dim MOIS As String DL = Cells(Application.Rows.Count, 1).End(xlUp).Row MOT = InputBox("Entrez le mot recherché") MOIS = MOIS_BOX For i = 2 To DL 'Changer le 2 pour la ligne où commencent les données If CStr(Format(Month(CDate(Range("A" & i).Value)), "00")) = MOIS And CStr(Range("B" & i).Value) = MOT Then COMPTEUR = COMPTEUR + 1 End If Next i MsgBox (COMPTEUR) End Sub
Pour tester un code, posez des points d'arrets et quand le programme s'arrete, passez le curseur souris sur les variables et/ou objets pour voir leurs contenus
12 oct. 2015 à 08:54
12 oct. 2015 à 08:56
Merci pour votre réponse.
Cordialement.
12 oct. 2015 à 09:10
Oui, c'est cela, le debugage sur excel est assez simple par les points d'arret; Il y a aussi l'instruction Debug.Print qui permet d'ecrire dans la fenetre d'execution (menu VBA, affichage, Fenetre d'execution) pour avoir des traces un peu plus complexes
12 oct. 2015 à 10:10