Macro évènementielle

Résolu/Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 8 mai 2018 à 09:55
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 9 mai 2018 à 10:41

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.

A voir également:

Macro évènementielle
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

5 réponses

Réponse 1 / 5

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mai 2018 à 12:05

Bonjour,
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

Réponse 2 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
8 mai 2018 à 13:01

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

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mai 2018 à 13:54

Ok, mais sur quel support puis-je me baser pour appliquer le format attendu?
Combien de colonnes?
Un bout du fichier (sans donnée confidentielle) serait le bienvenu

Réponse 3 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
8 mai 2018 à 15:59

Bonjour Frenchie
Voici le fichier demandé
En te remerciant

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
8 mai 2018 à 16:12

Avec le lien c'est mieux

https://www.cjoint.com/c/HEiolHzV7Y2

Réponse 4 / 5

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 mai 2018 à 08:16

Bonjour,
Voilà,
https://mon-partage.fr/f/boHdE3Zt/
Cdlt

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
9 mai 2018 à 10:41

Bonjour Frenchie,
Agréable surprise pour moi ce matin, c'est parfait et je te remercie car je n'y parvenais pas
En te souhaitant une excellente journée
Au plaisir

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Lien de téléchargement de nbLettre.xla

recup couleur de cellule sans macro

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters