Lire une rangée

8 réponses

Jacques

14/01/2006 à 15:45

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

8 réponses

anonymousA

14/01/2006 à 15:04

Bonjour,

for each c in range("A2:"IV2")
if not isempty(c) then
msgbox c.value
else
exit sub
end if
next

A+

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

anonymousA

14/01/2006 à 15:05

Erratum

for each c in range("A2:IV2")

Bonjour,

for each c in range("A2:"IV2")
if not isempty(c) then
msgbox c.value
else
exit sub
end if
next

A+

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

Mousnynao

14/01/2006 à 15:06

Bonjour,

voici un exemple type :

Sub LireRangee()

Dim PositionVide As Long

PositionVide = ActiveCell.EntireRow.End(xlToRight).Column
ActiveCell.Offset(0, PositionVide).Select

End Sub
'

Sub LireLigne()

Dim PositionVide As Long

PositionVide = ActiveCell.EntireColumn.End(xlDown).Row
ActiveCell.Offset(PositionVide, 0).Select

End Sub

mousnynao

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

jps

14/01/2006 à 15:21

c'est quoi une rangée, jacques? elle est verticale ou horizontale?
jps

"Jacques" a écrit dans le message de news:

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

jps

14/01/2006 à 15:29

bonjour jacques
je n'ai peut-être pas compris ce que tu veux...
à tout hasard, les procs ci-dessous t'envoient dans la première cellule vide
de la ligne ou de la colonne
HTH
jps

Sub PremiereCelluleVideADroite()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub

Sub PremiereCelluleVideEnDessous()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

"Jacques" a écrit dans le message de news:

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

LSteph

14/01/2006 à 15:41

Bonjour,
'Bravo les amis
'Histoire de dire moi aussi comme d'hab que j'ai pas bien compris la
question
'Selon comme il faut l'entendre (lire) et s'il y a un seul bloc ou plusieurs
exemples
cells(2,255).end(xltoleft)
cells(2,1).end(xltoright)
'permettent de désigner cette cellule ou
cells(2,1).end(xltoright).select 'de l'atteindre et sinon voici(s'il n'y a
pas un roman dans chaque cellule):

Sub affiche()
'affiche le contenu dans msgbox
Dim i As Byte, liste As String
With Cells(2, 1)
.Select
Do While Not IsEmpty(Selection)
.Offset(, i).Select
liste = liste & Selection.Value & " - "
i = i + 1
Loop
End With
MsgBox liste

End Sub

'lSteph

"Jacques" a écrit dans le message de news:

Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

michdenis

14/01/2006 à 15:49

Bonjour Jacques,

'----------------------
Sub DernièreRangee()

'Si c 'est une colonne
r = Columns(2).Find("", , xlValues, , xlByColumns, xlNext).Row

'Si c'est une ligne
r = Rows(2).Find("", , xlValues, , xlByRows).Column

End Sub
'----------------------

Dans le cas de ton application, si c'est possible que la première
cellule de la colonne ou de la ligne soit vide, tu dois utiliser le deuxième
argument de la méthode Find() comme ceci :
r = Columns(2).Find("", RAnge("B65536"), xlValues, , xlByColumns, xlNext).Row

OU

r = Rows(2).Find("",Range("IV2") , xlValues, , xlByRows).Column

Salutations!

"Jacques" a écrit dans le message de news:
Bonjour,

Pas très famillier avec Excel vba, j'essaie de lire la rangée 2 d'une
feuille jusqu'à ce que l'on trouve une cellule vide.

Une petite aide serait la bienvenue.

Merci de vos réponses

Jacques

14/01/2006 à 16:15

Le contenu de la dernière colonne renseignée de la ligne 2 (avec vides - sans
erreurs)

MsgBox [index(2:2,max(if(iserror(2:2),column(2:2),if(2:2="",0,column(2:2)))))]
MsgBox [2:2].Find("*", [A2], , , xlByColumns, xlPrevious)

AV

Lire une rangée

8 réponses

Veuillez sélectionner un problème