Pb code VBA Curcell

Lucas922 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Etant novice en Vba ma macro stop sur le code suivant a l'endroit en gras :
( a noter sur mon fichier lors du beug et que je vais sur curcell.row en gras "32768" est affiché)

'fonction retourne le tableau des références
Function getRef()
Sheets("Reporting").Select
Dim ref() As Integer
'ReDim ref(Application.Subtotal(3, [A3:A15000]))
Dim plage As Range
Dim CurCell As Range
Dim pDoc As Integer
Dim deDoc As Integer

pDoc = Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Row
deDoc = Range("A65536").End(xlUp).Row

Set plage = Range(Cells(pDoc, 1), Cells(deDoc, 1)).SpecialCells(xlCellTypeVisible)

i = 0

For Each CurCell In plage.Rows
ReDim Preserve ref(i)
ref(i) = Cells(CurCell.Row, "D").Row
i = i + 1
Next
getRef = ref
End Function

J'ai vraiment besoin d'aide cordialement merci beaucoup

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour, 

Dim ref() As Integer

A declarer en entier Long
0
Lucas922 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour votre aide,
je suis vraiment novice de chez novice
ce la donnerait quoi après correction?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715 > Lucas922 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

ce la donnerait quoi après correction?
Integer: -32765 a +32767 donc 32768 trop grand pour integer, prendre Long et cherchez les limites d'un entier long vous comprendrez peut-etre!
0
Lucas922 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Merci, je comprends
Lorsque j'intègre la variable erreur de compilation une constante est requise entre les champs en gras


fonction retourne le tableau des références
Function getRef()
Sheets("Reporting").Select
Dim ref() As Integer
'ReDim ref(Application.Subtotal(3, [A3:A15000]))
Dim plage As Range
Dim CurCell As Range
Dim pDoc As Integer
Dim deDoc As Integer

pDoc = Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Row
deDoc = Range("A65536").End(xlUp).Row

Set plage = Range(Cells(pDoc, 1), Cells(deDoc, 1)).SpecialCells(xlCellTypeVisible)

i = 0

For Each CurCell In plage.Rows
ReDim Preserve ref(i)
ref(i) = Cells(CurCell.Row, "D").Row
Dim ref(i) As Long

i = i + 1
Next
getRef = ref
End Function
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715 > Lucas922 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Z'etes vraiment novice, il faut mettre cette declaration a la place de l'autre
0