Positionner le curseur en 1ère cellule vide ColB

[Webperegrino]

Bonjour Le Forum,

La macro ci-dessous m'aide à trier un tableau.
Elle place les cellules « colonne B » ordonnées car elles sont occupées.
La suite (en partie basse du tableau) ayant alors les cellules vides toujours en colonne B.

En fin de la macro on lit l’information Range("A8").Select
Quelle commande dois-je mettre à la place pour que le curseur se positionne dans la première cellule vide disponible en colonne B ?

Merci à l'avance pour votre secours.
Webperegrino qui souhaite à vous tous ses meilleurs voeux 2010.


Sub ComparFichierRelDeCpte()
'
' Touche de raccourci du clavier: Ctrl+k
'
ActiveSheet.Unprotect
Rows("8:2002").Select
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Key2:=Range("D8") _
, Order2:=xlDescending, Key3:=Range("C8"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortTextAsNumbers

Range("A8").Select ' ici je voudrais me place dans la première cellule vide de la colonne B ActiveSheet.Protect
End Sub

 

[jp14]

Re : Positionner le curseur en 1ère cellule vide ColB

Bonsoir

Ci dessous un code

Sub travd()
Dim dl1 As Long ' dernière ligne
With Sheets(ActiveSheet.Name)
dl1 = .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1
.Range("b" & dl1).Select

End With



End Sub

A tester
Jp

 

[Webperegrino]

Re : Positionner le curseur en 1ère cellule vide ColB

Bonsoir Le Forum
Bonsoir JP14,

J'ai appliqué votre proposition qui indique une erreur de compilation, avec une sélection de l'erreur sur le mot suivant :

.Columns

Merci toutefois pour votre intervention, peut-être me trouverez-vous la correction à effectuer.
Webperegrino

 

[Webperegrino]

Re : Positionner le curseur en 1ère cellule vide ColB

Bonjour Le Forum,

Bonjour JP14 < . Columns >
et Carcharodon-Carcharias < derl. Select >

Ci-joint le dernier message d'erreur de compilation.

Les deux macros ne veulent pas fonctionner.
Je cherche de mon côté, mais sans bon résultat jusqu'ici.
Webperegrino

 

[Webperegrino]

Re : Positionner le curseur en 1ère cellule vide ColB

Re Le Formum
Bonjour Jean-Marcel
Merci à vous pour cette correction
Merveilleux ! Ça fonctionne parfaitement.

Merci à vous trois pour vos participations.
Webperegrino

 

[jp14]

Re : Positionner le curseur en 1ère cellule vide ColB

Bonjour à tous

J'ai appliqué votre proposition qui indique une erreur de compilation, avec une sélection de l'erreur sur le mot suivant :
.Columns

Je n'avais pas d'erreur sur le code.

.Columns(2).Cells.Count

ce code indique le nombre de cellules dans la colonne 2 soit "B".
Du fait de l'augmentation du nombre de ligne dans excel 2007 le code permet la compatibilité avec cette version.

JP

 

[Webperegrino]

Re : Positionner le curseur en 1ère cellule vide ColB

Merci P14 pour cette dernière remarque.
N'ayant "que" Excel 2003, c'est peut-être pour cela que votre code ne fonctionnait pas sur cette version.
Avec cinq lignes de codes aussi c'était pourtant intéressant...
Merci encore

 

[Webperegrino]

Re : Positionner le curseur en 1ère cellule vide ColB

JP14
Toutes mes excuses présentées ici : je viens à l'instant de replacer votre code !
Il fonctionne également avec la version Excel 2003.

Me voilà donc avec deux solutions fiables !
Et me voilà embarrassé car les deux solutions sont aussi rapides l'une que l'autre !
Cordialement,
Webperegrino

 

[jp14]

Re : Positionner le curseur en 1ère cellule vide ColB

Bonsoir à tous

On peut écrire une fois les test terminés, ce qui évite la création d'une variable.

Sub travd()
With Sheets(ActiveSheet.Name)
.Range("b" & .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1).Select
End With
End Sub

JP

 

[Webperegrino]

Re : Positionner le curseur en 1ère cellule vide ColB

Bonjour Le Forum,
Bonjour JP14,
carcharodon-carcharias, Jean-Marcel,

En effet cette dernière formulation est intéressante, cela réduit la longueur de la macro.
Merci à vous tous de votre aide et votre pédagogie pour me permettre de mieux interpréter cette codification VBA. J'y progresse comme un escargot... lentement mais sûrement, et pas plus vite quand il pleut sur Lorient !

Bien cordialement,
Webperegrino