comment selectionner 4 premieres cellules de la dernière ligne non vide

[zesuila]

Bonjour
Presque tout est dans le titre !😉
sauf que pour préciser ces 4 cellules seront effacées après cette selection

merci

 

[chris]

Re : comment selectionner 4 premieres cellules de la dernière ligne non vide

Bonjour
Si la colonne A ne contient pas de cellules vides :

Sub test()
x = Range("A65000").End(xlUp).Row
Range("A" & x & "😀" & x).delete
End Sub

EDit :Remplace le smiley par la lettre D

 

[zesuila]

Re : comment selectionner 4 premieres cellules de la dernière ligne non vide

Super !sauf qu'il a fallu que je change le .delete par un . clear content pour éviter le déplacement vers la gauche des cellules des colonnes suivantes
Petite question pourquoi un smiley au lieu tout simplement de la lettre ?

 

[chris]

Re : comment selectionner 4 premieres cellules de la dernière ligne non vide

Re
J'ai effectivement confondu delete et clear.
Quand au smiley, c'est le soft du forum qui fait des corrections automatiques et remplace certaines lettres encadrées par des ) ou des " par un smiley.
Amusant mais pour les formules et le VBA ce n'est pas idéal.

 

[zesuila]

Re : comment selectionner 4 premieres cellules de la dernière ligne non vide

en tout cas M🙂 🙂 🙂 🙂 (remplacer les smileys par ERCI)