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

chris

XLDnaute Barbatruc

• 3 Août 2007

• #2

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

 

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 3 Août 2007

• #3

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 ?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 3 Août 2007

• #4

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.

 

Vote positif 0 Vote négatif

zesuila

XLDnaute Occasionnel

• 3 Août 2007

• #5

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

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

 

Vote positif 0 Vote négatif