Affichage de noms des cellules par boucle VBA

Résolu
intirafael Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
intirafael Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

4 réponses

Réponse 1 / 4
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
Réponse 2 / 4
intirafael Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Patrice,

J'ai un message qui m'affiche: UsedRange: Variable not defined.

Comment je dois définir UsedRange?

Merci
0
Réponse 3 / 4
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
Réponse 4 / 4
intirafael Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Ca marche impeccable, merci beaucoup.
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Probleme d'affichage google chrome
flyingvvv -
helo -

5 réponses