Formule vba

guismo33 Messages postés 403 Statut Membre -  
guismo33 Messages postés 403 Statut Membre -
bonjour a tous,

dans une feuil j'ai 30 lignes numeroté 1 à 30, sur chaque ligne des infos,
peut ont copier les informations de chaque ligne sur 30 feuils.
ex: infos ligne 1 sur feuil1 , ligne 2 sur feuil2
en sachant que les infos a copier sont au même endroit.

merci a tous

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    DOUBLON

    https://forums.commentcamarche.net/forum/affich-34408487-formule

    si un bénévole taillable et corvéable à merci ne te répond pas de suite, tu encombres le forum en créant un doublon ?

    0
    1. guismo33 Messages postés 403 Statut Membre 2
       
      Bonjour michel,

      non ce n'est pas un doublon, dans la formule précédente je prend l'infos sur 1 ligne
      et l’intégré dans une feuil.
      ma demande , avec la même formule , j'ai 30 lignes et donc 30 feuils N° de 1 à 30
      de prendre l'info ligne 1 et mettre dans feuil1, prendre l'info ligne 2 et mettre dans feuil 2
      pour ne pas copier la formule 30 fois.

      merci a toi
      Sub Macro1()
      Dim lig As Long

      With Sheets("DD")
      lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
      .Cells(lig, "A").Value = Date
      For j = 15 To 23
      If ActiveSheet.Cells(5, j) <= 3 Then
      .Cells(lig, j - 13) = ActiveSheet.Cells(5, j)
      End If
      If ActiveSheet.Cells(5, j) <= 4 Then
      .Cells(lig, j - 4) = ActiveSheet.Cells(5, j)
      End If

      Next j
      End With

      End Sub


      Bien à vous
      0