Insertion lignes selon plusieurs conditions

[cacaille76]

Bonjour,

Apprenti VBA, je rame comme un malade pour réaliser une macro de transfert de données d'un onglet vers un autre en respectant une structure précise.
(Ma macro est dans le module deux du fichier joint),

l'onglet ---EMP--- précise la structure finale demandée.
les données de base sont dans l'onglet 2-Gamme.

Il me reste à :

if cells "A& ?" est <>""
Mettre en gras les cells "A&?" / "B&?" / "C&?" / "D& ?" / "E& ?"
Insérer une ligne vide au dessus de chaque ligne en gras.


Si une ame charitable pouvais m'aider.
Merci par avance

 

[cacaille76]

Re : Insertion lignes selon plusieurs conditions

Re bonjour,

"Mettre en gras les cellules"

sujet résolu en appliquant une mise en forme conditionnnelle.

 

[cacaille76]

Re : Insertion lignes selon plusieurs conditions

Re bonjour,
Sujet résolu.
Voir fichier joint

 

[st007]

Re : Insertion lignes selon plusieurs conditions

Bonjour,

Application.ScreenUpdating = False  ' Supprime les clignottements d'écran et accélère la macro
Sheets("--- EMP ---").Range("A10", "DA2000").ClearContents  évite les .select, pas nécessaire

et Application.ScreenUpdating = True en fin de macro réactive le rafraichissement d'écran.

 

[cacaille76]

Re : Insertion lignes selon plusieurs conditions

Bonjour st007,
Modifications faites.
Merci pour ton aide.
Bonne journée🙂