A voir également:
- Microsoft Excel
- Microsoft money - Télécharger - Comptabilité & Facturation
- Microsoft office - Guide
- Liste déroulante excel - Guide
- Installer windows 10 sans compte microsoft - Guide
- Telecharger microsoft store - Guide
8 réponses
De rien
Dans le module de la feuille à traiter
Cordialement
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
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
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 ?
C'est le fichier que je t'ai envoyé qui ne fonctionne pas ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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. 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. 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
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 . 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. 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
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 ..