aide sur VBA

[maspascal]

Bonjour a tous
je me lance dans VBA j'ai un problème que je n'arrive pas trouver
explication quand je récupère un tableau feuille 2 ffjda sur une base de donnée qui évolue en nombre de licencies.Lorsque en feuille 1 codevba il ne prend pas tous les licencies

Merci pour votre aide

 

[Staple1600]

Bonjour à tous


Il eut été plus judicieux que tu prennes le temps de mettre des données fictives dans ta feuille ffjda, non ?
Histoire qu'on puisse tester ta macro...
Là, on dispose juste d'un classeur vide avec du VBA dedans.

 

[maspascal]

Bonjour
Dessolé fichier rectifie

Merci

 

[Staple1600]

Re

Ton nouveau fichier est toujours aussi vide...
same player shoot again

En atteandant un fichier "rempli" de bidons
Voici un essai de macro qui fonctionne

Sub a()
Dim Colonnes, i&, derlig&
'ici adapter avec le noms des vrais feuilles
derlig = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row
Colonnes = Array("E", "F", "G", "C", "H", "I", "K", "L", "M", "O", "Q")
For i = LBound(Colonnes) To UBound(Colonnes)
'ici adapter avec le noms des vrais feuilles
Feuil2.Cells(2, Colonnes(i)).Resize(derlig).Copy Feuil1.Cells(5, i + 1)
Next
End Sub

 

[maspascal]

Bonjour
désolé fichier rectifie
Merci

 

[Staple1600]

Re

Et que donne ton test de macro sur ton PC?

 

[maspascal]

code erreur
Erreur d'exécution « 424 »:

 

[Staple1600]

Re

Bien sur tu as lu les commentaires en vert dans la macro et tu as fait les changements nécessaires?
Ou tu les as superbement ignoré, ce qui explique que cela bug chez toi alors que ça fonctionne chez moi

 

[maspascal]

Sub a()

Dim Colonnes, i&, derlig&

'ici adapter avec le noms des vrais feuilles

derlig = ffjda.Cells(Rows.Count, 1).End(xlUp).Row

Colonnes = Array("E", "F", "G", "C", "H", "I", "K", "L", "M", "O", "Q")

For i = LBound(Colonnes) To UBound(Colonnes)

'ici adapter avec le noms des vrais feuilles

ffjda.Cells(2, Colonnes(i)).Resize(derlig).Copy codevba.Cells(5, i + 1)

Next

End Sub

j'ai fait cela mais pas bon

 

[Staple1600]

Re

C'est presque cela
soit on met le codename des feuilles, soit le nom des feuilles
Avec le nom des feuilles, ce sera plus parlant pour toi
La bonne syntaxe est dans ce cas
derlig = Sheets("ffjda").Cells(Rows.Count, 1).End(xlUp).Row
Je te laisse faire les autres changements de nom de feuille sur le même principe de syntaxe

Et là ça devrait marcher sans bug

 

[maspascal]

Re

ok super je commence a comprendre
merci pour ton aide