Bonjour @Staple1600 est très compliqué pour les néophytes dont je suisBonjour Malika,
Il faut apprendre à lire le Staple
Si Staple met des émoticônes c'est qu'il est en mode "humour"
Quand à G..gle, c'est simplement que j'ai une marotte
Inciter, inviter le demandeur à mettre la main dans le cambouis pour résoudre sa question avec l'aide du forum et autres ressources du net.
[cartouche humoristique]
Quant à ton pseudo, et puisqu'on vit dans la même société moderne, qui me dit que derrière Malika, ne se trouve pas un Roger ou un Jean-Philippe ou pire un Hugues-André-Marie ?
[/cartouche humoristique]
PS: Je ne suis jamais offensé quand on cause Excel
J'attends toujours mes questions sur mon code.
(Chinois, ca me donne des idées pour ce midi)
Sub creation_onglets()
'Déclarations des variables
Dim lo As ListObject, i&
Application.ScreenUpdating = False ' on fige l'écran
Set lo = Feuil5.ListObjects("Biens") " on définit le ListObject
'en prenant le codename de la feuille ici Feuil5
' on boucle sur les lignes du tableau
For i = 2 To lo.DataBodyRange.Rows.Count + 1
'on se base sur le contenu de la colonne 9 du tableau
'pour récupérer les noms des locataires (on les passe en majuscule)
Sheets.Add.Name = UCase(Split(lo.ListColumns(9).Range(i, 1).Value2)(1))
'on ne garde qu'une partie du nom pour nommer les feuilles créées
Next
End Sub
Sub Explications_Split()
Dim vArray, vStrings$
vStrings = "Malika 27 Excel 2010 Staple 1600"
vArray = Split(vStrings)
For i = LBound(vArray) To UBound(vArray)
MsgBox vArray(i), vbInformation, "élement: " & i
Next
MsgBox "Fin test 1"
MsgBox UCase(vArray(0))
MsgBox UCase(Split(vStrings)(0))
MsgBox "Fin test 2"
End Sub
Bonsoir Malika
Tu parles de cette macro?
Si oui, voici la version avec commentaire
Si tu as d'autres questions, n'hésites pas.VB:Sub creation_onglets() 'Déclarations des variables Dim lo As ListObject, i& Application.ScreenUpdating = False ' on fige l'écran Set lo = Feuil5.ListObjects("Biens") " on définit le ListObject 'en prenant le codename de la feuille ici Feuil5 ' on boucle sur les lignes du tableau For i = 2 To lo.DataBodyRange.Rows.Count + 1 'on se base sur le contenu de la colonne 9 du tableau 'pour récupérer les noms des locataires (on les passe en majuscule) Sheets.Add.Name = UCase(Split(lo.ListColumns(9).Range(i, 1).Value2)(1)) 'on ne garde qu'une partie du nom pour nommer les feuilles créées Next End Sub
mais je redis ce que j'ai déjà dit, puisque tu débutes en VBA, le plus aisé pour toi se serait de d'abord tester et approfondir la piste des TCD.
yep... prend garde à ne pas te fouler le coudeRe
Je regarderai demain.
Là, je suis entrain d'enfiler mon pyjama en pilou tout en me brossant les dents.
C'est pas facile de taper sur le clavier avec mes coudes
Bonne nuit et A+ sur XLD
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Range("A:H").Columns.AutoFit
Re
Voici une de mes façons de voir les choses
(no VBA inside - only TCD)
Regarde la pièce jointe 1135184
NB: je ne joins pas de fichier Excel
Charge au demandeur de se retrousser les manches
(Les vertus et bienfaits du DIY sont reconnus par l'OMS)
Re
1) DIY => Do it your self
Z'êtes pas tendance, Mme Malika
2) Je ne vois pas de fichier joint.
3) Pour actualiser, soit tu DIY (en cliquant sur Actualiser tout=
soit une petite macro fera l'affaire.
Private Sub Workbook_Open()
Me.RefreshAll
End Sub
Sub Actu_TDC()
ThisWorkbook.RefreshAll
End Sub