Affichage d'une feuille sur une autre

Bonjour tout le monde. SVP je cherche

14classeur1.xlsx (10.21 Ko)

comment faire pour afficher les informations en rouge et leur entêtes de la première feuille sur une autre feuille

Bonjour angel121, le forum,

Pas sur d'avoir bien compris.....la macro se déclenche à l'activation de la feuille 2...

Private Sub Worksheet_Activate()
 Dim i As Integer, dercol As Integer

  Application.ScreenUpdating = False

  dercol = 1
   With Sheets("Feuil2")
   .Cells.Delete: .Cells.Borders.LineStyle = xlNone
   End With

   With Sheets("Feuil1")
    For i = 2 To 12
     If .Cells(17, i) > 200 Then
      .Cells(1, i).Copy: Sheets("Feuil2").Cells(1, dercol).PasteSpecial Paste:=xlPasteValues: Sheets("Feuil2").Cells(1, dercol).Borders.Weight = xlThin
      .Cells(17, i).Copy: Sheets("Feuil2").Cells(2, dercol).PasteSpecial Paste:=xlPasteValues: Sheets("Feuil2").Cells(2, dercol).Borders.Weight = xlThin
      dercol = dercol + 1
     End If
    Next i
  End With

  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

Cordialement,

Bonjour à tous,

Juste un petit code à tester qui va recopier les cellules en rouge et leurs entêtes dans la Feuil2.

Je suis resté simple car pas sur non plus d'avoir bien saisie.

13angel121.xlsm (19.42 Ko)

bonjour

je n'étais pas certains non plus de la demande vu l'imprécision et le but final ? Si c'est juste pour avoir l'info sous les yeux à partir d'un autre onglet sans pour

autant qu'elle appartienne à ce nouvel onglet alors vous pouvez aussi utiliser l'option de copier - collage spécial "Image liée"

Rechercher des sujets similaires à "affichage feuille"