copier coller

[chak147]

Bonjour à tous

j'ai un fichier avec 2 feuilles
je veux copier les données des cellules B5,C5,D5.... de la feuil1 dans ceux de la feuil2 D14,F14,H14...
sachant que les colonnes E14,G14,I14... sont masquées et je veux qu'elles le reste
vous trouverez ci joint l'exemple (Excel 2010)
Merci

 

[Misange]

Re : copier coller

Bonjour

en feuille 2 D14 tu écris = feuil1!B5 (en ajustant bien sur le nom des feuilles et des cellules. Ou plus simple tu te places dans la cellule D14 de la feuille 2 tu tapes = et tu vas ensuite cliquer dans la cellule de ton choix sur l'autre feuille.

 

[chak147]

Re : copier coller

Merci pour ta réponse mais c'est facile
le fichier original est plus grand avec beaucoup de lignes et colonnes
je veux copier tte la la ligne 5 de la feuil1 et la coller dans la ligne14 de la feuil 2

 

[Misange]

Re : copier coller

Je ne connais pas de solution permettant d'écrire dans une colonne sur deux en n'écrivant rien dans les cellules masquées. Je passe donc.

 

[job75]

Re : copier coller

Bonsoir chak145, Misange,

Entrer en Feuil2!D14 cette formule, à tirer vers la droite :

=SI(MOD(COLONNES($D14:D14);2);DECALER(Feuil1!$A5;;COLONNES($C14:D14)/2);"")

Ainsi il y aura le texte vide "" en E14 G14 I14 K14.

Si l'on préfère zéro en E14 G14 I14 K14 :

=MOD(COLONNES($D14:D14);2)*DECALER(Feuil1!$A5;;COLONNES($C14:D14)/2)

A+

 

[job75]

Re : copier coller

Re,

Et en N14 il sera mille fois mieux d'entrer =SOMME(D14:L14)

A+

 

[job75]

Re : copier coller

Re,

Maintenant si l'on ne veut pas toucher aux valeurs qui se trouvent en E14 G14 I14 K14 M14, exécuter cette macro :

Sub Copie()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim source As Range, dest As Range, n
Set source = Feuil1.[B5:F5] 'plage à adapter
Set dest = Feuil2.[D14] 'à adapter
For n = 1 To source.Count
  dest.Offset(, 2 * n - 2) = source(n)
Next
End Sub

A placer dans n'importe quel module VBA (Alt+F11).

En N14 on entrera :

=SOMMEPROD((MOD(COLONNE(D14:L14);2)=MOD(COLONNE(D14);2))*D14:L14)

Enfin enregistrer le fichier en .xlsm (acceptant les macros) ou .xls.

A+

 

[chak147]

Re : copier coller

merci pour vos réponses
job75 merci