Remplissage d'un tableau

Résolu
eltigre85
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
- 28 févr. 2012 à 12:37
eltigre85
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
- 29 févr. 2012 à 10:06
Salut, je viens d'essayer le code suivant:
Dim s as range 's est une cellule dont l'adresse a été trouvé dans un programme précédent
Dim d As Integer
Dim j As Integer
Dim k As Integer
Dim etab(23) As Variant
For j = 0 To 23
etab(j) = Range(Cells(s.Row, s.Column + 4), Cells(s.Row + j + 1, s.Column + 4)).Value
MsgBox etab(j)
Next j
End Sub

ça m'affiche erreur 13 incompatibilité de type.
Je me demande bien ce qui peut clocher.
Merci de votre aide

5 réponses

eltigre85
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013

29 févr. 2012 à 10:06
C'est bon il suffisait d'enlever le .value ce qui donne:
Dim d As Integer
Dim j As Integer
Dim k As Integer
Dim etab(23) As Variant
For j = 0 To 23
etab(j) = Cells(s.Row + j, s.Column + 4)
MsgBox etab(j)
Next j

Et ça tourne, merci à tous pour votre aide
3
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
28 févr. 2012 à 12:50
la Value d'une plage de cellule ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
28 févr. 2012 à 12:55
cela peut durer très longtemps et donner lieu à mille et une discussions ouvertes, sans qu'un seul mot ne soit changé à ce qui a déjà été répondu dans la première :

Tapez le texte de l'url ici.
(laissée, abandonnée ... juste recommencée )


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
28 févr. 2012 à 12:58
Tu risques fort, Monsieur le tigre, de ne plus avoir la moindre réponse du moindre des éléphants, si tu continues ainsi.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eltigre85
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013

28 févr. 2012 à 13:23
Dslé autant pour moi j'ai rectifié le code tjrs rien

Dim d As Integer
Dim j As Integer
Dim k As Integer
Dim etab(23) As Variant
For j = 0 To 23
etab(j) = Cells(s.Row + j, s.Column + 4).Value
MsgBox etab(j)
Next j

Il y a quelque chose qui cloche avec le tableau
0