XL 2013 copie colonne sur plage de cellule

[matte]

bonjour le forum,
est t'il possible de faire cela svp
merci

 

[sylvanu]

Bonsoir Matte,
Un essai à tester en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("W12")) Is Nothing Then
        If Target <> "OFF" Then
            For L = 12 To 19
                Cells(11 + Target, 35 + L - 12) = Cells(L, "AD")
                Cells(11 + Target, 44 + L - 12) = Cells(L, "AF")
                Cells(11 + Target, 53 + L - 12) = Cells(L, "AG")
            Next L
        End If
    End If
Fin:
End Sub

La macro se déclenche sur une modification de W12.

 

[matte]

bonjour sylvanu,
merci pour votre aide, c'est bien ce que je chercher à faire, je n'y parvenais pas avec l'éditeur de macro
es ce qu'il serai possible d'y ajouter ,si en w12 il y à RAZ les trois tableau on sont copier les données soit effacé ?
merci

 

[sylvanu]

Il suffit de rajouter :

If Target = "RAZ" Then
  Range("AI12:BH31").ClearContents
End If

 

[job75]

Bonsoir matte, sylvanu,

Pas besoin de VBA.

Sélectionner AI12:AP12, entrer la formule et valider par Ctrl+Maj+Entrée, puis tirer vers le bas :

=SIERREUR(TRANSPOSE(--(""&$AD$12:$AD$19))/($W$12=LIGNE()-11);"")

Même chose pour les 2 autres tableaux à droite, fichier .xlsx joint

Edit : formule corrigée pour éviter la fonction SI.

A+