vb et excel....Résolu

Question

bonjour a tous,

je cherche le moyen de faire une boucle et qui fait un msgbox de tout les "item"....

exemple de tableau:
a      b      c      d      e      f
1 test1     salut1
2 test2
3 test3
4

donc quand j'execute la macro je dois avoir plusieurs messagebox "test1", "salut1" etc
nottez que les donnée ne sont pas toujours dans la colonne a ou b, il faut donc tester la précense de donnée dans le tableau.

quelque chose dans le genre quoi
dim boucle as integer
for boucle = minX to maxX
   msgbox cellule(boucle).value
next boucle

Voila je pense que c'est simple a faire mais je n'ai pratiquement aucune connaissance dans excel

bigfish_le vrai · Accepted Answer

Salut,

Une petite remarque pour commencer : Tu n'es pas dans le bon theme !... Pour Excel et plus generalement le VBA c'est ici :

--->  Thèmes / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBA_244.aspx VBA] /

Non non !!! ne reposte pas ailleurs on continu malgré tout avec celui-ci !

Ceci etant dit, en supposnt que la feuille soit feuil1:

Sub test()
    Dim Cellule As Range, MaPlage As Range, DerniereCellule As String
    'on recherche la derniere cellule 
    DerniereCellule = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Set MaPlage = Worksheets("Feuil1").Range("A1:" & DerniereCellule)
    For Each Cellule In MaPlage
        If Cellule.Value <> "" Then MsgBox Cellule.Value
    Next
End Sub

cs_kalif · Answer

merci, et désolé pour avoir poster au mauvais endroit ;)

Vb et excel....

2 réponses

Votre réponse

Discussions similaires