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

Supprimes et ajoute des lignes sous condition

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 !

bossman_16

XLDnaute Junior
Bonjour je viens vous demander de l'aide je cherche une solution pour mon projet
Voila :
J’ai un tableau a qui je veux ajoute des lignes avant la case TOTAL et que je puisse aussi les supprimes et que ça soit avant la case total aussi, j’ai mon exp. Comme pièce jointe, la suppression marche bien mais quand je veux ajouté une ligne ça se rajoute pas avant le case TOTAL et sais ça mon problème, quel qu’un peux corrigé ma macro SVP
 

Pièces jointes

Re : Supprimes et ajoute des lignes sous condition

Bonjour bossman, et bienvenue sur le forum

le probléme vient de ta zone nommée "mon_tableau" qui n'évoule pas à chaque ajout de lignes

je modifie quand j'aurais le temps

à+
 
Re : Supprimes et ajoute des lignes sous condition

Bonjour phlaurent55, bossman_16
Remplacez Bouton2 par:

Code:
Sub Bouton2_QuandClic()
Dim derlig
derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
Range(derlig & ":" & derlig).Insert xlShiftDown
End Sub
Cordialement
 
Re : Supprimes et ajoute des lignes sous condition

Re
Pendant que vous y êtes changez aussis la première, plus de problème de tableau...

Code:
Sub Bouton1_QuandClic()
Dim derlig
derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
Range(derlig - 1 & ":" & derlig - 1).Delete
End Sub

Cordialement.
 
Re : Supprimes et ajoute des lignes sous condition

Salut,

ajoute cette ligne juste après la définition de ta variable Derli...*
Code:
...
  If Derli[B]...[/B] < 8 Then Exit Sub
...

Derlig ou derligne selon le frère choisi !
 
Re : Supprimes et ajoute des lignes sous condition

Re à tous,
bossman_16
Quand vous avez des questions à poser il est préférable de les poser dans le fil pour que tous le monde puisse suivre le déroulement. (évitez les messages privés).
Si non voila le fichier.
phlaurent55
faudra que je pose des questions à mon père 😕
Moi c'est ma mère qui va être surprise... 😀
Cordialement
 

Pièces jointes

- 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

Réponses
5
Affichages
352
D
Réponses
1
Affichages
587
darbouka33
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…