copier/coller automatiquement

[ericamour]

hello evry body
j'ai un pétit soucis qui me pourri ma journée de taff je dois terminer ceci avnt de prendre mes vacances
en fait je dois copier des cellules(a1:G1) de la feuille1 et les coller dans la feuille2, et tout ceci dois se faire que lorsque une cellule (h1)de la feuill1 prende la valeur 1.
je veux que la recopie dans la feuille2 se fasse de maniere incrementale.
je sais que je dois utiliser une macro evenementielle mais comment la progrommer?
merci d'avance à vous

 

[JCGL]

Re : copier/coller automatiquement

Bonjour à tous,
Bienvenue à ericamour ,

Et si tu joignais un bout de fichier...
Cela serait plus plus clair pour nous

Au plaisir de te lire
A+ à tous

PS : Private Joke à BH² : encore un qui ne respecte pas la règle JCGLBH²....

 

[Cousinhub]

Re : copier/coller automatiquement

Bonsoir,

deux possibilités :

La cellule H1 est le résultat d'une formule, ou tu entres manuellement la valeur 1 dans la cellule H1 :

Private Sub Worksheet_Calculate()
If [H1] = 1 Then
    With Sheets("Feuil2")
        derlig = IIf(.[A65000].End(xlUp).Row + 1 > 1, 1, .[A65000].End(xlUp).Row + 1)
        .Range(.Cells(derlig, 1), .Cells(derlig, 7)).Value = Range("A1:G1").Value
    End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" And Target = 1 Then
    With Sheets("Feuil2")
        derlig = IIf(.[A65000].End(xlUp).Row + 1 > 1, 1, .[A65000].End(xlUp).Row + 1)
        .Range(.Cells(derlig, 1), .Cells(derlig, 7)).Value = Range("A1:G1").Value
    End With
End If
End Sub

Pour JC, sur ce coup-là, je m'en fous, je suis tout seul chez moi, je peux lire tout haut.....

 

[JCGL]

Re : copier/coller automatiquement

Re,

Ah ben il est trop fort BH² : il comprend les demandes sibyllines et la phraséologie "presque SMS".

A++ Bh ²
A+ à tous

 

[ericamour]

Re : copier/coller automatiquement

lorsque je mets "1" dans cellue h2 de la feuille1, je veux recopier les cellules A2:F2 vers la feuille2 dans les cellules a2:F2
et lorsque je mettrais "1" dans la cellule H4 de la feuille1, je vais recopier les cellules A4:f4 vers la feuille2 dans la cellule A3:F3.
peu importe l'ordre de copier, mais la recopie doit se faire à la suite
merci

 

[Cousinhub]

Re : copier/coller automatiquement

Bonsoir ericamour,

OK, on reprend.....

Tu "désires" une solution.....

Pour t'aider au mieux, nous "désirerions", un cahier des charges le plus précis possible.....

Sans cela, le fil pourrait durer un temps indéfini, donc, si tu pouvais définir un besoin le mieux ciblé possible, avec un fichier exemple, comportant le résultat souhaité......

Parce que 1 dans H6, on copie, mais si on met 0 dans H6, on fait quoi? on supprime l'ancienne ligne, ou on la maintient?

 

[ericamour]

Re : copier/coller automatiquement

si on met 0 dans h6 on supprime ce qui avait été collé