Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Positionner le curseur en 1ère cellule vide ColB

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

Webperegrino

XLDnaute Accro
Supporter XLD
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
 
Trier par date Trier par votes
Re : Positionner le curseur en 1ère cellule vide ColB

Bonsoir

Ci dessous un code

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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

  • erreur compilation.jpg
    43 KB · Affichages: 225
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Positionner le curseur en 1ère cellule vide ColB

Bonjour à tous


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

Je n'avais pas d'erreur sur le code.
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.

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

JP
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
Autres code barre dans textbox pour sélectionner ligne a afficher dans listbox
2 3
Réponses
33
Affichages
3 K
herve62
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
  • Question Question
Microsoft 365 Ordre alphabétique à la fermeture d'une feuille
Réponses
5
Affichages
755
pompaero
R
  • Question Question
XL 2019 lister fichier avec exifs ou propriétés
Réponses
1
Affichages
2 K
fanch55
B
  • Question Question
Not Application.Intersect + Hyperlinks : erreur 1004
Réponses
6
Affichages
1 K
benjaminxls
B
  • Question Question
XL 2010 Application.ScreenUpdating
Réponses
4
Affichages
1 K
Mirguy23
M
  • Question Question
XL 2019 Positionnement sur la dernère cellule et affichage diffèrent en Manuel et en VBA :-(
Réponses
2
Affichages
1 K
Patrice33740
F
  • Résolu(e)
Autres Trie dans une feuille en VBA
Réponses
5
Affichages
898
FOUQUET Yves
F
  • Question Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
K
  • Question Question
Selectionner une plage jusqu'a la dernière cellule non vide dans une fonction
Réponses
14
Affichages
13 K
Karlito91170
K
W
  • Question Question
[Résolu] Faire un Tri entre With et End with
Réponses
2
Affichages
623
Webperegrino
W
J
  • Question Question
code vba - erreur
Réponses
2
Affichages
859
JCC44
J
Y
  • Question Question
Tri automatique
Réponses
1
Affichages
744
Pierrot93
  • Question Question
Trie et majuscule
Réponses
1
Affichages
707
Yaloo
Y
M
  • Question Question
Recherche cellule vide en boucle dans vba
Réponses
3
Affichages
923
Pierrot93
R
  • Question Question
Macro atteindre dernière cellule non vide d'un tableau mis en forme (xl)
Réponses
13
Affichages
2 K
rcan7412
R
R
  • Question Question
Obtenir le contenu - première cellule non vide avec condition
Réponses
11
Affichages
3 K
romain001
R
D
  • Question Question
Macro - Effacer le contenu d'une cellule en fonction de sa valeur.
Réponses
10
Affichages
10 K
NicolasKH
N
B
  • Question Question
Problème de fichier joint dans une macro Excel d'envoi de courrier
Réponses
10
Affichages
2 K
Staple1600
J
  • Question Question
selectionner la premiere cellule vide de la colonne A(volet figer)
Réponses
10
Affichages
2 K
julie999
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…