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, …

[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

[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...

[Philippe Tulliez]

Bonjour Menhir,

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

J'avoue qu'il y a des jours, on a envie

[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 ...