XL 2016 Supprimer de lignes

Raffa

XLDnaute Nouveau
Bonjour,

Ce sujet a été déjà traité, je l'ai lu et relu mais je n'arrive pas à l'appliquer sur mon projet:(

Bon, je l'avoue je ne suis pas très doué!

J'ai plusieurs feuilles d'articles que je résume dans une feuille "récapitulative" mais inévitablement j'ai des lignes vides pour mon devis.

J'ai créer un exemple que je met en pièce jointe.

Si vous voulez bien me venir en aide.

D'avance merci

H.
 

Fichiers joints

fanfan38

XLDnaute Accro
Bonjour
J'espère avoir résolu ton problème par macro....
Quand tu sélectionnes la feuille récap celle ci se met à jour
On peut très bien se passer de la feuille récap et faire la même chose directement sur la feuille Devis...
A+ François
 

Fichiers joints

Efgé

XLDnaute Barbatruc
Bonjour Raffa, Bonjour fanfan38
Une version par formules matricielles ( à valider par ctrl+maj+entrée ).
Les cellules fusionnées sont toujours sources d'ennuis et devraient être interdites par l'ONU.

Cordialement
 

Fichiers joints

Raffa

XLDnaute Nouveau
D'abord un grand merci à vous deux de vous être occupé de mon cas lol

Pour être parfaitement cohérent avec moi même, vu le temps que ça vous a pris et vu le nombre d'heures que j'ai passé à essayer de faire quelque chose qui n'a même pas réussi à ressembler à votre retour... Je vais me surestimer en disant que je suis franchement nul!!!
Mais bon, je n'avais pas de prétentions, (maintenant encore moins mdr)

Les deux solutions me conviennent, bien sur, c'était "mon rêve" mais...

Fanfan de l'Isère je ne sais pas où est la macro:(, parce que bien entendu il faut que je puisse la mettre sur un autre fichier excel, tu me dis que je peux me passer de la feuille récap, ok, je suis d'accord pour les économies de temps mais c'est un grand brouillard pour moi, je sais que mon "projet est plein de formules et pages superflues...si tu as des idées, je suis preneur ;+)

Efgé, c'est parfait aussi, les cellules fusionnées me servent à faire une page de devis imprimable, je n'ai pas vu d'autres possibilité... J'ai tourné le dos, l'Onu derrière moi... J'ai osé lol
Evidement, si il y a d'autres solutions, loin de moi l'envie de me détourner de ce monde hein ;+)

Franchement, merci à vous deux, je suis, stupéfait!
C'est la première fois que je m'inscrit sur un forum (pour excel, je suis plutôt forum chant d'habitude) et je vous avoue que je suis très impressionné, de votre rapidité et surtout de votre gentillesse.

Muchas gracias Hombres
 

Raffa

XLDnaute Nouveau
Bonjour à tous,

Tout fonctionne très bien mais à l'impression j'ai un petit souci :
Si je n'ai que 3 articles, j'ai quand même 6 pages... Je souhaite en garder une complète au minimum et plus si besoin est.

Y a t'il aussi une possibilité pour que la hauteur d'une ligne puisse changer en fonction de son contenu?

Je vous joins un pdf complet de mon impression et les codes que vous m'avez donné pour supprimer les lignes :

Private Sub Worksheet_Activate()
Dim lig As Long, derlig As Long, i As Long
Range("D10:N121").ClearContents
derlig = Sheets("Requetes").Range("C" & Rows.Count).End(xlUp).Row
lig = 10
For i = 10 To derlig
If Len(Sheets("Requetes").Range("C" & i).Value) > 0 Then
Range("D" & lig).Value = Sheets("Requetes").Range("C" & i).Value
Range("E" & lig).Value = Sheets("Requetes").Range("D" & i).Value
Range("F" & lig).Value = Sheets("Requetes").Range("E" & i).Value
Range("K" & lig).Value = Sheets("Requetes").Range("F" & i).Value
Range("L" & lig).Value = Sheets("Requetes").Range("G" & i).Value
Range("M" & lig).Value = Sheets("Requetes").Range("H" & i).Value
Range("N" & lig).Value = Sheets("Requetes").Range("I" & i).Value
lig = lig + 1
End If

Next
End Sub

Bonne journée

H.
 

Fichiers joints

fanfan38

XLDnaute Accro
Bonjour
J'espère avoir répondu à ton problème...
les lignes
Rows(lig).AutoFit 'règle la hauteur automatiquement
If Rows(lig).RowHeight < 20 Then Rows(lig).RowHeight = 20 'hauteur mini réglé sur 20

Ensuite j'ai fait 3 pages... si la 1ère est pleine l'appli va directement sur la 2ème et ainsi de suite...
Quand tu clic sur impression (message) l'appli regarde si il y a des données sur la 3ème et la 2ème page...

Ton problème venait certainement de Range("D10:N121").ClearContents
A+ François
 

Fichiers joints

Raffa

XLDnaute Nouveau
Bonjour mon bon François ;+)

Je vais essayer dès maintenant et je te tiens au courant (je n'ai aucun doute sur ce que tu as fait mais plutôt sur ma capacité à le mettre en oeuvre lol)

Déjà un grand merci et @peluche

H.
 

Raffa

XLDnaute Nouveau
Bonjour à tous,
Je n'y arrive pas!
Mon souci est qu'il faut que je garde la 1ère partie du devis (en bleu) qui est l'entête et la fin (en bleu aussi) qui totalise le devis.
Je me suis peut-être mal exprimé, ce dont j'ai besoin c'est s'insérer des lignes d'articles entre l'entête et le total...
j'ai dû zipper le fichier il ne se télécharge pas.

Si un magicien passe par là lol

D'avance merci

H.
 

Fichiers joints

fanfan38

XLDnaute Accro
Bonjour,
J'espère que ma réponse te convient...
La hauteur de cellule en automatique ne marche pas pour des cellules fusionnées (j'ai contourné le problème)...
Ton appli c'est une vrai usine à gaz...
J'ai donc copié les données de la feuille "requête" pour mes essais...
Je te souhaite de réussir à faire ce que tu souhaites...
Bon courage
Tien moi au courant...
A+ François
 

Fichiers joints

Raffa

XLDnaute Nouveau
Merci pour ton aide précieuse François, je sais que c'est une usine à gaz, c'est fait sur la base de "non connaissance" lol mais c'est ce dont j'ai besoin pour "simplifier" mes calculs pour les devis... au fur et à mesure j'essaie de modifier en "m'améliorant"...

Sympa de ta part ;+)

Je te souhaite une excellente journée et, bien entendu je te tiens informé

H.
 

Discussions similaires


Haut Bas