XL 2013 Répéter une valeur de cellule d'après sa feuille précédente

[Willkaaa.ka]

Bonjour à tous,

J'espère que vous allez arrivé a m'aider, je suis pommé..
Je bosse depuis hier avec des "macro", j'ai réussi a faire un classeur avec les noms des onglets d'après une liste..
Maintenant j'ai deux questions que je n'arrive pas à résoudre

1- J'aimerai répéter des valeurs d'apres leurs précédentes:
(D9:11) de ma feuille 2154b (feuille 46) soit égale à la précédente 2154a(feuille 45) en (D9:11)
(D9:11) de ma feuille 2155b (feuille 48) soit égale à la précédente 2155a(feuille 47) en (D9:11)
et ainsi de suite sachant que mes onglet sont déja tous crées et n'ont jamais le même nom.. et j'en ai 280.. 🙁

2- Toutes les feuilles portant la lettre"b" je voudrais qu'elle soient de couleur rouge (code 3)
Toutes les feuilles portant la lettre"a" je voudrais qu'elle soient de couleur verte (code 43)

Merci de votre retour,

Cordialement,

Willy

 

[mapomme]

Bonsoir @Willkaaa.ka, bienvevue sur XLD 🙂,

Voir un essai dans le fichier joint. Cliquer sur le bouton Text de la feuille Feuil1.
C'est la zone D9: D11 qui a été considérée (D9:11 est inconnu chez moi).

le code est dans module1 :

Sub test()
Dim x
   For Each x In ThisWorkbook.Worksheets
      If LCase(Right(x.Name, 1)) = "b" Then
         x.Tab.Color = RGB(255, 0, 0)
         x.Range("d9:d11") = ThisWorkbook.Worksheets(Left(x.Name, Len(x.Name) - 1) & "a").Range("d9:d11").Value
      ElseIf LCase(Right(x.Name, 1)) = "a" Then
         x.Tab.Color = RGB(0, 255, 0)
      End If
   Next x
End Sub

 

[Willkaaa.ka]

Bonsoir Mapomme,

Merci de ton accueil et de ton retour,

Alors je ne suis pas un expert je débute, je vois que ton test couleur et répétition de valeur marche très bien,
Cependant je me suis surement mal exprimé,
Je te joins un fichier, aujourd’hui je crée des trames sans valeurs mais le jour ou l'on rempli la feuille xxxx J je voudrais que cette valeur se répète dans la suivante xxxx NW

Et mettre toute mes feuille qui comporte le mot "N/W" soit en rouge

Cela te paraîtra surement plus clair ainsi..
🙂

 

[mapomme]

Bonjour @Willkaaa.ka,

• je n'ai pas compris : quelle plage est à recopier ?

• doit-on copier et coller en tant que valeur ?
• ou bien peut-on mettre une formule sur la plage des onglets NW pour refléter les valeurs de l'onglet J précédent ?

 

[Willkaaa.ka]

Bonjour @mapomme,

Je te joins un fichier plus parlant,

1- J'aimerai répéter des valeurs d’après leurs précédentes:
(D9: D11) de ma feuille BP 51004.01 N/W (feuille 46) soit égale à la précédente BP 51004.01 J(feuille 45) en (D9: D11)
(D9: D11) de ma feuille BP 56005.01 N/W (feuille 68) soit égale à la précédente BP 56005.01 J(feuille 67) en (D9: D11)
Idem pour mes cellules (D14: D22) et (B24:E31)
et ainsi de suite sachant que mes onglets sont déjà tous crées et n'ont jamais le même nom.. et j'en ai 280..

Actuellement j'ai fais un copier coller des valeurs..


Merci d'avance,

 

[Willkaaa.ka]

Bonjour à tous,

Pour information,
J'ai trouver la solution a mon problème N°2 (Couleur Onglet) voici ce qu'il faut insérer pour ma part:

Plus qu'a résoudre le problème des valeurs...
🙂