Set [nom de zone] = Range[" Valeur de départ : Valeur de Fin "] Résolu/Fermé

Question

Bonjour,Bonsoir

Comme je le dis dans le titre , j'ai un probleme avec la fonction 
Set .. = Range(" .. : .. ")

lorceque je fais 

 Set ZoneCompte = Range("B3:BV4")
     For Each Jours In ZoneCompte
          MsgBox (Cells(4, Jours).Value)   <---|
                                                                  |
                                                                  |
Celle ci me renvoie la 1er case de mon tableau excel , et non pas la case du Range que je lui ai indiqué , si j'ajoute 

 Set ZoneCompte = Range("B3:BV4").Select <--- Le Range se fait correctement cela selectionne bien les cases concernée 

     For Each Jours In ZoneCompte
          MsgBox (Cells(4, Jours).Value

cela me dis , Incompatibilités de type erreur '13'

faute de trouver une notice claire sur internet , je me retourne vers vous :D

Merci a ++

f894009 · Answer

Bonjour,

MsgBox (Cells(4, Jours).Value) vous affiche le contenu ce la cellule ligne 4, numero de colonne contenu dans Jours, ex: si jour=8 affichage contenu cellule H4

Polux31 · Answer

Bonjour Killburns911, bonjour F894009

ZoneCompte est un Range ... Jours doit également être un Range 

En faisant :
For Each Jours In ZoneCompte
     Msgbox Jours.Value
Next

On aura bien la valeur de la cellule B3 dans la première boucle, BA dans la 2ème etc ... jusqu'à BV4
 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Killburns911 · Answer

Merci Polux , c'est ca !! :D

Zone compte est un objet range , il faut donc que je renvoie un objet range sinon , bha incompatibilité xD

Set [nom de zone] = Range[" Valeur de départ : Valeur de Fin "]

3 réponses

Discussions similaires