macro

bonjour virginie

Ton post manque de clarté, qu'entend-tu par :

"qu'une seule ligne dans la feuille 'Fact. FM12 ' en a6"
"qu'il ne me supprime qu'une seule fois la ligne a31"

Au plaisir de te lire

Salut
Hervé

bonjour HERVE,

j'insère des éléments de la feuille récapitulatif vers la feuille FM12 sur une meme ligne dans un tableau et pour que les résultats viennent s'ajouter dans mon tableau les uns à la suite des autres, je voudrais inserer une ligne au début de mon tableau et supprimer une ligne a la fin.
chaque fois que j'executerais ma macro les résultats(les lignes) s'accumuleront dans mon tableau.

j'espere que mes explications ne sont pas trop brouillons.
si je ne suis pas assez claire je t'enverrais une pièces jointes.
merci,

Bonjour virginie,

Explication:

Sheets("Fact. FM12").Range("A6") = Sheets("Recapitulatif").Range("C1")
'mettre le contenu de la feuille Recapitulatif, de la cellule C1 dans la feuille Fact.M12 de la cellule A6
Si les autres lignes de code qui font la même chose dans des destinations de cellules différentes te servent ajoutent les en 3° ligne du code !
Code:

Sub essaiNanard()
Dim resultat As Integer
Dim c As Variant
resultat = Sheets("Recapitulatif").range("C1")
c = Sheets("Fact.M12").range("A31")
Sheets("Recapitulatif").range("A6") = resultat
If c = "" Then
Exit Sub
Else
Sheets(1).Select
Rows("31:31").Select
Selection.Delete Shift:=xlUp
range("A1").Select
End If
End Sub

J'ai ajouté une "astuce" si la cellule A31 est vide pas de suppression de ligne si c'est plutôt B31 qui a un contenu changer et mettre B31 en lieu et place de A31

pas essayé ,mais ça doit marcher!

@+

Nanard

re nanard,

dans le code ci-dessus je n'ajoute aucune ligne , je supprime la ligne 31 si a31 contient une valeur!

sinon explique à quel niveau ajouter une ligne

@+

Nanard

re nanard,

Oups, plutôt ajouter tes les lignes de code après celle là :
c = Sheets("Fact.M12").range("A31")

Sorry!

@+

Nanard