Sub valeurmaximaleplage() Dim rng As Range For Each rng In Sélection If rng = WorksheetFunction.Min(Sélection) Then rng.Style = « Good » End I f Next rng End
Sub PrоtесtiobFeuille() ActiveSheet.Protect « motdepasse », True, Truе End Sub Si vous souhaitez protéger votre feuille de calcul, vous pouvez utiliser ce code de macro. Tout ce
Sub AfficherLigneColonne() Columns.EntireColumn.Hidden = Fаlѕе Rows.EntireRow.Hidden = False End Sub Au lieu d’afficher les lignes et les colonnes manuellement, vous pouvez utiliser ce code pour
Sub RemplacerCelluleVilleZeros() Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If plagecell = « » Or plagecell = » » Then plagecell.Value
Sub SupprimerSignesNegatifs( ) Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Sélection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = Abs(plagecell) End If Next plagecell
Sub convertirNombre ( ) Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If Not Worksheet Function.IsNonText(plagecell) Then plagecell .Value = Worksheet
Sub ajouterAlphabet1() Dim i As Integer For i = 65 To 90 ActiveCell.Value = Chr(i) ActiveCell.Offset(1, 0).Select Next i End Sub Sub ajouterAlphabet2() Dim i
Sub calculerracinecubique() Dim plagecell As Range Dim i As Integer For Each plagecell In Selection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = plagecell ^(1 / 3) Else
Sub racenecarre() Dim plagecell As Range Dim i As Integer For Each plagecell In Selection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = Sqr(plagecell) Else End If Next
Sub ajouternumero() Dim plagecell As Range Dim i As Integer i = InputBox(« Entrer les nombre à multiple », « Entrée necessaire ») For Each plagecell In Selection If
