Trouver première cellule vide

SergiO

XLDnaute Accro

• 22 Juillet 2007

• #2

Re : Trouver première cellule vide

Bonsoir Yucki,

Pour selectionner la première cellule vide de la colonne A, une solution :

Cells(Range("A65536").End(xlUp).Row + 1, 1).Select

@+

 

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 22 Juillet 2007

• #3

Re : Trouver première cellule vide

bonsoir,

J'ai trouvé ce bout de code - tout le mérite revient à Pascal.

Sub test()
Dim Maligne As Integer
Maligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Maligne).Select

End Sub

il devrait te convenir

edit : oups, pardon trop long à la détente ... bonsoir sergio

 

Vote positif 0 Vote négatif

Y

yucki

XLDnaute Nouveau

• 22 Juillet 2007

• #4

Re : Trouver première cellule vide

Bonsoir et merci.

Mais ces deux codes me font sélectionner la case A2 (cellule vide plus une).
Moi j'aimerais que la recherche se fasse a partir de A6 (vide) + 1.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 22 Juillet 2007

• #5

Re : Trouver première cellule vide

BONSOIR
Il suffi t d'inscrire quelque chose dans les cellules a1 à a5
et la selection se ferra à partir de a6
tout bète!!!!

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2007

• #6

Re : Trouver première cellule vide

Bonsoir le fil, bonsoir le forum,

Si tu n'as aucun trou (cellule vide) dans la colonne, tu peux faire aussi :

Code:

Range("A6").End(xlDown).Offset(1, 0).Select

 

Vote positif 0 Vote négatif

Y

yucki

XLDnaute Nouveau

• 22 Juillet 2007

• #7

Re : Trouver première cellule vide

Ok cela marche tres bien avec le remplissage des cellules 1 à 6.

Merci a tous.

 

Vote positif 0 Vote négatif

C

Chouchounette

XLDnaute Nouveau

• 25 Juillet 2007

• #8

Problème similaire

Bonjour à tous
Après avoir cherché la première cellule vide. je voudrais lui affecter un texte "Mesures supplémentaires".
ça fait 48h que je me suis mise au VBA. En cherchant sur le site j'ai pu écrire le code suivant:

Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Dim numColonne As Integer, numLigne As Integer
numLigne = ActiveCell.Row
numColonne = ActiveCell.Column
Cells(numLigne, numColonne) = "Mesures supplémentaires"
End Sub

Ce code m'écrit le texte "Mesures supplémentaires" sur plusieurs cellules en partant de la première cellule qu'il sélectionne!!! Que faire?😕

Merci à tous
ps: je suis persuadée que ce n'est pas diffcile mais j'ai quand même mis 3h pour trouver ce code et même pas il marche correctement!!🙁 🙁 🙁

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 25 Juillet 2007

• #9

Re : Trouver première cellule vide

Bonsoir,

Code:

Sub MesureSup()
Dim numColonne As Integer, numLigne As Integer
Cells(Range("A65536").End(xlUp).Row + 1, 1).value = "Mesures supplémentaires"
End Sub

Cordialement

 

Vote positif 0 Vote négatif

C

Chouchounette

XLDnaute Nouveau

• 26 Juillet 2007

• #10

Re : Trouver première cellule vide

Bonjour le forum!
Merci Spitnolan08 de ta réponse. Néanmoins je ne comprends pas pourquoi tu déclares NumColonne et NumLigne parce que tu ne les utilises pas après.

Cordialement

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 26 Juillet 2007

• #11

Re : Trouver première cellule vide

Re,
Tout simplement parce que j'ai recopié ton code pour le modifier et que j'ai oublié de supprimer cette partie de code inutile, mais tu as fait le tri. C'est le principal.
Cordialement

 

Vote positif 0 Vote négatif

C

Chouchounette

XLDnaute Nouveau

• 26 Juillet 2007

• #12

Re : Trouver première cellule vide

Rebonjour tout le monde.
(Depuis 3 jours je passe ma vie sur ce forum alors je ne sais plus si j'ai déjà dit bonjour ou pas...)
Ok Spitnolan08! sinon ta formule marche bien et le problème n'était pas dans ce code lui même mais dans ma boucle de départ.
Merci bien!

 

Vote positif 0 Vote négatif