sommaire en ligne et non en colonne

[La Vouivre]

Bonsoir les amis
je recherche comment faire un sommaire en ligne
J'ai une macro qui me fait le sommaire en colonne ,et je n'arrive pas à trouver la ligne de code pour obtenir un sommaire sur une ligne
exp je voudrais que le sommaire soit sur la ligne "4" et commence en colonne "d"
et là je suis complètement bloqué
je vous passe la macro qui fait le sommaire en colonne

Sub sommaire()
Range("d5").Select
For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub


bonne soirée à tous

 

[Victor21]

Re : sommaire en ligne et non en colonne

Bonsoir La Vouivre.

Essayez en remplaçant D5 par D4, et .Offset(1,0) par .Offset(0.1)
Non testé (et pour cause ...)

 

[La Vouivre]

Re : sommaire en ligne et non en colonne

merci pour cette réponse , c'est exactement ce que je cherchais
pouvez-vous m'expliquer la différence entre
Offset(0, 1) et Offset(1, 0)
par avance merci
bonne soirée

 

[La Vouivre]

Re : sommaire en ligne et non en colonne

j'ai trouve sur le net ceci

offset (1,0) écrit le sommaire en colonne

offset (0,1) écrit le sommaire en ligne

Pour déplacer d'une cellule vers le bas (de B2 à B3): .. Range ("B2") Offset (1,0) Sélectionner
Pour déplacer d'une cellule vers la droite (de B2 à C2): . Range ("B2") Offset ( . 0,1) Sélectionner
Pour déplacer d'une cellule vers le haut (de B2 à B1): .. Range ("B2") Offset (-1,0)Sélectionnez
Pour déplacer d'une cellule vers la gauche (de B2 à A2): Range ( "B2"). Offset (0, -1). Sélectionnez

bonne soirée à tous

 

[Misange]

Re : sommaire en ligne et non en colonne

BOnjour,

offset(ligne, colonne)
tu es en B1
offset(0,1) décale de 0 lignes et de une colonne tu écris donc en C1
offset(1,0) décale d'une ligne et de 0 colonne tu écris donc en B2

 

[Efgé]

Re : sommaire en ligne et non en colonne

Bonjour La Vouivre, Patrick, Misange

Après les explications de mes camarades de jeu, passons à la suppression de ces vilains Select

Sub sommaire()
For i = 1 To Sheets.Count
    Range("C5").Offset(0, i) = Sheets(i).Name
Next i
End Sub

Cordialement

 

[La Vouivre]

Re : sommaire en ligne et non en colonne

Bonsoir les amis

merci à tous pour votre aide
j'ai appris un peu de code VBA ,je ne connaissais pas "offset" , maintenant je vais le mettre en application.

bonne soirée à tous
Bon weekend