Bonjour,
Je souhaiterais savoir ci il est possible de simplifier la macro ci-dessous:
Sub Tuyautage()
Dim Cellule As Range
Dim NouveauClasseur As Workbook
'Pour chaque cellule utilisée dans la feuille idée
For Each Cellule In Worksheets("idée").UsedRange
'Si l'intérieur de la cellule utilisée est de couleur violette
If Cellule.Interior.Color = 13082801 Then
'Remplacer la valeur de cette cellule par sa valeur actuelle
Cellule.Value = Cellule.Value
'Retourner à un format de cellule sans remplissage
Cellule.Interior.Pattern = xlNone
End If
Next
'Création d'un nouveau classeur
Set NouveauClasseur = Workbooks.Add
'Couper les colonnes P jusqu'a AW dans la feuille source
ThisWorkbook.Worksheets("idée").Range("P1:AW1").EntireColumn.Cut
'Coller les colonnes dans la feuille de destination
NouveauClasseur.Worksheets("Feuil1").Range("A1").Insert
'Enregistrement du nouveau classeur dans le répertoire de l'actuel
NouveauClasseur.SaveAs ThisWorkbook.Path & "\Tuy.xlsx"
'Fermeture du nouveau classeur
NouveauClasseur.Close
'Libération de la mémoire
Set NouveauClasseur = Nothing
'Message de confirmation
MsgBox "Exécution terminée avec succès !", vbInformation
End Sub
Est il possible également de modifier cette ligne dans la macro:
'Remplacer la valeur de cette cellule par sa valeur actuelle
Cellule.Value = Cellule.Value
Par un copier et coller de la valeur arrondi à deux chiffre après la virgule.
Merci
Je souhaiterais savoir ci il est possible de simplifier la macro ci-dessous:
Sub Tuyautage()
Dim Cellule As Range
Dim NouveauClasseur As Workbook
'Pour chaque cellule utilisée dans la feuille idée
For Each Cellule In Worksheets("idée").UsedRange
'Si l'intérieur de la cellule utilisée est de couleur violette
If Cellule.Interior.Color = 13082801 Then
'Remplacer la valeur de cette cellule par sa valeur actuelle
Cellule.Value = Cellule.Value
'Retourner à un format de cellule sans remplissage
Cellule.Interior.Pattern = xlNone
End If
Next
'Création d'un nouveau classeur
Set NouveauClasseur = Workbooks.Add
'Couper les colonnes P jusqu'a AW dans la feuille source
ThisWorkbook.Worksheets("idée").Range("P1:AW1").EntireColumn.Cut
'Coller les colonnes dans la feuille de destination
NouveauClasseur.Worksheets("Feuil1").Range("A1").Insert
'Enregistrement du nouveau classeur dans le répertoire de l'actuel
NouveauClasseur.SaveAs ThisWorkbook.Path & "\Tuy.xlsx"
'Fermeture du nouveau classeur
NouveauClasseur.Close
'Libération de la mémoire
Set NouveauClasseur = Nothing
'Message de confirmation
MsgBox "Exécution terminée avec succès !", vbInformation
End Sub
Est il possible également de modifier cette ligne dans la macro:
'Remplacer la valeur de cette cellule par sa valeur actuelle
Cellule.Value = Cellule.Value
Par un copier et coller de la valeur arrondi à deux chiffre après la virgule.
Merci