Remplissage d'un tableau [Résolu]

Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
- - Dernière réponse : 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
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 196 internautes nous ont dit merci ce mois-ci

Commenter la réponse de eltigre85
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
la Value d'une plage de cellule ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Commenter la réponse de Renfield
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
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
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
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
Commenter la réponse de ucfoutu
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
0
Merci
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
Commenter la réponse de eltigre85