_l_ours
XLDnaute Nouveau
Bonjour à tous,
Je suis à la recherche d'une petite macro.
L'idée est simple en théorie mais malgré plusieurs tentatives, je sèche.
Lorsque je clique sur un bouton, la macro me créé une feuille, mais je souhaite que si cette feuille existe, ça ne fasse rien. Je suppose du coup qu'il faut utiliser la fonction If... Then mais je pèche... Pour le moment, voici mon code :
De plus, je souhaiterais rajouter un code pour que, toujours en cliquant sur ce bouton, toutes les données présentes dans la feuille "EXPORT" à partir de la ligne 2 des colonnes B à O et ce, jusqu'à la dernière ligne ayant des données, soient copiées dans la feuille "Dossiers Clients" dans les colonnes B à O à partir de la première ligne n'ayant pas de données dans ces colonnes.
Merci d'avance
Je suis à la recherche d'une petite macro.
L'idée est simple en théorie mais malgré plusieurs tentatives, je sèche.
Lorsque je clique sur un bouton, la macro me créé une feuille, mais je souhaite que si cette feuille existe, ça ne fasse rien. Je suppose du coup qu'il faut utiliser la fonction If... Then mais je pèche... Pour le moment, voici mon code :
VB:
Sub creation_feuille()
If Not Worksheets("Dossiers Clients") = True Then
Sheets.Add.Name = "Dossiers Clients"
Worksheets("Dossiers Clients").Move _
after:=Worksheets("EXPORT")
End If
End Sub
De plus, je souhaiterais rajouter un code pour que, toujours en cliquant sur ce bouton, toutes les données présentes dans la feuille "EXPORT" à partir de la ligne 2 des colonnes B à O et ce, jusqu'à la dernière ligne ayant des données, soient copiées dans la feuille "Dossiers Clients" dans les colonnes B à O à partir de la première ligne n'ayant pas de données dans ces colonnes.
Merci d'avance