A voir également:
- VISUAL BASIC : chercher la1ere colonne vide
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
5 réponses
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
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.
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.
