Recherche cellule vide Excel VBA

Version imprimable

07/02/2017, 12h03
Dens38

Recherche cellule vide Excel VBA

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.
07/02/2017, 17h17
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, …
07/02/2017, 17h20
Menhir

Citation:

Envoyé par Dens38

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

Code:

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

https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx
07/02/2017, 17h25
unparia

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

Code:

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.

C'est facile avec For...Next

Code:

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

Citation:
Envoyé par Docmarti
C'est facile avec For...Next
Code:

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
:lol:

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

A une prochaine fois

Dens

08/02/2017, 09h31
Menhir

Comment faire compliqué quand on peut faire simple... :roll:
08/02/2017, 10h34
Philippe Tulliez

Bonjour Menhir,

Citation:

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

:plusser:
J'avoue qu'il y a des jours, on a envie :arf:
08/02/2017, 10h47
unparia

Bonjour à tous
Dans le genre simple, j'ai encore plus simple :
1) parcourir toutes les cellules de la colonne A du UsedRange + 1 ligne et ajouter VINGT-DEUX espaces à leur contenu
2) utiliser la fonction Range.Find pour repérer la première occurrence de VINGT-DEUX espaces consécutifs et mémoriser la propriété Row de l'objet range(une cellule, donc) ainsi repéré. C'est notre ligne.
3) reparcourir le tout en remplaçant partout (fonction REPLACE, hein ... et pas (ce serait trop facile) par Range.Replace ... Ni même TRIM,hein, car trop facile également) VINGT-DEUX espaces par rien de sorte à tout retrouver dans l'état originel.
Bon ... je sors ...