Bonjour,

Je commence tout doucement à m´initier à VBA,
Je voudrais cette fois ci affecter une cellule date(jj.MM.aaaa hh:mm:ss) à une autre quand le text dans une cellule est le meme quúne certaine cellule fixe. Mon programme :

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
Sub StartAndEndAlarm()
 
Dim I As Long, Derlig As Long
 
Dim Cells As Range
 
With Sheets("01WEA")
 
 
 
    Derlig = .Range("I65000").End(xlUp).Row
 
    For I = Derlig To 3 Step -1
 
        If ((.Cells(I, 5).Text = .Cells(1, 13).Text) And 
         (.Cells(I, 8).Text = .Cells(1, 10).Text)) 
         Or (.Cells(I, 5).Text = .Cells(1, 12).Text) 
 
       Then .Cells(I, 10).Value = Cells(I, 9).Value
 
                If (.Cells(I, 5).Text = .Cells(1, 13).Text) 
               And (.Cells(I, 8).Text = .Cells(1, 11).Text) 
      Then .Cells(I, 11).Value = Cells(I, 9).Value
 
                    If (.Cells(I, 5).Text <> .Cells(1, 13).Text) 
                   And (.Cells(I, 5).Text <> .Cells(1, 12).text) 
                  Then .Cells(I, 10).Value = 0 And .Cells(I, 11).Value = 0
 
        Next I
End With
 
End Sub
Le problème étant que je dois commencer par la fin car lors de chaque extraction de données , les dates décroissent


l´erreur affiché par VBA est après les
Code : Sélectionner tout - Visualiser dans une fenêtre à part
then
de mes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
IF
et elle dit :
Identifier under cursor is not recognized
J´esp`re que qq pourra m´aiguiller la dessus, je n´attend pas forcément une solution toute faites mais plutot que l´on m´explique mes erreurs et m´aiguiller vers une solution qui fonctionne.

Merci d´avance

bakaouf