Election municipale 2020

Bonjour

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

Bonne journée

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

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

merci à tous

bonne soirée

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

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

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

Bonjour

Je suis bloqué sur excel 2019.

Je veux imprimer automatiquement avec condition a1= 1 on imprime la feuille.

Merci pour votre aide

Cordialement

bonjour

sur quel fichier et feuille tu met A1=1?

cordialement

jarodness

Bonjour

Je veux imprimer automatiquement avec condition i4= 1 on imprime la feuille. (bureau 1 à54 )(fichier bureau municipale 2020 )

Merci pour votre aide

Cordialement

Rechercher des sujets similaires à "election municipale 2020"