Copier/coller certaines cellules d'une feuille à une autre

Bonjour,

Je connaît absolument rien en vba (ou très peu). Je vous joint mon fichier dans lequel j'explique qu'elle cellule doit être copier et dans quelles feuilles. Merci beaucoup de m'aider

Bonjour Chantal,

un début de solution... très contraignante et réduite au seul cas que tu nous présentes...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim sWk As Worksheet
'
If Not Intersect(Target, Range("J7:L9")) Is Nothing Then
    sSh = Trim(Str(Target.Row - 6))
    Set sWk = Worksheets(sSh)
    sDate = [A2]
    iRow = sWk.Range("A:A").Find(what:=sDate).Row
    Select Case Target.Column
        Case 10
            iCol = 8
        Case 11
            iCol = 10
        Case 12
            iCol = 5
    End Select
    sWk.Cells(iRow, iCol) = Target
End If
'
End Sub

A tester dans ton environnement de travail.

A+

Merci j'ai testé et j'ai une erreur d'éxécution'424'

Salut Chantal,

Aucune erreur chez moi!

Sur quelle ligne, cette erreur?

A+

Salut

C'est vraiment pas ma journée lol, j'ai crée la macro (avec tes données) mais là j'ai un petit problème je ne la vois en nul part ? Ou je dois chercher ?

Merci

Bonjour,

Ne pas oublier d'enregistrer le classeur enreg.sous (Classeur Excel prenant en charge les macros)

crdlt,

André

Voilà le fichier, Chantal!

Le code est dans 'Sommaire'

A+

Je vois que ton fichier fonctionne à merveille mais je ne vois toujours pas la macro donc je ne peux pas la compléter afin que tout ce reporte et je suis bel et bien dans le sommaire

Merci

ouf j'ai trouvé mais il y a seulement la ligne 1 qui ce reporte à la feuille "1" , la 2 ne se reporte pas à la Feuille "2", la 3 ne se reporte pas à la feuille 3 (et j'en ai plus de 1000 à créer) ne se reporte pas. Et j'ai de la difficulté à comprendre ta formule Peux-tu me l'expliquer svp

Merci

Allo j'ai compris. Et tout fonctionne il fallait juste que je mette à jour mes données

Merci beaucoup pour ton aide très précieuse

C'est encore moi J'ai changé la date et le report ne se fait pas dans la colonne H, pourquoi ?

Merci

Peut-être que cela irai mieux pour toi avec le fichier

Bonsoir,

encore une fois, ça fonctionne chez moi, en précisant n'importe quelle date...

Je ne vois pas quoi te dire!

A+

ok merci quand même

J'ai trouvé pourquoi mais je ne sais pas comment corrigé. Dans la colonne J (dans la feuille sommaire) je dois avoir absolument une addition, si j'enlève l'addition et je mets tout simplement un chiffre tout fonctionne

Merci encore une fois

Bonjour Chantal,

voici...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim sWk As Worksheet
Dim sSh As String, sDate As String
Dim iRow As Integer, iCol As Integer
'
sSh = Trim(Str(Target.Row - 6))
Set sWk = Worksheets(sSh)
sDate = [A2]
iRow = sWk.Range("A:A").Find(what:=sDate).Row
'
If Not Intersect(Target, Range("J7:L9")) Is Nothing Then
    iCol = Choose(Target.Column - 10, 10, 5)
    sWk.Cells(iRow, iCol) = Target
End If
'
If Not Intersect(Target, Range("C7:I9")) Is Nothing Then
    sWk.Cells(iRow, 8) = Cells(Target.Row, 10)
End If
'
End Sub

A+

Parfait merci je vais testé cela (quand je vais avoir une minute) comme il faut et je te redonne des nouvelles.

Merci A+

Test concluant merci