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
 

Fichiers joints

Jacky67

XLDnaute Accro
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
 

Fichiers joints

Paf

XLDnaute Barbatruc
Bonjour,

On peut utiliser cette écriture plus adaptée avec des noms de feuille "tarabiscotés":
VB:
Range("a3:c80").Copy  Worksheets("PA62 & 63").Range("A11")
A+
 

Jacky67

XLDnaute Accro
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


Haut Bas