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

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

3 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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
1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Killburns911 Messages postés 293 Date d'inscription   Statut Membre Dernière intervention   15
 
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
0