Election municipale 2020

Pour partager vos applications Excel avec les autres membres
z
zorro
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 23 octobre 2015
Version d'Excel : 2013

Message par zorro » 6 janvier 2019, 10:06

Bonjour

Suite a votre aide,je mets a disposition les2 fichiers bureau et cumul.(c'est 53 bureaux)

Bonne journée
bureau municipale 2020.xlsm
(240.22 Kio) Téléchargé 34 fois
resultat election municipale 2020.xlsx
(20.81 Kio) Téléchargé 28 fois
Avatar du membre
jarodness21
Membre habitué
Membre habitué
Messages : 53
Appréciations reçues : 3
Inscrit le : 8 juillet 2015
Version d'Excel : 2016 FR

Message par jarodness21 » 7 janvier 2019, 09:02

Bonjour

pour l’effacement de tes feuilles 1 à 53
si j'ai bien compris tu effaces les cellules E1 à E4 et E7 à E13
une méthode plus courte pour le faire
dis moi si j'ai bien compris
en appelant Raz_Couleur après la boucle tu es sur la feuille "Sommaire" à la fin de l'effacement
Sub RaZ_Jarodness()
  Dim i As Integer
  
    For i = 1 To 53
        
        Sheets(i).Select
        Range("E1:E4,E7:E13").Select
        Selection.ClearContents
        
    Next
  Call RaZ_Couleur
  
End Sub
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'698
Appréciations reçues : 646
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 7 janvier 2019, 10:46

Bonjour Jarod,

voici ton code avec quelques petits changements :
Sub RaZ_Jarodness()
  Dim i%: Application.ScreenUpdating = 0
  For i = 1 To 53        
    Worksheets(i).[E1:E4, E7:E13].ClearContents        
  Next i
  Call RaZ_Couleur  
End Sub
dhany
z
zorro
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 23 octobre 2015
Version d'Excel : 2013

Message par zorro » 7 janvier 2019, 16:53

merci à tous

bonne soirée
z
zorro
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 23 octobre 2015
Version d'Excel : 2013

Message par zorro » 27 mars 2019, 18:41

Bonjour à toutes et à toutes

Je vous mets le fichiers modifiée pour élections municipales 2020 avec 54 bureaux +le cumul,j'ai un petit problème car le tableau récapitulatifs de toutes les bureaux ne fonctionne pas.
Sur le classeur bureaux en dessous se trouve les bureaux de 1 à 54.
Merci pour votre aide
Cordialement
resultat election municipale 2020.xlsx
(17.33 Kio) Téléchargé 3 fois
bureau municipale 2020.xlsm
(249.54 Kio) Téléchargé 3 fois
z
zorro
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 23 octobre 2015
Version d'Excel : 2013

Message par zorro » 17 avril 2019, 18:54

Bonjour

Je veux crée un formulaire de saisie personnalisé pour les élections de la feuille1 a 54 .( voir fichier ci-joint)
Je suis un débutant dans le vba .(pouvez stvp m'expliquer comment vous avez fait)
Merci pour votre aide .
Cordialement
bureau municipale 2020 v2.xlsm
(260.33 Kio) Téléchargé 4 fois
resultat election municipale 2020 v2.xlsx
(33.88 Kio) Téléchargé 3 fois
Avatar du membre
jarodness21
Membre habitué
Membre habitué
Messages : 53
Appréciations reçues : 3
Inscrit le : 8 juillet 2015
Version d'Excel : 2016 FR

Message par jarodness21 » 18 avril 2019, 06:52

bonjour

si tu veux l'explication de la macro définie plus haut la voici:

Sub RaZ_Jarodness()
'Macro corrigé par dhany
  Dim i%: Application.ScreenUpdating = 0
  For i = 1 To 54 'pour toutes les feuilles de 1 à 54
    Worksheets(i).[E1:E4, E7:E19].ClearContents 'effacer le contenu des plages de cellule E1:E4 et E7:E19
  Next i 'il s'agit d'une boucle for .... next donc cette boucle s'arrête quand  la valeur est 54
  Call RaZ_Couleur 'nous appelons la macro RaZ_Couleur
End Sub
cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message