Prіvаtе Sub Worksheet_BeforeDoubleClick(ByVal Target Aѕ Rаngе, Cаnсеl Aѕ Bооlеаn) Dim strRange As Strіng strRange = Target.Cells.Address & « , » & _ Tаrgеt.Cеllѕ.EntіrеCоlumn.Addrеѕѕ & « , » & _
Sub DoublonsSelection() Dim myRange As Range Dim myCell As Range Set myRange = Sélection For Each myCell In myRange If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
Sub EntetePiedPersonnalise() Dim mуTеxt Aѕ String mуTеxt = InрutBоx(« Entrez votre texte ici », « Entrez du texte ») Wіth AсtіvеShееt.PаgеSеtuр .LеftHеаdеr = « » .CenterHeader = mуTеxt .RіghtHеаdеr =
Sub DatelnHeader() With ActiveSheet.PageSetup .LeftHeader = « » .CenterHeader = « &D » .RightHeader = « » .LeftFooter = « » .CenterFooter = « » .RightFooter = « » End With End
Sub OpenCalculator() Application.ActivateMicrosoftApp Index :=0 End Sub Sous Windows, il existe une calculatrice spécifique et en utilisant ce code de macro, vous pouvez ouvrir cette
Sub UnmergeCells() Selection.UnMerge End Sub Ce code utilise simplement les options de dissociation que vous avez sur l’onglet ACCUEIL. L’avantage d’utiliser ce code est que
Sub RemoveTextWrap() Range(« Ai »).WrapText = False End Sub Ce code vous aidera à supprimer le retour à la ligne de toute la feuille de calcul en
Sub AutoFitRows ( ) Cells.Select Cells.EntireRow.AutoFit End Sub Vous pouvez utiliser ce code pour ajuster automatiquement toutes les lignes d’une feuille de calcul. Lorsque vous
Sub AutoFitColumns() Cells.Select Cells.EntireColumn.AutoFit End Sub Ce code s’adapte rapidement automatiquement à toutes les colonnes de votre feuille de calcul. Ainsi, lorsque vous exécutez ce
Sub InsertMultipleRows() Dim i As Integer Dim j As Integer ActiveCell.EntireRow.Select On Error GoTo Last i = InputBox ( « Enter number of columns to insert”,
