Trouver la premiere cellule vierge dans une colonne

[aida75]

Bonjour à Tous,
Une question surement simple pour vous mais pour une béotienne comme moi....
Alors voilà : Comment se positionner en saisie sur la première cellule vierge d'une colonne à l'ouverture d'un classeur, puis est-il possible de reporter simultanément ce contenu saisi dans une autre feuille du même classeur ?!
D'avance merci à vous qui prenez la peine de m'éclairer de vos lumières 😉
Amicalement,
Aida 🙂

 

[Staple1600]

Re : Trouver la premiere cellule vierge dans une colonne

Bonjour

SOURCE:Excel Ranges: Finding the Last Cell in a Range

'Find the last used cell, before a blank in a Column:
Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).Select
End Sub

'Find the very last used cell in a Column:
Sub LastCellInColumn()
Range("A65536").End(xlup).Select
End Sub

'Find the last cell, before a blank in a Row:
Sub LastCellBeforeBlankInRow()
Range("A1").End(xlToRight).Select
End Sub

Pour répondre à ta demande plus précisément (première cellule vierge)

Sub PremierCelluleVideColonne()
Dim Ligne As String
Ligne = Range("A65536").End(xlUp).Row
Range("A" & Ligne + 1).Select
End Sub

Une petite variante (qu'il vaut mieux éviter aprés test)
car elle pose problème
elle selectionne la première cellule vide qui n'a jamais été modifiéé

Sub PremierCelluleVideColonneIII()
'Changer le chiffre dans Columns(1) selon le numéro de colonne désiré
Columns(1).SpecialCells(xlCellTypeLastCell).Offset(1, 0).Select
End Sub

->Sergio
Ta PremLigVide est plus logique que ma Ligne
Pourquoi faire simple quand on peut faire compliqué...

puis est-il possible de reporter simultanément ce contenu saisi dans une autre feuille du même classeur ?!

Si on selectionne la première cellule vierge, il n'y pas de contenu, elle est vide non?

 

[SergiO]

Re : Trouver la premiere cellule vierge dans une colonne

Bonjour Aida, Staple1600,

Aida demande de se positionner à l'ouverture du classeur donc voici un code à mettre dans l'objet ThisWorkbook :

Private Sub Workbook_Open()
PremLigVide = Range("A65536").End(xlUp).Row + 1
Cells(PremLigVide, 1).Select
End Sub

@+

 

[Staple1600]

Re : Trouver la premiere cellule vierge dans une colonne

Re

Une première ébauche
1) demande de saisie dans la première cellule vide
2) selection de la feuille et la cellule de destination (pour la copie)
3) copie de la valeur saisie dans la cellule selectionnée

Sub testII()
Dim Valeur As String, celldest As Range, Ligne As String
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Select
Valeur = InputBox("Saisir la nouvelle valeur")
ActiveCell.Value = Valeur
Set celldest = Application.InputBox("Sélectionnez la cellule de copie, svp", "Cellule de destination", Type:=8)
ActiveCell.Copy celldest
Application.CutCopyMode = False
End Sub

 

[aida75]

Re : Trouver la premiere cellule vierge dans une colonne

Un GRAND MERCI à TOUS pour votre précieuse aide.
Bien amicalement,
Aida 😛

 

[Chaps]

Re : Trouver la premiere cellule vierge dans une colonne

Bonjour,

Ok pour votre réponse fonctionnelle sous 2003 mais quelle est l'adaptation du code sous 2007 avec sa limite à 1 048 576 lignes pour quand on dépasse l'ancienne limite d'excel 2003 ?
Range("A65536").End(xlUp).Row + 1
contre
Range("A1048576").End(xlUp).Row + 1 qui fonctionne pas

Merci pour le retour d'info.

@+

Chaps

 

[Chaps]

Re : Trouver la premiere cellule vierge dans une colonne

Re,

J'ai rien dis, après fermeture et réouverture du fichier la macro a fonctionné.

Merci

Chaps