Encore une insertion de ligne

**dreloman** · 05/07/2008, 18h52

Bonjour a tous , voila mon petit problème je voudrais inserer une ligne a endrois différent j'ai fais des recherche mais ne trouve pas mon bonheur si qulqu'un pouvais me donner une petite idée je le remerci d'avance .
Voila le code

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
Sub BECKBLA()
 Dim MyTime
MyTime = #8:36:00 PM#
    With Worksheets(1).Range("A1:A47")
    Set c = .Find("BECKBLA", LookIn:=xlValues)
    If Not c Is Nothing Then
        Range(c.Address).Select
        Do While ActiveCell.Value <> ""
            If Time <= MyTime Then
                If ActiveCell.Value = "13" Then
                    ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                Else
                    ActiveCell.Next.Select
                End If
            Else
                If ActiveCell.Value = "27" Then
                    ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                Else
                    ActiveCell.Offset(rowOffset:=0, columnOffset:=15).Activate
                End If
            End If
 
        Loop

quand la celule active arrive a 13 je voudrais inserer une ligne puis aller 2 colone suivante

**JackOuYA** · 05/07/2008, 19h00

Bonsoir, dreloman

pas trés clair le but de ton script, pourrai tu nous dire ce que tu veux faire exactement, vu que tu utilise la cellule active, et le select je suppose que le but de ton script et de promener le curseur dans ta feuille ..? non ? si tel n'est pas le but dis nous quoi .... (et oublie ces cellules actives, select et compagnie...)

**dreloman** · 05/07/2008, 19h10

Voila j'ai 1 bouton pour chaque client (TREBOS par exemp) je voudrais que quand je passe le n° de suite 13 je puisse inserer une ligne pour ecrire le 14 , j'espère me faire comprendre

Sinon je me

**JackOuYA** · 05/07/2008, 19h15

Faudrai voir le code que tu utilise pour rajoute tes "numéros" pour chaque client... , il doit prendre en compte la ligne suivante...

**dreloman** · 05/07/2008, 19h22

Le N° de suite le l'écrit manuellement mais si tu regarde le code en haut il fais marquer

If ActiveCell.Value = "13" Then
ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
Else
ActiveCell.Next.Select
End If

c'est ici que je voudrais inserer la ligne
car la il me le m'est en dessous ou il y as 2055/1 et c'est moi qui as inserer la ligne je veut qu'il me le fase automatiquement

**JackOuYA** · 05/07/2008, 19h42

Si je comprends bien à chaque fois que tu appelle ta procédure, tu rajoute le numéro suivant...

si le numéro suivant et 14, tu dois passer à la ligne suivante .. et inserer une ligne Si elle n'existe pas déjà .... non ?

Juste un truc comment se termine ton tableau ..? pour le dernier camion, je m'explique pour les autres camions tu sais que les lignes qui concernent ce camion sont celle où tu as trouvé le nom du camion ( ta variable c..), et ce jusqu'au prochain camion .. lorsque colone A non vide.

**dreloman** · 05/07/2008, 19h40

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Sub BECKBLA()
 Dim MyTime
MyTime = #8:36:00 PM#
    With Worksheets(1).Range("A1:A47")
    Set c = .Find("BECKBLA", LookIn:=xlValues)
    If Not c Is Nothing Then
        Range(c.Address).Select
        Do While ActiveCell.Value <> ""
            If Time <= MyTime Then
                If ActiveCell.Value = "13" Then
                    ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                Else
                    ActiveCell.Next.Select
                End If
            Else
                If ActiveCell.Value = "27" Then
                    ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                Else
                    ActiveCell.Offset(rowOffset:=0, columnOffset:=15).Activate
                End If
            End If
 
        Loop
 
    Else
    'MyTime = #9:36:00 PM#
    If Time <= MyTime Then
        With Worksheets(1).Range("C1:C47")
            Set c = .Find("", LookIn:=xlValues)
            If Not c Is Nothing Then
                Range(c.Address).Select
                ActiveCell.Offset(rowOffset:=0, columnOffset:=-2).Activate
                If ActiveCell.Value = "TREBOS" Then
                    ActiveCell.Offset(rowOffset:=2, columnOffset:=0).Activate
                    ActiveCell.Value = "BECKBLA"
                    ActiveCell.Offset(rowOffset:=0, columnOffset:=2).Activate
                Else
                    ActiveCell.Value = "BECKBLA"
                End If
 
                Do While ActiveCell.Value <> ""
                    If Time <= MyTime Then
                        If ActiveCell.Value = "13" Then
                            ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                        Else
 
                            ActiveCell.Next.Select
 
                        End If
                    Else
                        If ActiveCell.Value = "27" Then
                            ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                        Else
                            ActiveCell.Offset(rowOffset:=0, columnOffset:=15).Activate
                        End If
                    End If
                Loop
            End If
 
        End With
        Else
            With Worksheets(1).Range("P1:P47")
            Set c = .Find("", LookIn:=xlValues)
            If Not c Is Nothing Then
                Range(c.Address).Select
                ActiveCell.Offset(rowOffset:=0, columnOffset:=-2).Activate
                ActiveCell.Value = "BECKBLA"
                Do While ActiveCell.Value <> ""
                    If Time <= MyTime Then
                        If ActiveCell.Value = "13" Then
                            ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                        Else
                            ActiveCell.Next.Select
                        End If
                    Else
                        If ActiveCell.Value = "27" Then
                            ActiveCell.Offset(rowOffset:=1, columnOffset:=-12).Activate
                        Else
                            ActiveCell.Offset(rowOffset:=0, columnOffset:=15).Activate
                        End If
                    End If
                Loop
            End If
 
        End With
    End If
    End If
    End With
End Sub

Voici le code complet du bouton BECKBLA il cherche si il existe déjas si oui alors il vas a la cellule vide suivante (a droite ) si non alors ecrit le clent en A puis m'est le n° de prépa suivant et la il vas en C pour moi écrire le N° de suite suivant et ainsi de suite jusque 13 pour le matin et si il y as plus que 13 camion alors insert une ligne et la j'écrit le 14,15,.....ect

merci pour la rapiditer de t'est question réponce

Encore une insertion de ligne

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager