Question sur l'enregistreur de macros.

[Hulk]

Hello les amis,

Un exemple de code parmi tant d'autres. (Celui-là permet d'insérer x colonnes où l'on veut)

Sub AjoutCol()
Dim col As Integer
Dim c As Integer

col = InputBox("N° colonne")
rep = 0
rep = InputBox("Nombre de colonnes à ajouter?")

If rep <> "" Then
    Do While c < rep
     Columns(col).Insert
     c = c + 1
    Loop
End If
 
End Sub

Ma question est :

Est-ce qu'un code comme celui-là, peut-il être fait mot pour mot par l'enregistreur de macros ?

Cdt, Hulk.

 

[Raja]

Re : Question sur l'enregistreur de macros.

Bonsoir,

Non, je ne pense pas qu'on pourra arriver à la même chose par l'enregistreur de macro, notamment la gestion des variables ou des objets comme inputbox, msgbox etc.

L'enregistreur de macro, à mon avis, c'est pour la découverte et aussi de temps en temps ceci est utile pour découvrir ponctuellement la syntaxe du langage, (objet, mot clé etc). A part ça, si tu veux vraiment progressé, il faut analyser et écrire du code.C'est en programmant on devient programmeur(si on veut le devenir biensûr).

 

[Hulk]

Re : Question sur l'enregistreur de macros.

Hello,

Merci Raja.

Je m'en doutais bien.
Au fait c'est que le code était comme ça

Sub AjoutCol()
[COLOR="DarkGreen"][B]'
' AjoutCol Macro
' Macro enregistrée le 11.02.2007 par ...
'

'
[/B][/COLOR]Dim col As Integer
Dim c As Integer

col = InputBox("N° colonne")
rep = 0
rep = InputBox("Nombre de colonnes à ajouter?")

If rep <> "" Then
    Do While c < rep
     Columns(col).Insert
     c = c + 1
    Loop
End If
 
End Sub

Alors je me posais des questions 😕

Merci Raja et bonne continuation.

Cdt, Hulk.

 

[Compte Supprimé 979]

Re : Question sur l'enregistreur de macros.

Bonsoir,

L'enregistreur de macros n'est là que pour enregistrer des opérations qui sont/seront répétitives ...

Exemple : Sélectionner la cellule C5 -> Mettre la valeur : 100
sélectionner la colonne D -> Masquer

Ces opérations seront répétées tel qu'elle ni plus, ni moins.
Et surtout elles sont enregistrées en valeurs absolues (sans variables)

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 28/02/2009 par Bruno
'
'
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "100"
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = True
End Sub

C'est après qu'intervient le boulot de développeur 😛
Pour y mettre des variables, d'autres actions, etc ...

A+

 

[Raja]

Re : Question sur l'enregistreur de macros.

Re,

Sûrement la macro a été redigée et signée par l'auteur. Ce sont des (bonnes) habitudes des programmeurs. Vu la syntaxe de ce code, cela m'étonnerait fortement qu'il soit enregistré par le biais de l'enregistreur de macro. Parfois, il arrive qu'on enregistre une macro par ce biais là, et on l'optimise après manuellement.

 

[Hulk]

Re : Question sur l'enregistreur de macros.

Re,

Merci messieurs pour vos réponses.

Bonne fin de WE !

Hulk.

 

[MJ13]

Re : Question sur l'enregistreur de macros.

Bonjour à tous​

[LEFT]Dim c As Integer[/LEFT]
 
 
[LEFT]col = InputBox("N° colonne")

rep = 0
[LEFT]rep = InputBox("Nombre de colonnes à ajouter?")[/LEFT]
[/LEFT]

 
 
 
 
[LEFT]If rep <> "" Then

 Do While c < rep
[LEFT]  Columns(col).Insert
  c = c + 1
 Loop
End If[/LEFT]
[/LEFT]

Hulk, dans ce code tout a été rentré à la main. Souvent je me sert de l'enregistreur quand sur une fuille snas rien, je veux ajouté une macro comme cela le sub macro...end sub est mis automatqieument. C'est pour cela que tu paux avoir Macro1 enregistré par (en plus cela permet de traçabilisé ses macros), c'est important dans la monde actuel la traçabilité.​

 

[Hulk]

Re : Question sur l'enregistreur de macros.

Hello tout le monde,

Ok merci MJ13, maintenant je sais.

Bon dimanche à tous.

Hulk.