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