XL 2010 Copier les cellules d'une feuille vers une autre

Myst

XLDnaute Occasionnel
Bonjour a tous
Je bloque sur, comment copier coller les cellules des colonnes A, B et C (A3:C52) de ma feuil1 vers (A11:C60) de ma feuil2 au fur et a mesure que les données sont saisies
merci
 

Pièces jointes

  • Clas.xlsm
    12.4 KB · Affichages: 24

Jacky67

XLDnaute Barbatruc
Bonjour a tous
Je bloque sur, comment copier coller les cellules des colonnes A, B et C (A3:C52) de ma feuil1 vers (A11:C60) de ma feuil2 au fur et a mesure que les données sont saisies
merci
Bonjour,
Une parmi d'autres
A placer dans le module de la Feuil1
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a3:c52")) Is Nothing Then
Range("a3:c52").Copy [feuil2!a11]
End If
End Sub
 

Myst

XLDnaute Occasionnel
Bonsoir
Je reviens car le fichier ne fonctionne pas, j'ai essayé de changer le nom des feuil dans le module de la feuil1 mais j'ai une erreur (la méthode Copy de la classe Range a échoué)
je ne comprend pas
merci
 

Pièces jointes

  • essai 2.xlsm
    22.6 KB · Affichages: 9

Jacky67

XLDnaute Barbatruc
Bonsoir
Je reviens car le fichier ne fonctionne pas, j'ai essayé de changer le nom des feuil dans le module de la feuil1 mais j'ai une erreur (la méthode Copy de la classe Range a échoué)
je ne comprend pas
merci
RE..
Utiliser des noms composés comme nom de feuille n'est pas une bonne idée, c'est sujet à complications
Je conseillerais à renommer "PA62 & 63" (sans espace)
Néanmoins , sans renommer la feuille en question, ceci
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a3:c80")) Is Nothing Then
  Range("a3:c80").Copy ['PA62 & 63'!a11]
End If
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon