Discussion :

[bakaouf]

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

[delphine35]

Code :

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

Derlig = .Range("I65000").End(xlUp).Row

Enleve le I ....

[bakaouf]

ok Merci, en effet le programme ne bug plus. mais mon programme ne fonctionne pas non plus.
je vais chercher encore, mais si tu as qq chose a proposer...

merci

en fait quand j´enlève la ligne

Code :

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

Derlig = .Range("I65000").End(xlUp).Row

mon programme ne fait rien(normal)
Et quand j´enlève juste le I, J´ai une erreur sur cette ligne, si je remplace le I par une autre lettre(autre colonne) l´erreur que jávais dans l´ancien message revient