Probleme sur un programme qui regroupe l
Résolu
JP
-
JP -
JP -
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
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
2 réponses
-
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 -
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.
