Généralité sur le VBA

Vous êtes ici: ExcelCorpo > Généralité sur le VBA

Par Élie Chancelin
13 janvier 2022
19:02

Généralité sur le VBA

Toutes les ressources nécessaires pour prendre en main et maîtriser les Généralités sur la programmation VBA Excel.

La fonction BINOCT() d’Excel (en anglais BIN2OCT())

BIN2OCT() Syntax. BINOCT(nombre; [emplacements]) Définition. Cette fonction convertit un nombre binaire en un nombre octal. Arguments Nombre(obligatoire) Le nombre binaire à 10 chiffres (au plus) en

La fonction BINDEC() d’Excel (en anglais BIN2DEC())

Syntax. BINDEC(Nombre) Définition. Cette fonction convertit un nombre binaire en un nombre décimal. Argument. Nombre (obligatoire) Le nombre binaire à 10 chiffres (au plus) en notation

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

La Fonction FRACTION.ANNEE () (en anglais YEARFRAC()) d’Excel

Syntaxe. FRACTION.ANNEE (date_début; date_fin; base) Définition. Cette fonction convertit l’intervalle entre la date de début et la date de fin en une fraction d’année. Arguments

Protéger la feuille de calcul, Excel VBA

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

Afficher toutes les lignes et colonnes, Excel VBA

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

Désactiver les sauts de page, Excel VBA

Sub DesactiverSautsPage() Dіm wb As Wоrkbооk Dim wkѕ Aѕ Wоrkѕhееt Aррlісаtіоn.SсrееnUрdаtіng = False For Eасh wb In Aррlісаtіоn.Wоrkbооkѕ For Eасh Sht In wb.Wоrkѕhееtѕ Sht.DіѕрlауPаgеBrеаkѕ =

Remplacer les cellules vides par des zéros, Excel VBA

Sub RemplacerCelluleVilleZeros() Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If plagecell = « » Or plagecell = » » Then plagecell.Value

Supprimer les signes négatifs, Excel VBA

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

Convertir des nombres romains en nombres arabes, Excel VBA

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

Ajouter des alphabets de A à Z dans une plage, Excel VBA

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

Calculer la racine cubique, Excel VBA

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

Calculer la racine carrée, Excel VBA

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

Ajouter un numéro dans tous les numéros, Excel VBA

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

Multiplier toutes les valeurs par un nombre, Excel VBA

Sub ajouternombre() Dim plagecell As Range Dim i As Integer i = InputBox(« Entrer les nombre à multiple », « Entrée necessaire ») For Each plagecell In Selection If