Discussion :

[PIERRE-DEVIN]

Bonjour à tous,
J'ai deux feuilles et je dois comparer deux dates dans une condition if j'ai une erreur.
Dans la feuille RELEVES j'ai une date que je compare avec la dernière date de la feuille Conso eau douce dans la colonne a si la date dans releves est suppérieur alors je dois faire... sinon je fais autre chose, pour le moment j'ai nmon If > et then qui sont en rouge, pouvez-vous m'aider.

Sub Maj_Eau_douce()

If
Sheets("RELEVES").Select
Range("$I$1").Select
>
Sheets("Conso eau douce").Select
Range("A" & Range("A65500").End(xlUp).Row).Select
Then
' Date Suppérieur
Sheets("RELEVES").Select
Range("$I$1").Select
Selection.Copy
Sheets("Conso eau douce").Select
Range("A" & Range("A65500").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Sheets("RELEVES").Select
Range("$K$14").Select
Selection.Copy
Sheets("Conso eau douce").Select
Range("B" & Range("B65500").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Conso eau douce").Select
Cells(56000, 3).End(xlUp).Select
Selection.Copy
Range("C" & Range("C65500").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Else
' Date identique
Sheets("RELEVES").Select
Range("$I$1").Select
Selection.Copy
Sheets("Conso eau douce").Select
Cells(56000, 1).End(xlUp).Select
ActiveSheet.Paste
Sheets("RELEVES").Select
Range("$K$14").Select
Selection.Copy
Sheets("Conso eau douce").Select
Cells(56000, 2).End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub

[parmi]

Bonjour,

Tu ne peux pas faire des If ... Then de cette façon, sur plusieurs lignes ...
Essaie plutôt comme ceci (sans Select)

Code :

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

If Sheets("RELEVES").Range("$I$1") > Sheets("Conso eau douce").Range("A" & Range("A65500").End(xlUp).Row).Select Then

[PIERRE-DEVIN]

Bonjour,

Tu ne peux pas faire des If ... Then de cette façon, sur plusieurs lignes ...
Essaie plutôt comme ceci (sans Select)

Code :

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

If Sheets("RELEVES").Range("$I$1") > Sheets("Conso eau douce").Range("A" & Range("A65500").End(xlUp).Row).Select Then

Je viens de tester et une erreur, j'ai supprimé le .Select de la fin et cela fonctionne à merveille.

Un grand merci

[parmi]

Mauvaise manipulation (copier/coller) de ma part...
Mais au moins tu as trouvé

[PIERRE-DEVIN]

Mauvaise manipulation (copier/coller) de ma part...
Mais au moins tu as trouvé

Grace à ta ligne ou tu dis sans Select

Encore merci