Trouver première cellule vide

[yucki]

Bonjour à tous,

Je cherche en macro comment sélectionner la première cellule vide de la colonne A en cherchant à partir de A7.

J'ai essayer plusieurs scripts mais aucun ne fonctionne.

Merci à vous

 

[SergiO]

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

@+

 

[ballmaster]

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

 

[yucki]

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.

 

[pascal21]

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!!!!

 

[Robert]

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 :

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

 

[yucki]

Re : Trouver première cellule vide

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

Merci a tous.

 

[Chouchounette]

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!!🙁 🙁 🙁

 

[Spitnolan08]

Re : Trouver première cellule vide

Bonsoir,

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

Cordialement

 

[Chouchounette]

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

 

[Spitnolan08]

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

 

[Chouchounette]

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!