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

Jacky67

XLDnaute Barbatruc

• 6 Février 2019

• #2

Myst à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 6 Février 2019

• #3

Bonsoir
20/20, un grand merci

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 12 Février 2019

• #4

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

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 12 Février 2019

• #5

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+

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 12 Février 2019

• #6

Bonsoir Paf
C'est parfait
merci

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 12 Février 2019

• #7

Myst à dit:

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

Cliquez pour agrandir...

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: 12 Février 2019

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 13 Février 2019

• #8

Bonjour jacky67
C'est très claire, je vais faire ça
merci

 

Vote positif 0 Vote négatif