Boucle jusqu'à la derniere colonne non vide

titeuf136 Messages postés 91 Date d'inscription vendredi 15 janvier 2010 Statut Membre Dernière intervention 19 octobre 2012 - 26 avril 2011 à 16:24
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 26 avril 2011 à 17:23
bonjour,

je souhaite effectuer une boucle sur i jusqu'à la derniere colonne non vide. (excel 2007 visual basic)

voici ce que je pensais écrire:
For i = 14 To Range("A65536").End(xlToLeft).Column
Next i
MsgBox (i)


malheureusement ma proposition ne fonctionne pas.
A voir également:

2 réponses

Utilisateur anonyme
26 avril 2011 à 16:34
Bonjour,
Essaye ça:

i = 14
While cells(1,i).value <> ""
  i = i+1
Wend
MsgBox(i)
0
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
26 avril 2011 à 17:23
Salut

Essaye une méthode plus rapide pour trouver la dernière colonne précédent une cellule vide :
    Dim oRange As Range
    Set oRange = Range("A1").End(xlToRight)
    MsgBox oRange.Column

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
[img]http://allproj
0
Rejoignez-nous