Microsoft 365 Ajouter une colonne

Juliopapadopulos

XLDnaute Nouveau
Bonjour à vous,

J'ai un code VBA pour ajouter toutes les feuilles ouvertes dans excel pour les mettre dans une page "Sommaire" mais voila,

J'aimerais qu'a la fin de ma feuille les valeurs qui dépassent sur la feuille suivante se mettent sur la même feuille mais dans une autre colonne..

Un Sommaire quoi...

Pouvez-vous m'aider je débute sur VBA.

Voici le code :

Sub creerSommaire()
'If Worksheets(1).Name = "Sommaire" Then
'Application.DisplayAlerts = False
'End If
[b2] = "Sommaire"
Dim ligne As Integer
ligneV = 4
ligneM = 8
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Sommaire" Then
If sh.Visible Then
ActiveSheet.Hyperlinks.Add anchor:=Cells(ligneV, 2), Address:="", SubAddress:="'" & sh.Name & "'!A1", TextToDisplay:=sh.Name
ligneV = ligneV + 2
End If
End If
Next
End Sub

Pour l'instant ca fonctionne trés bien

Merci à vous !
 

Discussions similaires

Réponses
7
Affichages
407

Statistiques des forums

Discussions
313 197
Messages
2 096 105
Membres
106 499
dernier inscrit
mmontagu