Trouver dernière cellule vide colonne ne fonctionne pas (résolu)

[Cougar]

Bonjour,

Je veux trouver la dernière cellule vide d'une colonne en utilisant cette ligne de code :

Range("m5000" & Rows.Count).End(xlUp).Row

mais j'ai l'erreur suivante : Utilisation incorrecte de la propriété.

Comment corriger le problème. Voir le fichier joint.

Merci

 

[Lone-wolf]

Bonjour Cougar

Il faut enlever le 5000. derlig = Range("m" & Rows.Count).End(xlUp).Row

 

[Cougar]

Bonjour Lone-Wolf, le forum,

Merci, oublié de déclarer ma variable aussi.

 

[Lone-wolf]

Re Cougar,

Il y a beaucoup de choses que je ne comprends pas. Est-ce que tu veux copier la feuille A sur l'autre feuille?? Si non, pourquoi inserer des formules SOMME dans des colonnes contenant du texte?? . Ici par exemple

.Range("j2").FormulaR1C1 = "=RC[-2]&"" - ""&RC[-1]" Range("j2:j5000") oubien
Range("d2").Select - ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[5000]C)"

Et supprime tout ces Select inutiles

Range("d2:j2").FormulaR1C1 = "=SUM(R[1]C:R[5000]C)"
Range("d2:j2").Value = Range("d2:j2").Value
De cette façon tu n'auras que les valeurs et non la formule.

Pour sélectionner la dernière cellule vide

With Sheets("A")
        derlig = .Range("m" & Rows.Count).End(xlUp).Row
        For i = 2 To derlig
            If .Range("m" & i) <> "" Then _
               Application.Goto .Range("m" & i + 1)
        Next i
    End With