K
kiskool
Guest
Bonjour le forum,
ca fait quelque 2 ans que j'ai quitté ce forum (qui a beaucoup changé !!) et que je ne touche plus au VBA mais aujourd'hui c'est le grand jour ... j'ai à nouveau besoin de votre aide pour un ti problème basic.
J'ai juste besoin de dimensionner un tableau VB en dynamique. voici mon code (simplifié) non testé à cause du bug sur la table:
Sub init()
dim Last As Integer
Windows('BNPP A & S Reporting installation.xls').Activate
Range('D2').Select
Last = Range('d65536').End(xlUp).Row
Dim Table() As Integer
For i = 1 To Last
If ActiveCell.Offset(0, i) <> '' Then
AJOUTER UNE LIGNE DE 3 COLONNES A MA TABLE...
(ou la redimensionner en Table (i,2) avec conservation des données)
Table(i, 0) = ActiveCell.Offset(0, i)
Table(i, 1) = ActiveCell.Offset(1, i)
Table(i, 2) = ActiveCell.Offset(2, i)
End If
Next i
End Sub
Vous l'avez compris je veux juste mettre mes colonnes D, C et E dans une table tampon pour les recoller ailleurs. L'outils de données externes ne fonctionnent pas et le 'collage spécial avec lien non plus'...
Merci d'avance
ca fait quelque 2 ans que j'ai quitté ce forum (qui a beaucoup changé !!) et que je ne touche plus au VBA mais aujourd'hui c'est le grand jour ... j'ai à nouveau besoin de votre aide pour un ti problème basic.
J'ai juste besoin de dimensionner un tableau VB en dynamique. voici mon code (simplifié) non testé à cause du bug sur la table:
Sub init()
dim Last As Integer
Windows('BNPP A & S Reporting installation.xls').Activate
Range('D2').Select
Last = Range('d65536').End(xlUp).Row
Dim Table() As Integer
For i = 1 To Last
If ActiveCell.Offset(0, i) <> '' Then
AJOUTER UNE LIGNE DE 3 COLONNES A MA TABLE...
(ou la redimensionner en Table (i,2) avec conservation des données)
Table(i, 0) = ActiveCell.Offset(0, i)
Table(i, 1) = ActiveCell.Offset(1, i)
Table(i, 2) = ActiveCell.Offset(2, i)
End If
Next i
End Sub
Vous l'avez compris je veux juste mettre mes colonnes D, C et E dans une table tampon pour les recoller ailleurs. L'outils de données externes ne fonctionnent pas et le 'collage spécial avec lien non plus'...
Merci d'avance