Copier / Coller sur cellules fusionner

bonjour Tibert,

Sub Macro1()
x = 2
For i = 6 To 36 Step 5
Sheets("Feuil2").Cells(4, i) = Sheets("Feuil1").Cells(4, x)
x = x + 1
Next
End Sub

isabelle

Bonjour ;

J’aurais souhaité savoir si il y avait possibilité, je voudrais copier un
résultat de 6 cellules (B4) (C4) (D4) (E4) (F4) (G4) et coller sur 6 cellules
fusionner de la feuille suivante, (F G H 4) (K L M 4) (P Q R 4) (U V W 4) (Z
AA AB 4) (AE AF AG 4)
Salutations.

Bonjour isabelle ;
J’ai testé ton code et je m’aperçois qu’il ne fonctionne pas, mais peut-être
que je n’ai pas bien formulé ma demande.
Le fichier contient plus de 100 feuilles c'est-à-dire deux feuilles par
semaine et la formule que je voudrais mettre en place va fonctionner sur deux
feuilles à chaque fois c’est dire copier 6 cellules (B4) (C4) (D4) (E4) (F4)
(G4) de la feuille précédente sur 6 cellules fusionner de la feuille
suivante, (F G H 4) (K L M 4) (P Q R 4) (U V W 4) (Z AA AB 4) (AE AF AG 4) et
quand je ferrais une copie en sélectionnant les deux feuilles (Ctrl glisser)
la formule fonctionneras avec ma nouvelle copie.
Si ta la solution !

bonjour Tibert,

Sub Macro1()
x = 2
For i = 6 To 36 Step 5
Sheets("Feuil2").Cells(4, i) = Sheets("Feuil1").Cells(4, x)
x = x + 1
Next
End Sub

isabelle

Bonjour ;

J’aurais souhaité savoir si il y avait possibilité, je voudrais copier un
résultat de 6 cellules (B4) (C4) (D4) (E4) (F4) (G4) et coller sur 6 cellules
fusionner de la feuille suivante, (F G H 4) (K L M 4) (P Q R 4) (U V W 4) (Z
AA AB 4) (AE AF AG 4)
Salutations.

bonjour Tibert,

copie cette fonction dans un module standart :

Function Fpr()
Fpr = ActiveSheet.Previous.Name
End Function

et copie cette formulle sur les cellules (F4, K4, P4, U4, Z4, AE4) de la 2ème feuille de chaque pair.

=INDIRECT("'"&Fpr()&"'!"&ADRESSE(LIGNE();PLAFOND(COLONNE()*(1/5);1)))

isabelle

Bonjour isabelle ;
J’ai testé ton code et je m’aperçois qu’il ne fonctionne pas, mais peut-être
que je n’ai pas bien formulé ma demande.
Le fichier contient plus de 100 feuilles c'est-à-dire deux feuilles par
semaine et la formule que je voudrais mettre en place va fonctionner sur deux
feuilles à chaque fois c’est dire copier 6 cellules (B4) (C4) (D4) (E4) (F4)
(G4) de la feuille précédente sur 6 cellules fusionner de la feuille
suivante, (F G H 4) (K L M 4) (P Q R 4) (U V W 4) (Z AA AB 4) (AE AF AG 4) et
quand je ferrais une copie en sélectionnant les deux feuilles (Ctrl glisser)
la formule fonctionneras avec ma nouvelle copie.
Si ta la solution !

bonjour Tibert,

Sub Macro1()
x = 2
For i = 6 To 36 Step 5
Sheets("Feuil2").Cells(4, i) = Sheets("Feuil1").Cells(4, x)
x = x + 1
Next
End Sub

isabelle

Bonjour ;

J’aurais souhaité savoir si il y avait possibilité, je voudrais copier un
résultat de 6 cellules (B4) (C4) (D4) (E4) (F4) (G4) et coller sur 6 cellules
fusionner de la feuille suivante, (F G H 4) (K L M 4) (P Q R 4) (U V W 4) (Z
AA AB 4) (AE AF AG 4)
Salutations.