VISUAL BASIC : chercher la1ere colonne vide

coucou
je cherche une fonction qui me permetrait de trouver la premier colonne vide dans une feuille.

Merci a tous et a +

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. salut,

    Ceci devrait marcher :
    ColonneVide = Range("A1").End(xlToRight).Offset(0, 1).Column

    1. 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
      1. bonjour
        peux tu me faire une copie de ton logiciel visual basic ?
        Cordialement
        1. 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.