Selection de cellule automatisée

[ManuelM]

Bonjour à tous,

Je suis novice en VBA et j'essaie de créer un petit logiciel.

Dans la plage A13:A52, je souhaite détecter la première cellule vide, me décaler d'une cellule vers le haut et copier celle ci.
Voici ce que j'ai essayé en trouvant des infos par ci par là. Malheureusement ça ne fonctionne pas...

Sheets("CRATES_LIST").Select
'trouver la dernière cellule vide de la plage A13 A52
j = 13
Do
j = j + 1
Loop Until IsEmpty(Cell(1, j))
Cell(1, j).Select



Ce doit être très simple pour des experts!

Merci d'avance
Manuel

 

[ayaflo]

Re : Selection de cellule automatisée

Bonjour Manuel,

essaye si ces lignes de codes répondent à tes attentes

Range("A13").Select
Selection.End(xlDown).Select
Selection.Copy

Ayaflo

 

[ManuelM]

Re : Selection de cellule automatisée

Bonjour Ayaflo,

Non les lignes ne me vont pas désolé 🙁 cela me selectionne la dernière cellule de ma colonne.
Je vais essayer de décrire mieux ce que je cherche à faire:

j'ai une colonne que je rempli manuellement et chronologiquement:
1
2
3
etc.. jusqu'à 52 au maximum.

Cette liste est rempli petit à petit mais toujours de façon chronologique, on ne peut pas remplir le 2 si on a pas le 1.

Donc je souhaite pouvoir sélectionner la dernière cellule pleine de ma liste pour voir où en est le remplissage.

Pour faire ça, j'ai vu qu'il faut chercher d'abord chercher la 1ere cellule vide de ma liste (donc celle juste en dessous de mon dernier chiffre rentré) puis remonté d'une cellule pour avoir du coup ma dernière cellule pleine.

J'espère que j'ai bien expliqué :S

Merci d'avance
Manuel

 

[tototiti2008]

Re : Selection de cellule automatisée

Bonjour Manuel, Bonjour ayaflo,

Non les lignes ne me vont pas désolé 🙁 cela me selectionne la dernière cellule de ma colonne.

Donc je souhaite pouvoir sélectionner la dernière cellule pleine de ma liste pour voir où en est le remplissage.

Pour faire ça, j'ai vu qu'il faut chercher d'abord chercher la 1ere cellule vide de ma liste (donc celle juste en dessous de mon dernier chiffre rentré) puis remonté d'une cellule pour avoir du coup ma dernière cellule pleine.

Comme ayaflo, je ne comprend pas la différence
tu peux avoir des trous dans les valeurs de la colonne A ?

 

[ManuelM]

Re : Selection de cellule automatisée

Bonjour TotoTiti,

C'est dur à expliquer par mail c'est vrai.

Ma liste commence à 1 et finie à 52 donc 52 cellules dans ma colonne.
Si ma colonne est rempli que de 1 à 13, je souhaite pouvoir sélectionner la cellule 13.
Dans cet exemple, entre 1 et 13 toutes les cellules sont remplie, entre 13 et 52 elles sont vides.

 

[tototiti2008]

Re : Selection de cellule automatisée

Re,

Dans ta question initiale, ça ne commençait pas à la ligne 1 mais à la ligne 13
essaye le code de ayaflo adapté comme ça

Range("A1").End(xlDown).Copy

 

[ManuelM]

Re : Selection de cellule automatisée

Autant pour moi j'ai crée la confusion.

On commence bien à la cellule A13 et on y entre un "1", ensuite la A14 et on y entre un "2" etc.. jusque la A52 qui sera donc un "40".

Ce n'est pas la A52 que je cherche forcément à sélectionner mais la dernière cellule pleine (qui peut être la A25 comme la A37 suivant l'avancement du remplissage manuel)

Manuel

 

[tototiti2008]

Re : Selection de cellule automatisée

Re,

Toujours pas compris
Poste un fichier exemple avec une explication de ce que tu veux comme résultat en fonction des données que tu nous aura fourni

 

[ManuelM]

Re : Selection de cellule automatisée



Voici le fichier. Dans cet exemple seule la cellule A13 est remplie. On rempli manuellement A13, puis A14 etc.
Je souhaite copier la dernière cellule pleine de la plage A13 A52.
Pour ce faire j'ai vu qu'il fallait détecter la première cellule vide (dans l'exemple ce serait A14), me décaler d'une cellule vers le haut (je retombe sur A13) et copier celle ci.

Pourquoi cette démarche? Car A13 n'est pas forcément la dernière cellule pleine.
Par contre on a jamais de trou dans la liste.


J'espère que c'est plus détaillé :S

 

[tototiti2008]

Re : Selection de cellule automatisée

Re,

Donne-nous un classeur, pas une image illisible
On ne peut rien faire de ça
En tout cas en regardant ton exemple je ne comprend pas pourquoi le code de ayaflo ne fonctionne pas

 

[ManuelM]

Re : Selection de cellule automatisée

Je crois avoir compris.
Dans cette même colonne, j'ai un "total" tout en bas. avec la formule, ça me sélectionne le "total".

Peut on imposer à cette formule de s'arreter à un endroit donné?

 

[ManuelM]

Re : Selection de cellule automatisée

Bon j'ai résolu ces soucis. Merci de clore ce sujet s'il vous plait.

Manuel