Macro évènementielle
Résolu
jean300
Messages postés
374
Date d'inscription
Statut
Membre
Dernière intervention
-
jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Suite à laide apprécié de yg_be que je remercie, je cherche une macro du style ou de modifier le code :
https://forums.commentcamarche.net/forum/affich-35348711-selection-plage-cellules#p35352719
Je pense que c'est cette ligne qui devrait être modifiée :
Call rg.FormatConditions.Add(xlExpression, , "=NON(MOD(LIGNE();2))") '=NON(MOD(LIGNE();2)) =NOT(MOD(ROW();2))
En feuille 1 :
Ce que je désire c'est que la macro sélectionne la plage A2:Z2 et la copie (cette ligne 2 étant toujours au bon format).
Puis la macro sélectionne une plage variable de A3 à Zxxx, (le nombre de ligne variant en plus ou en moins) et colle le format de la zone copiée sur l'ensemble de la plage.
La macro s'exécuant lors de l'ajout de ligne, ca je ne pense pas qu'en cas de suppression ou de modification cela soit nécessaire.
Bien sur, s'il était possible de cumuler les deux fonctions sur le même code, ce serait génial.
En vous remerciant.
Suite à laide apprécié de yg_be que je remercie, je cherche une macro du style ou de modifier le code :
https://forums.commentcamarche.net/forum/affich-35348711-selection-plage-cellules#p35352719
Je pense que c'est cette ligne qui devrait être modifiée :
Call rg.FormatConditions.Add(xlExpression, , "=NON(MOD(LIGNE();2))") '=NON(MOD(LIGNE();2)) =NOT(MOD(ROW();2))
En feuille 1 :
Ce que je désire c'est que la macro sélectionne la plage A2:Z2 et la copie (cette ligne 2 étant toujours au bon format).
Puis la macro sélectionne une plage variable de A3 à Zxxx, (le nombre de ligne variant en plus ou en moins) et colle le format de la zone copiée sur l'ensemble de la plage.
La macro s'exécuant lors de l'ajout de ligne, ca je ne pense pas qu'en cas de suppression ou de modification cela soit nécessaire.
Bien sur, s'il était possible de cumuler les deux fonctions sur le même code, ce serait génial.
En vous remerciant.
A voir également:
- Macro évènementielle
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
5 réponses
Bonjour,
Si j'ai bien compris
https://mon-partage.fr/f/hY4WRspl/
Le code:
Cdlt
Si j'ai bien compris
https://mon-partage.fr/f/hY4WRspl/
Le code:
Option Explicit
Sub jean300()
Dim Derlig As Long
Dim sh As Worksheet
Dim rg As Range
Dim fc
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Sheets("Feuil1")
Derlig = [A10000].End(xlUp).Row
Set rg = sh.Range("A2:Z" & Derlig)
rg.FormatConditions.Delete
Set fc = rg.FormatConditions.Add(Type:=xlExpression, Formula1:="=MOD(LIGNE();2)=0")
rg.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
rg.FormatConditions(1).Interior.ColorIndex = 35
End Sub
Cdlt
Bonjour Frenchie
Je te remercie de me répondre
Ton code est bien sauf qu'il reproduit les bordures que je ne veux pas
ex image colonne W, elle devrait être comme la colonne Y
Je te remercie de me répondre
Ton code est bien sauf qu'il reproduit les bordures que je ne veux pas
ex image colonne W, elle devrait être comme la colonne Y
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question