Discussion :

[pite0611]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[informer]

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

[pite0611]

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 !

[pite0611]

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

[pite0611]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[informer]

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.

[pite0611]

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.

Autant pour moi je nesavais pas, merci.

[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

[pite0611]

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"

[pite0611]

OK, problème réglé !

Voici la réponse à mon problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[informer]

Une autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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