Copier coller même cellule de plusieurs feuil
dyueo
Messages postés
6
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai fait plusieurs forums sans trouver de réponse à ma question. Je vous soumets donc le problème suivant.
Je souhaite copier la cellule R6 de toutes les feuilles de mon classeur (les noms des feuilles ne se suivent pas) et coller le résultat sur une feuille récap (sur une ligne ou une colonne peu importe).
Voilà si ça se trouve c'est pas compliqué????
Merci
J'ai fait plusieurs forums sans trouver de réponse à ma question. Je vous soumets donc le problème suivant.
Je souhaite copier la cellule R6 de toutes les feuilles de mon classeur (les noms des feuilles ne se suivent pas) et coller le résultat sur une feuille récap (sur une ligne ou une colonne peu importe).
Voilà si ça se trouve c'est pas compliqué????
Merci
A voir également:
- Copier coller même cellule de plusieurs feuil
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Copier coller multiple - Guide
1 réponse
par une petite macro transforme B4 en R6 ou autre
Sub recuperer_B4()
Dim coll As Collection
Dim cptr As Byte, nbre As Byte
Set coll = New Collection
nbre = ThisWorkbook.Sheets.Count
cptr = 1
Do Until cptr = nbre
If Sheets(cptr).Name <> "recap" Then
coll.Add Sheets(cptr).Range("B4").Value
End If
cptr = cptr + 1
Loop
With Sheets("recap")
For cptr = 1 To coll.Count
.Cells(cptr + 1, 2) = coll(cptr)
Next
End With
set cool=nothing
End Sub
