Masquer certaines cellules vides

Bonjour,

Je sollicite votre aide dans la réalisation d'une formule ou macro (voir fichier joint) :

A partir d'un tableau, je souhaite masquer les cellules vides qui ne sont pas en gras soit avec un double critère ; la valeur (nulle) et la mise en forme, Ex :

FRAIS D'ETABLISSEMENT - > Pas masqué

FRAIS D'ETABLISSEMENT 20100000 - > Masqué

FRAIS DE CONSTITUTION 20110000 - > Masqué

FONDS COMMERCIAL 150 000,00 > Pas masqué

DROIT AU BAIL 20600000 - > Masqué

FONDS COMMERCIAL 20700000 150 000,00 > Pas masqué

Par ailleurs, je me demandais s'il était aussi possible d'ajouter automatiquement des lignes via les données de la Balance_Import soit :

Toutes les lignes comprises entre les comptes 20500000 et 27500000 donnant donc :

20500000 CONCESS. BREVETS LICENCE 2937,5

20700000 FONDS COMMERCIAL 150000

21450000 AAI CONSTR./SOL D'AUTRUI 171865

21480000 PARKING & ACCES/SOL AUTR. 12386

21500000 MATERIEL ET OUTILLAGE 291761,4

21810000 INST GALE.& AMEN.DIVERS 432889,17

21840000 MAT.& MOB. DE BUREAU 6655,45

27500000 DEPOT DE GARANTIE VERSE 29318,49

Un grand merci d'avance et à bientôt.

16test-balance.zip (26.72 Ko)

Bonsoir,

un essai voir si ça te va.

Cordialement.

21test-balance.xlsm (79.80 Ko)

Excellent ! C'est exactement ce qu'il me fallait !

Merci énormément.

Par ailleurs, pour la deuxième partie du problème (copie d'une plage de cellules selon un critère particulier), est-ce possible ?

Bonjour,

explication rapide du code :

Sub masquer()

Application.ScreenUpdating = False

derligne = Range("F" & Rows.Count).End(xlUp).Row 'compte le nb de ligne remplie dans la colonne F si autre colonne modifier la lettre

For i = 8 To derligne

If Range("B" & i).Font.Bold = False And Range("F" & i) <> "" And Range("F" & i) = 0 Then ' Test ici si colonne B est en gras et colonne F différent de vide ou égale à 0 pareil modifier les lettres ici si ce n'est pas les mêmes colonnes

Rows(i).Hidden = True

End If

Next i

Application.ScreenUpdating = True

End Sub

Pour ta 2ème demande surement mais où faut il copier les lignes exactement.

Cordialement

Merci pour l'explication, c'est beaucoup plus clair pour moi maintenant .

Pour la 2ème partie, l'idée est qu'on part d'une balance comptable importée avec des comptes qui ont pu être créés entre deux importations.

C'est à dire des lignes supplémentaires dans la balance import qui devront s'ajouter à la feuille "Détail Actif" avec le même shéma :

Libellé du compte - numéro du compte - montant ou fonction de recherche du montant

Ex : FONDS COMMERCIAL - 20700000 - 150 000,00

Donc ces nouvelles lignes devront être ajouté entre certains éléments, exemple :

La ligne fonds commercial comprend les comptes 206 à 207 mais si un compte 2065 est ajouté, il devrait être placé ainsi :

FONDS COMMERCIAL - 150 000,00

DROIT AU BAIL 20600000 -

EXEMPLE 20650000 - 20 000,00

FONDS COMMERCIAL 20700000 150 000,00

Après, c'est vrai que ça à l'air assez compliquer à faire donc, c'est surtout pour voir si c'est faisable car si c'est trop complexe autant laisser tomber.

Rechercher des sujets similaires à "masquer certaines vides"