Appliquer macro en private sub dans une plage de cellule

Bonjour,

J'ai regardé dans les divers forums mais mes maigres connaissances ne m'ont pas permis de voir si un sujet identique au mien a déjà été publié.

Voila mon soucis.

J'ai créé cette macro afin de copier/colle le format et valeur d'une cellule :

Sub test()

Dim i, j As Integer

For j = 3 To 12

For i = 3 To 12

Sheets("Feuil1").Cells(i, j).Copy

With Sheets("Feuil1")

.Cells(j, i).PasteSpecial Paste:=xlPasteValues

End With

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

Next i

Next j

End Sub

J'aimerai que cette macro fonctionne dès qu'il y a un changement dans une cellule appartenant à un tableau 10*10. Je sais que l'on peut utiliser le private sub mais je ne sais comment l'utiliser.

Merci d'avance pour vos piste.

Bonjour. Bienvenue sur le Forum

J'aimerai que cette macro fonctionne dès qu'il y a un changement dans une cellule appartenant à un tableau 10*10.

Ce changement est du au résultat d'une formule ou à une saisie dans ce tableau.?

Un fichier Excel serait bienvenu

cordialement

Oui aucun soucis pour le fichier.

Et pour répondre à ta question Amadéus, ce changement serait dû à une saisie dans ce tableau.

Merci d'avance.

Bonjour

A tester

Cordialement

Merci beaucoup Amadéus. Ca a l'air de fonctionner comme je le souhaite mais par contre dès qu'on augmente la taille du tableau la macro tourne comme si elle passait toutes les cases pour exécuter la commande.

Cordialement.

Bonjour

Il faut modifier le champ d'application dans le Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:L12")) Is Nothing Then
On Error Resume Next
Call test
End If
End Sub

Cordialement