Mettez en surbrillance la valeur maximale dans la plage, Excel VBA
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 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