Une procédure pour plusieurs Msflexgrid pour plusieurs Forms

Résolu/Fermé

PhilippeF - 31 août 2019 à 15:25
PhilippeF - 31 août 2019 à 17:08

Bonjour,
dans le projet que je développe, j'ai plusieurs Forms qui contiennent chacune 2 ou 3 msflexgrid avec un nom différent. Lorsque je charge un Form je mets de la couleur 1 ligne sur 2.
Pour le moment je recopie la procédure sur chaque Form en modifiant le nom du msflexgrid.
Je voudrai utiliser UNE seule procédure pour tous les Msflexgrid pour les différents Forms.


Sub Les_Couleurs()
    Set Fg = GrilleTiers
    For r = 1 To Fg.Rows - 1 Step 2
        Fg.Row = r
        For c = 0 To Fg.Cols - 1
            Fg.Col = c
            Fg.CellBackColor = RGB(224, 255, 255)
        Next c
    Next r
End Sub

Set Fg = lenomduMsflexgrid qui varie selon le Form. de 2 à 3 par Form

j'espère être clair !!
Merci d'avance

Configuration: Windows / Chrome 76.0.3809.132

A voir également:

Une procédure pour plusieurs Msflexgrid pour plusieurs Forms
Mise en forme conditionnelle excel plusieurs conditions - Guide
Le point d'entree de procedure est introuvable kernel32 dll ✓ - Forum Windows
Procédure héritage bara ✓ - Forum Vos droits sur internet
Google forms sans compte google ✓ - Forum Google Docs
Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique

1 réponse

Réponse 1 / 1

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 330
31 août 2019 à 16:00

Pourquoi ne pas passer le contrôle dans un paramètre ?

PhilippeF
31 août 2019 à 16:22

Bonjour NHenry,

j'ai essayé de passer le nom du Msflexgrid mais ça ne marche pas.
j'ai essayé ça
dans une procédure qui appelle Les_Couleurs(nomduMsflexgrid)

puis dans la procédure des couleurs


Sub Les_Couleurs(nomduMsflexgrid)
Set fg = nomduMsflexgrid
For r = 1 To Fg.Rows - 1 Step 2
Fg.Row = r
For c = 0 To Fg.Cols - 1
Fg.Col = c
Fg.CellBackColor = RGB(224, 255, 255)
Next c
Next r
End Sub

PhilippeF
31 août 2019 à 17:08

J'ai trouvé !!

Dans la procédure qui appelle les_couleurs :


    nomGrille = Fg.Name
    Les_Couleurs (nomGrille)

la procédure des couleurs :


Sub Les_Couleurs(nomGrille As String)
    For r = 1 To Fg.Rows - 1 Step 2
        Fg.Row = r
        For c = 0 To Fg.Cols - 1
            Fg.Col = c
            Fg.CellBackColor = RGB(224, 255, 255)
        Next c
    Next r
End Sub

Merci NHenry

Discussions similaires

Point d'entrée introuvable

Boucle sur la première diapositive d'une présentation

document html

point d'entrée de procédure introuvable

liste de noms par ordre alphabétique

Discussions similaires

Newsletters