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

Willkaaa.ka

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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
 

Pièces jointes

  • Willkaaa.ka- Test- v1.xlsm
    33.2 KB · Affichages: 22
Dernière édition:

Willkaaa.ka

XLDnaute Nouveau
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..
:)
 

Pièces jointes

  • Willkaaa.ka- Test-.xlsx
    85.6 KB · Affichages: 5

Willkaaa.ka

XLDnaute Nouveau
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,
 

Pièces jointes

  • Willkaaa.ka- Test-.xlsm
    76.7 KB · Affichages: 1
Dernière édition:

Willkaaa.ka

XLDnaute Nouveau
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:
1603902484547.png

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