VISUAL BASIC : chercher la1ere colonne vide
AKH
-
Armojax Messages postés 1863 Date d'inscription Statut Membre Dernière intervention -
Armojax Messages postés 1863 Date d'inscription Statut Membre Dernière intervention -
coucou
je cherche une fonction qui me permetrait de trouver la premier colonne vide dans une feuille.
Merci a tous et a +
je cherche une fonction qui me permetrait de trouver la premier colonne vide dans une feuille.
Merci a tous et a +
5 réponses
-
salut,
Ceci devrait marcher :
ColonneVide = Range("A1").End(xlToRight).Offset(0, 1).Column
-
-
Salut,
Je ne suis pas sur d'avoir bien comprit !!!
Voici une proc qui te donne l'adresse de la première
colonne vide sur une ligne donné.
L'exemple inscrit l'adresse dans la dite première
colonne vide dans cette même colonne.
**************************************************
Sub ChercheColonneVide()
...Dim PositionDepart As Variant
...Dim Valeur As Variant
...PositionDepart = ActiveCell.Address
...Valeur = ActiveCell.EntireRow.End(xlToRight).Address
...Range(Valeur).Select
...ActiveCell.Offset(0, 1).Select
...ActiveCell.Offset(0, 0).Value = ActiveCell.Address
...Range(PositionDepart).Select
End Sub
***************************************************
Lupin
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Pour avoir le n° de la première colonne vide par rapport à la cellule C3 :
Dim Plage As Range
Set Plage = Range("C3").CurrentRegion
' première colonne vide à droite de la cellule nommée
i = Plage.Column + Plage.Columns.Count
' première colonne vide à gauche de la cellule nommée
i = Plage.Column -1
' colonne désignée par une lettre :
x = Chr(i + 64)
Armojax.
