Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppression de ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion RONIBO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

RONIBO

XLDnaute Impliqué
Bonsoir le forum,

J'ai crée une facture sur excel, il y a quelque code vba dessus

Dont l'une des code concerne le réglage de la hauteur des ligne



If Len(Cells(Target.Row, 3)) > 60 Then
Cells(Target.Row, 3).RowHeight = 30
Else
Cells(Target.Row, 3).RowHeight = 15
End If


Parfois dans mes factures la hauteur des lignes peut passer à 30 (doubler) car la désignation peut être long (plus de 60 caractères)

En faisant ceci, sa m'oblige de supprimer une ligne vide, car le tout de facture ne rentre pas sur une page.

C'est pour ça que j'aimerais pouvoir insérer un code qui supprimera automatiquement la ligne suivante (vide) lorsque la hauteur de la ligne précédente passe à 30.

Je vous mets mon fichier concerné

Merci à vous pour votre temps et votre patience

a bientôt

Ce lien n'existe plus
 
Trier par date Trier par votes
Re : Suppression de ligne

Bonjour Ronibo, bonjour le forum,

Peut-être comme ça :
Code: 
   If Len(Cells(Target.Row, 3)) > 60 Then
      Cells(Target.Row, 3).RowHeight = 30
      Rows(Target.Row + 1).Delete
   Else
      Cells(Target.Row, 3).RowHeight = 15
   End If
 
Vote positif 0 Vote négatif
Re : Suppression de ligne

Bonjour,

Le problème en supprimant des lignes c'est que ta zone de selection (lignes 20 à 38) va être modifiée et tu vas finir par appliquer ta macro sur des lignes qui ne le doivent pas...
Une autre solution serait peut-etre de "masquer" les lignes.
Autre chose, il faudrait envisager la possibilité de démasquer ces lignes en cas de besoin.

Je te propose de remplacer ça:
VB: 
If Not Intersect(Target, Range("C20:E38")) Is Nothing And Target.Count = 3 Then
   Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(255, 192, 0)

   If Len(Cells(Target.Row, 3)) > 60 Then
      Cells(Target.Row, 3).RowHeight = 30
   Else
      Cells(Target.Row, 3).RowHeight = 15
   End If

End If

Par ça:
VB: 
If Not Intersect(Target, Range("C20:E38")) Is Nothing And Target.Count = 3 Then
   Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(255, 192, 0)

   If Len(Cells(Target.Row, 3)) > 60 Then
      If Cells(Target.Row, 3).RowHeight = 15 Then testhauteur = 1
      Cells(Target.Row, 3).RowHeight = 30
   Else
      If Cells(Target.Row, 3).RowHeight = 30 Then testhauteur = -1
      Cells(Target.Row, 3).RowHeight = 15
   End If

If testhauteur = 1 Then
For ligne = 38 To 20 Step -1
If Cells(ligne, 1).RowHeight > 0 And Cells(ligne, 1).Value = "" And compte = 0 Then
    Cells(ligne, 1).RowHeight = 0
    compte = 1
    End If
Next ligne
If ligne = 0 Then MsgBox "La facture dépasse 1 page"
End If

If testhauteur = -1 Then
For ligne = 38 To 20 Step -1
If Cells(ligne, 1).RowHeight = 0 And compte = 0 Then
    Cells(ligne, 1).RowHeight = 15
    compte = 1
    End If
Next ligne
End If

End If

en déclarant bien sûr les nouvelles variables (compte, ligne et testhauteur)

Il y a surement moyen d'améliorer...

mikachu
 
Vote positif 0 Vote négatif
Re : Suppression de ligne

Bonjour le fil, le forum,

Merci à vous deux pour vos solutions 😉

Je pense que je vais me pencher sur la macro de Mikachu

Ta solution est plutôt pas mal, c'est une bonne idée de masquer les lignes.

Par contre lorsque une ligne s'efface le trait du bas disparais aussi, tu as une solution à ça?
a+
 
Vote positif 0 Vote négatif
Re : Suppression de ligne

Bonsoir,

J'ai résolu mon problème 🙂

J'ai fusionné la colonne réserve avc la colonne désignation 🙂

Une question j'ai vu que tu as mis un msgbox, a quel moment il s'affiche, je l'ai jamais eu même avc la feuille pleine s)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
562
sofmat
S
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
251
anthoYS
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
478
nabilexcel2007
N
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
686
Stéphane_1
S
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
734
Piment
P
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
3 K
olivier1984
O
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
487
Anthony_51
A
C
  • Résolu(e)
XL 2019 Limiter un code vba que sur 500 lignes
Réponses
2
Affichages
424
ced91300
C
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
835
cathodique
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
440
AlCapone
D
  • Question Question
XL 2010 suppression de lignes dans un fichier EXCEL via une routine en VBA
Réponses
2
Affichages
739
mapomme
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
819
KRUG WOO
K
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…