Boucle avec plusieures feuilles???

[Gexk5]

Bonjour le forum, les gens

Voici mon problème, sur ma feuille Base, j'ai en colonne A36 à A300 une liste de noms, j'aimerai que cette liste soit reportée sur trois autres feuilles Feuil6,7 et 8 en colonne R à partir de R1, ( ceci pour la simple raison que si je modifies ma liste sur la base, je voudrais que les autres se mettent à jours automatiquement, avec les fonctions ca me marque #REF# si je supprime une ligne!!!)
Avec l'enregistreur de macro , j'ai obtenu un bout de code avec 4 lignes , mais sur 260 , j(y suis encore demain avec l'enregistreur de macro!!!!
Voici mon bout de code, quelqu'un a t il une idée pour que la liste soit reportée??????et mise à jour si modif???

Sub liste_nom()

Range("R3").Select
ActiveCell.FormulaR1C1 = "=BASE!R[33]C[-17]"
Range("R4").Select
ActiveCell.FormulaR1C1 = "=BASE!R[33]C[-17]"
Range("R5").Select
ActiveCell.FormulaR1C1 = "=BASE!R[33]C[-17]"
Range("R6").Select
ActiveCell.FormulaR1C1 = "=BASE!R[33]C[-17]"

End Sub

Merci à tous ceux qui s'intersseront à mon sujet
@micalement

 

[pierrejean]

Re : Boucle avec plusieures feuilles???

bonjour GexK5

essaie cette methode:

en R1 ecris =
ensuite va dans la feuille Base cellule A36 selectionne et appuie sur Enter

en R1 tu dois avoir =Base!A36

il ne te reste plus qu'a selectionner le coin inferieur droit de ta cellule R1 et à tirer vers le bas

 

[Gexk5]

Re : Boucle avec plusieures feuilles???

Bonjour Pierrejean
La methode que tu me donnes est celle que j'avais auparavant, le problème est que si je supprime ou rajoute une ligne , cela ne va plus , je pensais qu'il etait possible de le faire par macro et qu'a chaque ouverture du fichier , cela remettrai tout a jour en automatique.

Merci quand mème
@micalement

 

[XanorK]

Re : Boucle avec plusieures feuilles???

Bonjour Gexk5, pierrejean, le forum

Voila qui copie sur 3 onglets



XanorK

 

[_Thierry]

Re : Boucle avec plusieures feuilles???

Bonjour Gexk5, PierreJean, Xanork, le Forum

Une autre approche...

Option Explicit
Sub ReportData()
Dim RangeSource As Range
Dim WS As Worksheet
 
 
With ThisWorkbook.Worksheets("BASE")
    Set RangeSource = .Range(.Range("A36"), .Range("A5000").End(xlUp))
End With
 
 
For Each WS In ThisWorkbook.Worksheets
    Select Case WS.Name
        Case "Feuil6", "Feuil7", "Feuil8"
            WS.Columns(18).ClearContents
            RangeSource.Copy WS.Range("R1")
    End Select
Next
End Sub

Bonne fin de journée

@+Thierry
​

 

[Gexk5]

Re : Boucle avec plusieures feuilles???

Re Bonjour, Thierry, xanork , pierrejean

Merci beaucoup, avec vos propositions (differentes), je vais m'en sortir , je n'ai que l'emarras du choix

encore merci
@micalement

 

[pierrejean]

Re : Boucle avec plusieures feuilles???

re a tous

encore une petite derniere (pour la route)

Sub recopie()
Dim m As Integer
Dim n As Integer
 For n = 6 To 8
     Sheets("Feuil" & n).Columns(18).ClearContents
  For m = 36 To Sheets("Base").Range("A65536").End(xlUp).Row
    Sheets("Feuil" & n).Range("R" & m - 35).FormulaLocal = "=Base!A" & m
  Next m
 Next n
End Sub