Affichage de noms des cellules par boucle VBA

Résolu/Fermé

intirafael Messages postés 5 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 15 novembre 2011 - 14 nov. 2011 à 20:30
intirafael Messages postés 5 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 15 novembre 2011 - 14 nov. 2011 à 23:25

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:

Affichage de noms des cellules par boucle VBA
Formule excel pour additionner plusieurs cellules - Guide
Les noms des animaux - Télécharger - Études & Formations
Verrouiller des cellules excel - Guide
Affichage double ecran - Guide
Excel compter cellule couleur sans vba - Guide

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
14 nov. 2011 à 20:39

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

Réponse 2 / 4

intirafael Messages postés 5 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 15 novembre 2011
14 nov. 2011 à 23:16

Merci Patrice,

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

Comment je dois définir UsedRange?

Merci

Réponse 3 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié par Patrice33740 le 14/11/2011 à 23:23

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

Réponse 4 / 4

intirafael Messages postés 5 Date d'inscription lundi 14 novembre 2011 Statut Membre Dernière intervention 15 novembre 2011
14 nov. 2011 à 23:25

Ca marche impeccable, merci beaucoup.

Discussions similaires

adele

Mon pc s'allume et s'éteint en boucle

Erreur d'exécution 13 Incompatibilité de type

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

Excel VBA : Récupérer la valeur d'une cellule