Discussion :

[Dens38]

Bonjour à tous.

Première utilisation car inscription ce jour.

Voici ma requête.

Je cherche à me positionner sur la première cellule vide d'une plage spécifique d'une colonne.

Exemple:

A1:eeeeeeeeee

A2:rrrrrrrr

A3:

A4:kkkkkkkkkkkk


Sélection de la plage A1:A4
La cellule active devrait être A3
Si plusieurs cellules vides, se positionner sur la première cellule vide.
Les cellules concernées n'ont jamais de formule à l'intérieure.

Ouverture de la fonction avec Private Sub CommandButton_Click()


Pouvez-vous me transmettre le code VBA.

Merci à tous.

[Marc-L]

Bonjour !

Merci de bien lire les règles de ce forum ‼

A partir de la première cellule, utiliser la propriété End(xlDown) pour trouver la dernière saisie avant la première cellule vide,
(correspond dans Excel à CTRL + Flèche Bas)

il suffit ensuite de décaler d'une cellule vers le bas via la propriété Offset.

Tout ceci étant documenté dans l'aide VBA interne donc à la portée d'un débutant …
Sans compter la possibilité d'activer l'Enregistreur de macro et opérer manuellement : le code est livré sur un plateau !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour Marc-L et Menhir
Ou même ainsi :

Code :

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

UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).Row

qui évitera d'avoir le rows.count si la colonne est encore entièrement vide ou que seule la cellule A1 est remplie.

[Docmarti]

C'est facile avec For...Next

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 PremiereCelluleVide()
 
Set r = Range("b3:b50")
 
For i = 1 To r.Rows.Count
 
 If r.Cells(i).Formula = "" Then
 
  Set PremiereVide = r.Cells(i)
  PremiereVide.Select
 
  Exit Sub
 End If
 
Next
End Sub

[Dens38]

C'est facile avec For...Next

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 PremiereCelluleVide()
 
Set r = Range("b3:b50")
 
For i = 1 To r.Rows.Count
 
 If r.Cells(i).Formula = "" Then
 
  Set PremiereVide = r.Cells(i)
  PremiereVide.Select
 
  Exit Sub
 End If
 
Next
End Sub

Parfait, la solution et maintenant en pratique et tout fonctionne, un grand merci

A une prochaine fois

Dens

[Menhir]

Comment faire compliqué quand on peut faire simple...

[Menhir]

Je cherche à me positionner sur la première cellule vide d'une plage spécifique d'une colonne.

Code :

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

Range("A1").End(xlDown).Offset(1,0)

https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx