formules

[bossman_16]

formules avec (vba)

bonjour tout le monde voila je suis de retour avec le même exp la question et la suivante:

est il possible lord de l'insertion des lignes dans mon tableau de faire copier les formules au faire et a mesure de la ligne originale vers la ligne qui ce rajoute, y comprit le total général ?MERCI

 

[bossman_16]

Re : formules

y a t il une réponse a mon msg svp

 

[jeanpierre]

Re : formules

Bonjour bossman_16,

Regarde si cela te convient

Bonne journée.

Jean-Pierre

 

[bossman_16]

Re : formules

ça marche bien, mais il y a un petit problème quand je clic sur le bouton efface
et je me retrouve sur la ligne 7 puis je clic sur ajoute il y a le msg ( erreur d'exécution) qui s'affiche

 

[jeanpierre]

Re : formules

Re,

Remplace ta sub par :

Sub Bouton1_QuandClic()
derligne = Range("B65535").End(xlUp).Row - 1
If derligne > 7 Then
derligne = derligne - 1
Rows(derligne).Select
Selection.Delete Shift:=xlUp
End If
Range("A1").Select
End Sub

Jean-Pierre

 

[bossman_16]

Re : formules

excellant mon ami, mais y a le total générale qui ne fonctionne pas

 

[bossman_16]

Re : formules

ouf!!! ça marche a merveille un grand merci
cordialement
bossman

 

[jeanpierre]

Re : formules

Re,

Normal si tu as supprimé toutes les lignes car cela initialise la somme à une seule ligne.

Joint fichier modifié avec : If derligne > 8 Then

et remise en état de la somme.

 

[bossman_16]

Re : formules

exactement ce que j'ai fait brave aux vous été un génie

 

[jeanpierre]

Re : formules

Re,

C'est très bien, alors.

Je n'avais pas vu que tu avais trouvé entre-temps, occupé à modifier et à te répondre.