Probleme sur un programme qui regroupe l Résolu/Fermé

Question

Bonjour, 

voila j'ai récupérer sur ce site un programme
qui me permet de ranger à la suite des autre des valeur dans une colonne mais j'ai voulu l'arranger à ma sauce. mais j'ai deux problème:
le premier est que je veux que sa parte chercher les valeur dans la colone B de la feuille "EXTRACTION" pour me les restituers sur la colone A de ma feuille "POIDS PAR ELEMENT" à partir de la cellule A2
Le deuxième est qu il me restitue pas la dernière valeur de la colone B 

Voici le petit programme récupéré ici

Sub rassemble()
Dim TablColB, TablColA(), i As Long, Lig As Long

TablColB = Sheets("EXTRACTION").Range("B2", Sheets("EXTRACTION").Range("B" & Rows.Count).End(xlUp))
'ici commence le travail en mémoire...
For i = LBound(TablColB) To UBound(TablColB)
    If TablColB(i, 1) <> "" Then
        ReDim Preserve TablColA(Lig)
        TablColA(Lig) = TablColB(i, 1)
        Lig = Lig + 1
    End If
Next
'restitution
Sheets("POIDS HA PAR ELEMENT").Range("A2").Resize(UBound(TablColA), 1) = Application.Transpose(TablColA)
End Sub


Configuration: Windows 7 / Internet Explorer 9.0

pijaku · Answer

Salut, 
Tiens ce code me dit quelque chose... 
Content qu'il soit utile. 

Ton tableau TablColA étant une varaiable tableau à une dimension, commence à l'indice 0. On a donc tendance à oublier un élément. 
Change donc : 
 Sheets("POIDS HA PAR ELEMENT").Range("A2").Resize(UBound(TablColA), 1) = Application.Transpose(TablColA)  

Par : 
Sheets("POIDS HA PAR ELEMENT").Range("A2").Resize(UBound(TablColA) + 1, 1) = Application.Transpose(TablColA) 
Cordialement, 
Franck P

pijaku · Answer

Resize pour toi c'est Ok?
Donc tu resize de : 
1- (Ubound(TablColA) + 1 = nombre de ligne du resize
2- , 1) = nombre de colonnes... ici tu resize sur une seule colonne.

Probleme sur un programme qui regroupe l

2 réponses

Discussions similaires