Affichage de noms des cellules par boucle VBA Résolu

Question

Bonjour, 

Je suis dans mes premiers pas dans la programmation sur VBA, et après plusieurs recherches j'essaie de faire une boucle qui m'affiche un par un les noms que j'ai dans ma colonne A; est-ce-que quelqu'un aurait une trace a me donner.

Merci pour votre temps,

Inti

Configuration: Mac OS X / Firefox 7.0.1

Patrice33740 · Answer

Bonjour,

Essaies ce code:
Option Explicit
Sub test()
Dim cel As Range
  For Each cel In Intersect(UsedRange, Columns(1)).Cells
    If cel.Formula <> "" Then MsgBox cel.Value
  Next cel
End Sub

intirafael · Answer

Merci Patrice,

J'ai un message qui m'affiche: UsedRange: Variable not defined.

Comment je dois définir UsedRange? 

Merci

Patrice33740 · Answer

Re, 

Le code ci-dessus est à placer dans un module de feuille 

Pour un module standard mettre : 
Option Explicit 
Sub test() 
Dim cel As Range 
  For Each cel In Intersect(ActiveSheet.UsedRange, _
    ActiveSheet.Columns(1)).Cells 
    If cel.Formula <> "" Then MsgBox cel.Value 
  Next cel 
End Sub 

Cordialement 
Patrice

intirafael · Answer

Ca marche impeccable, merci beaucoup.

Affichage de noms des cellules par boucle VBA

4 réponses

Votre réponse

Discussions similaires