Il ne rentre pas dans ma macro
Fermé
viret1290
Messages postés
138
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
-
Modifié par viret1290 le 25/07/2015 à 12:19
viret1290 Messages postés 138 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 29 juil. 2015 à 18:00
viret1290 Messages postés 138 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 29 juil. 2015 à 18:00
A voir également:
- Il ne rentre pas dans ma macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Lancer une macro dans une macro - Astuces et Solutions
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
25 juil. 2015 à 14:06
25 juil. 2015 à 14:06
Bonjour,
FPresence et FServiceEtage sont definies ou ???????
FPresence et FServiceEtage sont definies ou ???????
25 juil. 2015 à 15:04
Modifié par f894009 le 25/07/2015 à 15:13
au plus simple, car je ne sais pas comment sont organisees vos donnees:
Private Sub CommandButton1_Click() Dim VarNbGard As Byte Dim VarColonne As Integer Dim i As Integer Dim j As Integer Dim L As Integer VarNbGard = Worksheets("FBrigade").Cells(14, 2) For VarColonne = 2 To 54 If Worksheets("FPresence").Cells(3, 23) = Worksheets("FServiceEtage").Cells(2, VarColonne) Then For i = 3 To Worksheets("FServiceEtage").Cells(1, 1) + 2 'On parcour le classeur Service Etage For j = 15 To VarNbGard + 14 'On parcour les présences If Worksheets("FPresence").Cells(j, 4) + Worksheets("FPresence").Cells(j, 5) = Worksheets("FServiceEtage").Cells(i, 2) + Worksheets("FServiceEtage").Cells(i, 3) Then Worksheets("FPresence").Cells(j, 9) = Worksheets("FServiceEtage").Cells(i, VarColonne) 'Service Etage End If Next j Next i End If Next VarColonne End Sub29 juil. 2015 à 18:00