créer une nouvelle feuille VBA EXCEL Résolu

Question

Bonjour, 
Cela fait plusieurs jours que je galère avec mon projet, et voilà je me suis décidée à vous poser la question.
Je suis nulle en VBA, j'ai commencé une formation mais c'est 700 page et plus et ca me prendra du temps et mon travail est à rendre bientôt.. Donc si quelqu'un peut m'aider, j'en serai ravie.

Je voudrai une commande qui à chaque changement d'une celle A5 par exemple (la cellule A5 comprendra les mois ) , me crée une nouvelle feuille. mais si je reviens voir le mois précédent, c'est à dire si la feuille correspondante au mois existe, je n'ai pas besoin de double :s...


Je voudrai aussi qu'elle me supprime une ligne dans une page donnée mais pas dans celle qui l'a précède .. J'espère que je n'étais pas trop ambiguë... Merci pour votre aide

Une personne en détresse :) 

Configuration: Windows XP / Chrome 26.0.1410.64

pijaku · Answer

Bonjour, 

Donc, avant de créer une nouvelle feuille, il convient de vérifier si elle existe. 

Pour cela, demandons à Bbil une petite fonction toute prête : 
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean 
 On Error Resume Next 
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing) 
End Function

Ensuite, tu veux une macro automatique qui se déclenche au changement de contenu d'une cellule. 
Il nous faut donc utiliser, dans le module de la feuille concernée, l'événement Change  : 
1- clic droit sur l'onglet de la feuille concernée, 
2- Visualiser le code, 
3- copier coller ce code : 
Private Sub Worksheet_Change(ByVal Target As Range) 
'Si la cellule changeante n'est pas la A5, on quitte la procédure 
If Target.Address <> "$A$5" Then Exit Sub 
'Si la feuille n'existe pas 
If Not FeuilleExiste(ThisWorkbook, Target.Value) Then 
    'on l'ajoute 
    Sheets.Add 
    'on la renomme 
    ActiveSheet.Name = Target.Value 
End If 
End Sub 
'On y ajoute la fonction de Bbil : 
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean 
 On Error Resume Next 
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing) 
End Function
  
Quant au reste : Je voudrai aussi qu'elle me supprime une ligne dans une page donnée mais pas dans celle qui l'a précède  j'ai pas compris. En effet, lorsque l'on supprime une ligne dans une feuille, on ne la supprime que là, pas dans une autre..... Tu dis! 
Cordialement, 
Franck P

pijaku · Answer

regarde ceci : https://www.cjoint.com/c/CEcl7oWAbNK 

pour remplir la liste des mois, il faut changer de feuille et revenir sur la feuille "Détails"...

besoin_d'aide · Answer

Cool, trop fort !

Mais comment faire pour ajouter par exemple une personne recrutée :)

Merciii

Cordialement

pijaku · Answer

Bon. Je procède comme ceci :
1- je créé ma première feuille (janvier) à partir de la feuille "détails".
2- dans cette feuille janvier, j'ajoute des lignes,
3- à partir de cette feuille janvier, je créé la feuille février
Tous mes noms y compris ceux saisis en janvier apparaissent bien.....

Créer une nouvelle feuille VBA EXCEL

4 réponses

Votre réponse

Discussions similaires