Utilisation de Selection.End(xlDown)

Re : Utilisation de Selection.End(xlDown)

Bonjour,

Il faut ajouter 1 à la ligne de cette cellule, comme ça:

Selection.End(xlDown).row +1

Bon courage

A+

smotty

Re : Utilisation de Selection.End(xlDown)

Bonjour à tous,

Range("A1").End(xlDown).Offset(1).Select ou

Range("A1").End(xlDown)(2).Select

L'ennui de End(xlDown) c'est que si toutes les cellules sous A1 sont vides, c'est A65536 qui est sélectionnée...

Il vaut mieux en général utiliser :

Range("A65536").End(xlUP).Offset(1).Select ou

Range("A65536").End(xlUp)(2).Select

A+

Re : Utilisation de Selection.End(xlDown)

Smotty,

J'ai également essayé ce truc, mais ça ne fonctionne pas non plus : lorsque je crée la macro suivante, le "+" est systématiquement supprimé

Sub SelectionCellVide()
' SelectionCellVide Macro
' Macro enregistrée le 11/12/2008 par refreste
Selection.End(xlDown).Row +1
End Sub

Est-ce un problème de version d'excel ou ya-t-il un truc incohérent dans ma macro ?

Merci pour ton aide,
Stéphane

Re : Utilisation de Selection.End(xlDown)

Merci Job75 ! C'est effectivement beaucoup plus joli avec tes propositions.

Bonne journée à vous 2 pour votre aide si rapide.

Stéphane

Re : Utilisation de Selection.End(xlDown)

Re,

Selection.End(xlDown).Row +1 est un nombre, rien n'est selectionné.

Une ligne VBA doit contenir une instruction, pas un nombre isolé.

A+

Bonjour je vois que les post sont ancien mais j'ai un problème du même type. Je suis novice dans la pratique et je sèche:
J'ai construit un formulaire de saisie de bdd en suivant un tuto. Et l'objectif était d'incrémenter ligne après ligne les données entrées dans mon forulaire, voici la formule:

Sheets("source").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = cboMateriel.Value
ActiveCell.Offset(0, 1).Value = cboAchat
ActiveCell.Offset(0, 2).Value = txtDenomintaion
ActiveCell.Offset(0, 3).Value = TextDescript
ActiveCell.Offset(0, 4).Value = TextRef
ActiveCell.Offset(0, 5).Value = TextPrix
ActiveCell.Offset(0, 6).Value = TextLocJours
ActiveCell.Offset(0, 7).Value = cboUnité
ActiveCell.Offset(0, 8).Value = TextQtte


Mon problème est que systématiquement mes données vont à la dernière ligne de mon tableau mis en forme et que je n'arrive à implémenter que deux lignes. Chaque nouvelle saisie vient écraser la dernière ligne du tableau.

Je sèche, quelqu'un pourrait il m'aider ?

Merci d'avance.

Bonsoir GOUTTIN, bienvenue sur XLD,

D'après votre code vous remplissez la 1ère cellule vide en colonne A puis la ligne jusqu'à la colonne I.

Bien sûr si cboMateriel est vide la ligne sera la même à l'exécution suivante.

A+