macro

[virginie]

salut le forum,


que faut-il ajouter à la fin de cette formule pour que cette macro ne m'ajoute qu'une seule ligne dans la feuille 'Fact. FM12 ' en a6 et qu'il ne me supprime qu'une seule fois la ligne a31.

Sheets("Fact. FM12").Range("A6") = Sheets("Recapitulatif").Range("C1")
Sheets("Fact. FM12").Range("B6") = Sheets("Recapitulatif").Range("E5")
Sheets("Fact. FM12").Range("C6") = Sheets("Recapitulatif").Range("I5")
Sheets("Fact. FM12").Range("D6") = Sheets("Recapitulatif").Range("M5")
Sheets("Fact. FM12").Range("F6") = Sheets("Recapitulatif").Range("E12")
Sheets("Fact. FM12").Range("G6") = Sheets("Recapitulatif").Range("I12")
Sheets("Fact. FM12").Range("H6") = Sheets("Recapitulatif").Range("M12")


End Sub

merci

 

[Hervé]

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é

 

[virginie]

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,

 

[Nanard]

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

 

[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

 

[Nanard]

re nanard,

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

Sorry!

@+

Nanard