Retour à la ligne [VBA]

Version imprimable

13/06/2018, 16h02
pite0611

1 pièce(s) jointe(s)

Retour à la ligne [VBA]
Bonjour,

Je souhaite créer un programme un peu spécial, certes mais qui m'aiderai grandement...
J'aimerai créer un programme qui retourne a la colonne A quand jecris dans la colonne E MAIS qui retourne dans une cellule vide (où il n'y a rien d'ecrit).. voici une image pour mieux comprendre:

Le programme pour le retour a la ligne simple est:
Code:

1 2 3 4 If Target.Column = 5 Then 'Fait le retour a la ligne en colonne E quand on entre une valeur dans la colonne E Target.Offset(1, -4).Select End If
Pouvez-vous m'aider, je ne sais pas si ce que je demande est possible..

CordialementPièce jointe 388452
13/06/2018, 17h02
informer

Je doute que tu sois dans la bonne rubrique car ta question concerne de l’Excel et non de l’Access

OK, problème réglé !

Voici la réponse à mon problème :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
If Not Intersect(Target, Columns("E:E")) Is Nothing Then
Lig = 1 
Do While Not IsEmpty(Range("A" & Lig))
    Lig = Lig + 1
Loop
Range("A" & Lig).Select
End If
End Sub

Une autre solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column = 2 Then '-->>> Colonne B mais à adapter !
        If Range("A1") = "" Then '-->>> Car .Find commence la recherche par défaut après la 1ère cellule de la colonne
            Range("A1").Select
        Else
            Columns(1).Find(What:="", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
        End If
    End If
 
End Sub

14/06/2018, 10h21
pite0611

Citation:

Envoyé par informer

Je doute que tu sois dans la bonne rubrique car ta question concerne de l’Excel et non de l’Access

Oui cependant cela reste du VBA !
14/06/2018, 10h22
pite0611

Merci de l'autre solution, je pourrais l'utiliser par la suite :)

2 pièce(s) jointe(s)

J'ai un problème qui est survenue et je ne le comprend pas pouvez-vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column = 1 Then
    'Ecris la dâte actuelle dans la colonne G apres avoir scanner en colonne A
        Cells(Target.Row, 7).Value = Date
    End If
 
    If Target.Column = 4 Then
    'Ecris lheure actuelle dans la colonne D apres avoir scanner le START
        Cells(Target.Row, 4).Value = Time()
    End If
 
    If Target.Column = 5 Then
    'Ecris lheure actuelle dans la colonne E apres avoir scanner le END
        Cells(Target.Row, 5).Value = Time()
    End If
 
    If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    'Permet la soustraction des heures du debut et de fin
        Target.Offset(0, 1) = Format(Target.Offset(0, -1).Value - Target.Value, "hh:mm:ss")
    End If
 
    If Not Intersect(Target, Range("A:D")) Is Nothing Then
 
             If Target.Column = 1 Then
             'Permet de passer a la cellule suivante (TAB) dans la colonne A
                 Target.Offset(0, 1).Select
             End If
    End If
 
    If Target.Column = 4 Then '-->>> Colonne B mais à adapter !
    If Range("A1") = "" Then '-->>> Car .Find commence la recherche par défaut après la 1ère cellule de la colonne
        Range("A1").Select
    Else
        Columns(1).Find(What:="", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
    End If
    End If
 
    Dim Lig As Long
        If Not Intersect(Target, Columns("E:E")) Is Nothing Then
        Lig = 1
            Do While Not IsEmpty(Range("A" & Lig))
            Lig = Lig + 1
    Loop
    Range("A" & Lig).Select
    End If
 
End Sub

14/06/2018, 10h36
informer

Citation:

Envoyé par pite0611

Oui cependant cela reste du VBA !

Certes mais le vba développé pour Excel lui est spécifique et beaucoup d’objets avec leurs propriétés et méthodes n’existent pas dans Access.

Il existe par ailleurs une rubrique Excel/vba dédiée et dont les contributeurs sont plus spécialisés sur les problématiques Excel.

Poster sa question sur la rubrique adaptée permet d’obtenir des solutions plus rapides.:aie:
14/06/2018, 10h39
pite0611

Citation:

Envoyé par informer

Certes mais le vba développé pour Excel lui est spécifique et beaucoup d’objets avec leurs propriétés et méthodes n’existent pas dans Access.

Il existe par ailleurs une rubrique Excel/vba dédiée et dont les contributeurs sont plus spécialisés sur les problématiques Excel.

Poster sa question sur la rubrique adaptée permet d’obtenir des solutions plus rapides.:aie:

Autant pour moi je nesavais pas, merci.
14/06/2018, 10h50
informer
Une méthode pour faciliter le debuggage
- Fais un copier / coller du code à debugger dans une fonction genre fonctionDeTest
- Supprime le code de la fonction d’origine
- Place un appel de fonctionDeTest en tout début de ta fonction appelante et ecris après exit sub
Vois ensuite ce qui se passe
14/06/2018, 10h54
pite0611
Citation:
Envoyé par informer

Une méthode pour faciliter le debuggage

Fais un copier / coller du code à debugger dans une fonction genre fonctionDeTest
Supprime le code de la fonction d’origine
Place un appel de fonctionDeTest en tout début de ta fonction appelante et ecris après exit sub

Vois ensuite ce qui se passe
Je comprend pas quand tu dis "Place un appel de fonctionDeTest en tout début de ta fonction appelante"
14/06/2018, 10h56
informer

Dans ton cas la,fonction appelante est worksheet_change
14/06/2018, 10h58
pite0611

tu m'as perdu :weird:
14/06/2018, 11h07
informer
Tu copies le code que je t’ai donné dans fonctionDeTest que tu as crée après worksheet_change
Tu écris en premier ligne dans worksheet_change
Code:

1 2 fonctionDeTest Exit sub

Cela ne fait rien du tout

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 fonctionDeTest
Exit Sub
   If Target.Column = 4 Then '-->>> Colonne B mais à adapter !
    If Range("A1") = "" Then '-->>> Car .Find commence la recherche par défaut après la 1ère cellule de la colonne
        Range("A1").Select
    Else
        Columns(1).Find(What:="", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
    End If
    End If
 
    Dim Lig As Long
        If Not Intersect(Target, Columns("E:E")) Is Nothing Then
        Lig = 1
            Do While Not IsEmpty(Range("A" & Lig))
            Lig = Lig + 1
    Loop
    Range("A" & Lig).Select
    End If

Ok, tout d'abord merci de ton aide apportée, je n'ai pas tout à fait pigé ce que t'essayait de ma faire comprendre mais j'ai réussi à répondre à ma question par moi même !
Voici le code pour ceux que ça peut aider ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
If Target.Columns.Count = Application.Columns.Count Then 'Si j'insère une ligne, alors [...]
Exit Sub ' [...] je quitte ma macro
End If 'Sinon je lance ma macro
If Not Intersect(Target, Columns("E:E")) Is Nothing Then 'Si j'entre une valeur en colonne E alors
Lig = 1
Do While Not IsEmpty(Range("A" & Lig)) 'retour à la ligne colonne A
    Lig = Lig + 1
Loop
Range("A" & Lig).Select
End If
If Not Intersect(Target, Columns("D:D")) Is Nothing Then 'Si j'entre une valeur en colonne D alors
Lig = 1
Do While Not IsEmpty(Range("A" & Lig)) 'retour à la ligne colonne A
    Lig = Lig + 1
Loop
Range("A" & Lig).Select
End If
End Sub

14/06/2018, 21h00
informer

Mon code place le curseur dans la première cellule vide de la colonne A. Après à toi de voir ce que tu veux y affecter.