Discussion :

[BtjpsspgrW]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro()
 
'B4:B6 cellules continues non vides'
    Range("B4").Select
    Selection.End(xlDown).Select 'cellule B6 sélectionnée'
 
 
'Seul B9 est remplie'
    Range("B9").Select
    Selection.End(xlDown).Select 'cellule B12 sélectionnée'
 
 
    'B12:B14 cellules continues non vides'
    Range("B12").Select
    Selection.End(xlDown).Select 'cellule B14 sélectionnée
 
End Sub

Bonjour,

Dans l’exemple ci-dessus, je souhaite sélectionner la dernière cellule remplie, d’une suite de cellules non vides en continu.
Cependant, lorsqu’une seule cellule est remplie, je veux que si la cellule suivante n’est pas remplie, reste sur la cellule remplie, c’est-à-dire la cellule B9 dans le cas exposé ci-dessus. Or, dans la macro, on passe de B9 à B12.

Je ne vois pas comment rédiger une telle macro.

Suis-je assez clair ? Quelqu’un peut-il m’aider ?

Vous en remerciant par avance.

Cordialement.

[pgz]

Bonjour.

Tu peux tester si la cellule suivante est vide. Ce n'est pas très joli, mais ici cela donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsEmpty(Range("B10").Value) Then Selection.End(xlDown).Select

Cordialement,

PGZ

[BtjpsspgrW]

Bonjour,

Comment modifier ta syntaxe, car ce qui me dérange, c'est que tu précise la cellule B10.
Je préférais tester sur la cellule suivante, car B10 était un exemple. Ça peut être une autre cellule.

En clair, remplacer Range("B10") par en language VBA cellule suivante.

Je ne suis pas très fort, quand il s'agit de modifier une partie du code VBA.
Je te remercie de ton aide.

Cordialement.

[Marc-L]

Bonjour,

voir par exemple du côté de la propriété Offset …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

En fait, la meilleure solution est d'utiliser la propriété CurrentRegion :

dans le cas d'une saisie unique, la dernière cellule saisie est forcément cette saisie unique !

[BtjpsspgrW]

Bonjour,

Ou remplacer Range("B10").Value par ActiveCell ?
Ou remplacer Selection.End(xlDown).Select par Offset(0,0).Select ?
Pour que le code de la macro fonctionne ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsEmpty(Range("B10").Value) Then Selection.End(xlDown).Select

.Value concerne un nombre (pour du texte, que convient le mieux)

Vous en remerciant par avance.

Cordialement.

[Marc-L]

Logiquement en suivant l'aide VBA c'est inutile !

Donc dans le doute d'une présentation incomplète, joindre un fichier représentatif et sans macro
tout en l'accompagnant d'explications ne laissant pas libre cours à de l'interprétation,
bref, une présentation claire et exhaustive comme il se doit dès le premier message !