Supprimes et ajoute des lignes sous condition

[bossman_16]

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

 

[phlaurent55]

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

à+

 

[Efgé]

Re : Supprimes et ajoute des lignes sous condition

Bonjour phlaurent55, bossman_16
Remplacez Bouton2 par:

Sub Bouton2_QuandClic()
Dim derlig
derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
Range(derlig & ":" & derlig).Insert xlShiftDown
End Sub

Cordialement

 

[bossman_16]

Re : Supprimes et ajoute des lignes sous condition

merci frere

 

[Efgé]

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...

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

Cordialement.

 

[bossman_16]

Re : Supprimes et ajoute des lignes sous condition

ça renverse care men ma formule frere

 

[bossman_16]

Re : Supprimes et ajoute des lignes sous condition

1000 merci frère ça marche impeccable

 

[phlaurent55]

Re : Supprimes et ajoute des lignes sous condition

Re,

je vois que la soluce est arrivée pendant mon absence

je poste quand même

à+
Philippe
.

 

[bossman_16]

Re : Supprimes et ajoute des lignes sous condition

merci mes freres

 

[phlaurent55]

Re : Supprimes et ajoute des lignes sous condition

Re,

merci mes freres

faudra que je pose des questions à mon père

à+

 

[bossman_16]

Re : Supprimes et ajoute des lignes sous condition

y a t il une solution a mètre dans le boutant 1 a fin d'épargner la ligne 6 et 7 et ce la a fin de ne pas supprime care ment la tableaux

 

[phlaurent55]

Re : Supprimes et ajoute des lignes sous condition

Re,

voici .........................; avec commentaires sur la feuille
à+
Philippe
.

 

[Fo_rum]

Re : Supprimes et ajoute des lignes sous condition

Salut,

ajoute cette ligne juste après la définition de ta variable Derli...*

...
  If Derli[B]...[/B] < 8 Then Exit Sub
...

Derlig ou derligne selon le frère choisi !

 

[Efgé]

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

 

[Efgé]

Re : Supprimes et ajoute des lignes sous condition

EDIT : Bonjour Fo_rum,
phlaurent55, je n'avais même pas vu la liste sur la feuille....
En retard mois après le déjeuner.