Activer une cellule

Bonjour,

je voudrais que dans la colonne W si toutes les cellules sont vides la cellule w5 soit activée et sinon que la derniére cellule non vide soit activée avec ce code le curseur remonte bien la colonne w mais je n'arrive pas a activer la cellule w5

si toute les cellules sont vides c'est toujour la cellule w4

Sub REMETTRE_LISTE_COMPLETE_jours()
Sheets("Achats_Jours").Unprotect Password:="target"
If Worksheets("Achats_Jours").AutoFilterMode Then
     Worksheets("Achats_Jours").AutoFilterMode = False
End If

If Range("W5:W600").Select = "" Then
Range("W5").Activate
Else
Range("W600").End(xlUp).Select
End If

    'S'ARRETE SUR DERNIERE CELLULE ÉCRITE COLONNE ACHAT JOURS
'    Range("W600").End(xlUp).Select
End Sub

Merci d'avance pour vos réponses

Cordialement

Bonsoir,

modifie ton code comme suit :

If Application.WorksheetFunction.CountA(Columns(23)) = 0 Then
    Range("W5").Select
Else
    Range("W" & Rows.Count).End(xlUp).Select
End If

++

Bonjour,

Merci pour ta réponse le code fonctionne bien sauf que lorsque toutes les cellules sont vide ça active la cellule w4 et non la w5

Cordialement

bizarre,

tu peux poster ton tableau ?

Bonsoir,

Voilà

Cordialement

En fait, ta colonne W n'est jamais vide puisque ton en-tête "ACHATS" compte pour une cellule non vide dans ta colonne.

donc il suffit de demander la valeur 1 et non plus 0 à la fonction CountA :

If Application.WorksheetFunction.CountA(Columns(23)) = 1 Then
    Range("W5").Select
Else
    Range("W" & Rows.Count).End(xlUp).Select

Bonsoir,

Merci beaucoup pour ton aide tout fonctionne

Cordialement

un autre code, plus sur, qui te permettra de toujours sélectionner la cellule adéquate, même si, un jour, tu avais besoin de remplir le bandeau d'en tête (W1:W4).

Range("W" & Rows.Count).End(xlUp).Select
If ActiveCell.Row < 5 Then Range("W5").Select

Bonsoir,

Merci beaucoup ce fichier d'achats a été un travail de longue haleine à base de macro ce n'est pas optimiser car mes connaissances en vba sont très limités et je remercie les personnes comme toi qui donne de leur temps pour aider des débutants comme moi

Cordialement