Bonjour, Je suis en a50 en appuyant sur ENTER je voudrais aller en d16 comment ca marche ? Configuration: Windows Vista / Chrome 44.0.2403.157

Microsoft Excel

Fermé

Flodio - 4 sept. 2015 à 11:42
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 7 sept. 2015 à 19:20

Bonjour,

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

A voir également:

Microsoft Excel
Microsoft office - Guide
Liste déroulante excel - Guide
Telecharger microsoft store - Guide
Installer windows 10 sans compte microsoft - Guide
Money microsoft - Télécharger - Comptabilité & Facturation

8 réponses

Réponse 1 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
4 sept. 2015 à 15:45

Bonjour

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

Cdlmnt

Flodio
7 sept. 2015 à 14:59

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 ..

Réponse 2 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
Modifié par ccm81 le 7/09/2015 à 15:26

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

Flodio
7 sept. 2015 à 15:48

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

Réponse 3 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
7 sept. 2015 à 16:40

Comme ceci, ça devrait aller mieux
http://www.cjoint.com/c/EIhoNMSOo7o

Cordialement

Flodio
7 sept. 2015 à 17:05

Fonction pas

Réponse 4 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
7 sept. 2015 à 17:43

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 ?

Flodio1337 Messages postés 5 Date d'inscription lundi 7 septembre 2015 Statut Membre Dernière intervention 7 septembre 2015
7 sept. 2015 à 17:58

Oui ces ce fichier dont je parle ; donc j'ecris en A51 Valide avec Entre et "j'atterie" en A52 au lieu de D16

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
7 sept. 2015 à 18:04

Tu as parlé de A50, D50 dans ta demande (post #2)

Flodio1337 Messages postés 5 Date d'inscription lundi 7 septembre 2015 Statut Membre Dernière intervention 7 septembre 2015
7 sept. 2015 à 18:11

Oui dsl , donc de A50 a D16 De D50 A G16 et de G50 a A62 ..

Réponse 6 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
Modifié par ccm81 le 7/09/2015 à 18:21

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

Flodio1337 Messages postés 5 Date d'inscription lundi 7 septembre 2015 Statut Membre Dernière intervention 7 septembre 2015
7 sept. 2015 à 18:29

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 :/

Réponse 7 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
7 sept. 2015 à 18:36

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

Flodio1337 Messages postés 5 Date d'inscription lundi 7 septembre 2015 Statut Membre Dernière intervention 7 septembre 2015
7 sept. 2015 à 19:05

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

Flodio1337 Messages postés 5 Date d'inscription lundi 7 septembre 2015 Statut Membre Dernière intervention 7 septembre 2015
Modifié par Flodio1337 le 7/09/2015 à 19:08

Ci tu savais combien de temps j'ai pris pour fair ce doc excel :(

Réponse 8 / 8

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
7 sept. 2015 à 19:20

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

Cordialement