Microsoft Excel

Flodio -  
Bonjour,

Je suis en a50 en appuyant sur ENTER je voudrais aller en d16 comment ca marche ?

8 réponses

  • Votes
  • Date
  • Date décroissante
  1. ccm81
    1. ?
    3. OK
    Je t'ai écrit le début, c'est à toi de continuer
    http://www.cjoint.com/c/EIhrtaFgubo

    Cordialement
    1. ccm81
      1. Pour A50 et D50 ne fonction pas ,
      Je ne comprends pas, chez moi ça fonctionne, je te renvoie le fichier
      http://www.cjoint.com/c/EIhqIhYAr7o
      Je mets une valeur en A50, je valide, le curseur se place en D50
      2. tu ne réponds pas à cette question
      Tes tableaux n'ont pas tous le même nombre de lignes, et ne sont pas disposés régulièrement (verticalement) dans la feuille
      Est ce normal ?
      3. Exactement j'aimerais comme tu la dit qu'une fois le tableau 3° rempli, que je me retrouve au debut du tableau 4° et ainsi de suite .j'ai vraiment du :/
      ça va dépendre de ta réponse au point 2
      1. Flodio1337
        1 . https://www.youtube.com/embed/s6lE5AtfoD4
        2. qu'il on pas le meme nombre de ligne ces normal car ce document une fois rempli doit etre imprimer donc page 2,3,4,5,6,7,8 sont different que la page 1, mais verticalement j'ai du mal a saisir ¿¿
        3. prenons par exemple le tableau n°3 de la page 5 par exemple donc en G271 pour finir en page 6 donc en A282 , fonction pas non plus
      2. Flodio1337
        Ci tu savais combien de temps j'ai pris pour fair ce doc excel :(
    2. ccm81
      Il faudrait formuler un peu plus explicitement tes demandes et tes commentaires, je ne peux pas deviner où tu veux en venir

      1. Et qu'est ce que ça donne pour A50 et D50 ?
      2. de G50 a A62 .. .... nouveau !
      Si je comprends, tu veux qu'une fois le 3° tableau rempli, te retrouver au début du 4° (en ligne 62)
      Il suffit de compléter le code
      MAIS
      Tes tableaux n'ont pas tous le même nombre de lignes, et ne sont pas disposés régulièrement (verticalement) dans la feuille
      Est ce normal ?
      Si oui, il faudra compléter la macro cas par cas
      Sinon, on doit pouvoir faire plus simple
      1. Flodio1337
        Pour A50 et D50 ne fonction pas ,
        Exactement j'aimerais comme tu la dit qu'une fois le tableau 3° rempli, que je me retrouve au debut du tableau 4° et ainsi de suite .j'ai vraiment du :/
    3. ccm81
      Tu as parlé de A50, D50 dans ta demande (post #2)
      1. Flodio1337
        Oui dsl , donc de A50 a D16 De D50 A G16 et de G50 a A62 ..
    5. ccm81
      Il faudrait un peu plus de détail sur ce qui ne va pas
      C'est le fichier que je t'ai envoyé qui ne fonctionne pas ?
      1. Flodio1337
        Oui ces ce fichier dont je parle ; donc j'ecris en A51 Valide avec Entre et "j'atterie" en A52 au lieu de D16
    6. ccm81
      Comme ceci, ça devrait aller mieux
      http://www.cjoint.com/c/EIhoNMSOo7o

      Cordialement
      1. Flodio
        Fonction pas
    7. ccm81
      De rien

      Dans le module de la feuille à traiter 

      Const li = 50

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Rows(li)) Is Nothing Then
        If Target.Column Mod 3 = 1 Then Target.Offset(-34, 3).Select
      End If
      End Sub

      Cordialement
      1. Flodio
        Merci a toi ccm81 mais ca ne marche pas j'ai vraiment du mal a comprendre pourquoi .. 
        Sub Makro1(A51
        )
        '
        ' Makro1 Makro
        GoTo D16
        '

        'Const li = 50

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Rows(li)) Is Nothing Then
          If Target.Column Mod 3 = 1 Then Target.Offset(-34, 3).Select
        End If
        End Sub

            Range("A51").Select
            Application.Run "'Verlesungsprotokoll Excel Entwurf.xls'!Makro1"
            Application.Goto Reference:="Makro1"
            Application.WindowState = xlMinimized
            Application.Run "'Verlesungsprotokoll Excel Entwurf.xls'!Makro1"
            Range("A51").Select
            ActiveSheet.Paste
            ActiveCell.FormulaR1C1 = _
                "=HYPERLINK(""#A""&MATCH(RC,R[-35]C:R[49]C[3],0)+1,""Suche"")"
            Range("A51").Select
            Selection.ClearContents
            Range("A51").Select
            ActiveCell.FormulaR1C1 = ""
            Range("D1").Select
            ActiveCell.FormulaR1C1 = "Verlesungsprotokoll"
            Range("D57").Select
            ActiveWindow.SmallScroll Down:=-12
            ActiveCell.FormulaR1C1 = "=R[-56]C"
            Range("D58").Select
            ActiveWindow.SmallScroll Down:=30
            Range("D57").Select
            Selection.Copy
            ActiveWindow.SmallScroll Down:=45
            Range("D112").Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            ActiveCell.FormulaR1C1 = "=R[-111]C"
            Range("D113").Select
            ActiveWindow.SmallScroll Down:=42
            Range("D167").Select
            ActiveCell.FormulaR1C1 = "=R[-166]C"
            Range("D168").Select
            ActiveWindow.SmallScroll Down:=72
            Range("D222").Select
            ActiveCell.FormulaR1C1 = "=R[-221]C"
            Range("D223").Select
            ActiveWindow.SmallScroll Down:=42
            Range("D277").Select
            ActiveCell.FormulaR1C1 = "=R[-276]C"
            Range("D278").Select
            ActiveWindow.SmallScroll Down:=54
            Range("D332").Select
            ActiveCell.FormulaR1C1 = "=R[-331]C"
            Range("D333").Select
            ActiveWindow.SmallScroll Down:=-153
            ActiveWindow.LargeScroll Down:=-3
            ActiveWorkbook.Save
            Range("A51").Select
            ActiveSheet.Paste
            Range("A51").Select
            Selection.Cut
            Application.CutCopyMode = False
        End Sub
    8. ccm81
      Bonjour

      Il faudra une petite macro
      http://www.cjoint.com/c/EIenSZed42d

      Cdlmnt
      1. Flodio
        Hi ,
        Ca ne fonction pas .. moi j'ai ca ; http://www.cjoint.com/c/EIhm5FY0ofa ,et j'aimerais bien aller de A50 a D16 , de D50 a G16 et ainsi de suite je suis vraiment bloquer ..