Catégories
Macro Images Macros

Macro pour insérer un visuel à partir d’une url

La macro

Sub InsertPicFromUrl()
Dim cell, picformat As Shape, target As Range

Set PicRange = ActiveSheet.Range(« A1:A3 ») ‘ range with URLs
For Each cell In PicRange
pic = cell
ActiveSheet.Pictures.Insert(pic).Select

Set picformat = Selection.ShapeRange.Item(1)
With picformat
.LockAspectRatio = msoTrue
.Width = 144
.Height = 105
.Cut
End With
Cells(cell.Row, cell.Column + 1).PasteSpecial
Next

End Sub

où :
« A1:A3 » correspond à la plage contenant les urls de chaque image
.Width = 144 correspond à la largeur de l’image
.Height = 105 correspond à la hauteur de l’image

Catégories
Macros

VARTYPE : indiquer le sous-type d’une variable

La variable VarType est utilisée pour indiquer le sous-type d’une variable.

La fonction VarType

La variable VarType permet de réaliser une macro pour indiquer le sous-type d’une variable dans Excel.

La variable VarType en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction VarType

Aucune remarque sur VarType pour le moment.

Catégories
Macros

UBOUND : renvoyer une valeur contenant le plus petit indice

La variable UBound est utilisée pour renvoyer une valeur contenant le plus petit indice.

La fonction UBound

La variable UBound permet de réaliser une macro pour renvoyer une valeur contenant le plus petit indice dans Excel.

La variable UBound en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction UBound

Aucune remarque sur UBound pour le moment.

Catégories
Macros

TYPENAME : renvoyer une valeur qui fournit des informations sur une variable

La variable TypeName est utilisée dans les macros pour renvoyer une valeur qui fournit des informations sur une variable.

La variable TypeName

La variable TypeName permet de réaliser une macro pour renvoyer une valeur qui fournit des informations sur une variable dans Excel.

La variable TypeName en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable TypeName

Aucune remarque sur TypeName pour le moment.

Catégories
Macros

TIMER : renvoyer le nb de secondes écoulées depuis minuit

La variable Timer est utilisée pour renvoyer le nb de secondes écoulées depuis minuit.

La fonction Timer

La variable Timer permet de réaliser une macro pour renvoyer le nb de secondes écoulées depuis minuit dans Excel.

La variable Timer en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction Timer

Aucune remarque sur Timer pour le moment.

Catégories
Macro Caractères Macros

TRIM : supprimer les espaces

La variable Trim est utilisée pour supprimer les espaces.

La variable Trim

La variable Trim permet de réaliser une macro pour supprimer les espaces dans Excel.

La variable Trim en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable Trim

Aucune remarque sur Trim pour le moment.

Catégories
Macro Caractères Macros

Macro pour renvoyer le nb de caractères d’une chaîne

La variable Len est utilisée pour renvoyer le nombre de caractères d’une chaîne.

La fonction Len

La variable Len permet de réaliser une macro pour renvoyer le nombre de caractères d’une chaîne dans Excel.

La macro

Sub docexcel()

Dim c As Range ‘Variables

For Each c In Range(« A1:A3« ) ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _
Len(c)

ActiveCell.Offset(1, 0).Select

Next c

End Sub

La variable Len en exemples

Les données sources

A B C
1  macro
2  excel
3  vba
4
5

Le résultat

A B C
1  macro 5
2 excel 5
3  vba 3
4
5
Catégories
Macros

STRINGFROMGUID : convertir un GUID en une chaîne

La variable StringFromGUID est employée pour convertir un GUID en une chaîne.

La variable StringFromGUID

La variable StringFromGUID permet de réaliser une macro pour convertir un GUID en une chaîne dans Excel.

La variable StringFromGUID en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable StringFromGUID

Aucune remarque sur StringFromGUID pour le moment.

Catégories
Macros

STRCONV : convertir au format indiqué

La variable StrConv est employée pour convertir au format indiqué.

La fonction StrConv

La variable StrConv permet de réaliser une macro pour convertir au format indiqué dans Excel.

La variable StrConv en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction StrConv

Aucune remarque sur StrConv pour le moment.

Catégories
Macros

STRING$ : renvoyer une chaîne constituée d’un caractère répété sur la longueur indiquée

La variable String$ est utilisée pour renvoyer une chaîne constituée d’un caractère répété sur la longueur indiquée.

La fonction String$

La variable String$ permet de réaliser une macro pour renvoyer une chaîne constituée d’un caractère répété sur la longueur indiquée dans Excel.

La variable String$ en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction String$

Aucune remarque sur String$ pour le moment.

Catégories
Macros

STRING : renvoyer une chaîne constituée d’un caractère répété sur la longueur indiquée

La variable String est utilisée dans les macros pour renvoyer une chaîne constituée d’un caractère répété sur la longueur indiquée.

La variable String

La variable String permet de réaliser une macro pour renvoyer une chaîne constituée d’un caractère répété sur la longueur indiquée dans Excel.

La variable String en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable String

Aucune remarque sur String pour le moment.

Catégories
Macros

SPACE$ : renvoyer une valeur comprenant le nombre d’espaces indiqué

La variable Space$ est utilisée dans les macros pour renvoyer une valeur comprenant le nombre d’espaces indiqué.

La fonction Space$

La variable Space$ permet de réaliser une macro pour renvoyer une valeur comprenant le nombre d’espaces indiqué dans Excel.

La variable Space$ en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction Space$

Aucune remarque sur Space$ pour le moment.

Catégories
Macros

SPACE : renvoyer une valeur comprenant le nombre d’espaces indiqué

La variable Space est employée pour renvoyer une valeur comprenant le nombre d’espaces indiqué.

La variable Space

La variable Space permet de réaliser une macro pour renvoyer une valeur comprenant le nombre d’espaces indiqué dans Excel.

La variable Space en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable Space

Aucune remarque sur Space pour le moment.

Catégories
Macros

MID$ : renvoyer des caractères extraits d’une chaîne

La variable Mid$ est employée pour renvoyer des caractères extraits d’une chaîne.

La fonction Mid$

La variable Mid$ permet de réaliser une macro pour renvoyer des caractères extraits d’une chaîne dans Excel.

La variable Mid$ en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction Mid$

Aucune remarque sur Mid$ pour le moment.

Catégories
Macros

MID : renvoyer des caractères extraits d’une chaîne

La variable Mid est utilisée pour renvoyer des caractères extraits d’une chaîne.

La variable Mid

La variable Mid permet de réaliser une macro pour renvoyer des caractères extraits d’une chaîne dans Excel.

La variable Mid en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable Mid

Aucune remarque sur Mid pour le moment.

Catégories
Graphiques Macro graphique Macros Types

Macro pour afficher les étiquettes dans les nuages de point

Créer le nuage de points en plaçant :
– les étiquettes de données dans la première colonne
– les valeurs en abscisse dans la deuxième colonne
– les valeurs en ordonnée dans la troisième colonne

Sélectionner les points du graphique et exécuter la macro.

Sub AttachLabelsToPoints()

‘Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String

‘ Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False

‘Store the formula for the first series in « xVals ».
xVals = ActiveChart.SeriesCollection(1).Formula

‘Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, « , »), xVals, _
Mid(Left(xVals, InStr(xVals, « ! ») – 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, « ! »), xVals, « , ») – 1)
Do While Left(xVals, 1) = « , »
xVals = Mid(xVals, 2)
Loop

‘Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter

End Sub

Catégories
Macros

CHR$ : renvoyer le caractère associé au code de caractère indiqué

La variable Chr$ est utilisée pour renvoyer le caractère associé au code de caractère indiqué.

La variable Chr$

La variable Chr$ permet de réaliser une macro pour renvoyer le caractère associé au code de caractère indiqué dans Excel.

La variable Chr$ en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable Chr$

Aucune remarque sur Chr$ pour le moment.

Catégories
Macros

CHR : renvoyer le caractère associé au code de caractère indiqué

La variable Chr est utilisée dans les macros pour renvoyer le caractère associé au code de caractère indiqué.

La fonction Chr

La variable Chr permet de réaliser une macro pour renvoyer le caractère associé au code de caractère indiqué dans Excel.

La variable Chr en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction Chr

Aucune remarque sur Chr pour le moment.

Catégories
Macros

ASC : renvoyer le code de caractère correspondant à la première lettre d’une chaîne

La variable Asc est employée pour renvoyer le code de caractère correspondant à la première lettre d’une chaîne.

La variable Asc

La variable Asc permet de réaliser une macro pour renvoyer le code de caractère correspondant à la première lettre d’une chaîne dans Excel.

La variable Asc en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la variable Asc

Aucune remarque sur Asc pour le moment.

Catégories
Macros

INSTRREV : renvoyer la position d’une occurrence d’une chaîne

La variable InStrRev est utilisée pour renvoyer la position d’une occurrence d’une chaîne.

La fonction InStrRev

La variable InStrRev permet de réaliser une macro pour renvoyer la position d’une occurrence d’une chaîne dans Excel.

La variable InStrRev en exemples

Les données sources

A B C D
1
2
3
4
5

La macro

Sub nommacro()

Dim c As Range ‘Variables

For Each c In Range(« A1:A5 ») ‘Colonne

ActiveCell.Offset(0, 0).FormulaR1C1 = _

Bientôt disponible

Next c

End Sub

Le résultat

A B C D
1
2
3
4
5

Remarques sur la fonction InStrRev

Aucune remarque sur InStrRev pour le moment.