Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liste des macros

Liste des macros

10 réponses
Avatar
Érico
Salut,

Sur le site d'excelabo, je ne trouves la liste complet des macros.
Savez-vous où je pourrais trouvé celà?

Merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,

AMHA tu cherches quelque chose qui n'existe pas....
Tu trouveras sur le site de Misange toutes sortes de macro, avec chacune sa
particularité, ou des classeurs à télécharger.
Tu as à ta disposition un menu de recherche(à gauche), clique dessus, tu
trouveras certainement ton bonheur.

Salutations
JJ

"Érico" a écrit dans le message de
news:%23C0ydU$$
Salut,

Sur le site d'excelabo, je ne trouves la liste complet des macros.
Savez-vous où je pourrais trouvé celà?

Merci




Avatar
Érico
Je n'ai rien trouvé.

J'aimerais avoir comme un dictoinnaire des commandes de macro.
Exemple, Range veux dire quoi et il fait quoi.
Dans Misange, c'est le même site de excelabo.

Merci

Érico



"Jacky" a écrit dans le message de news:
eZZ1R6$$
Bonsoir,

AMHA tu cherches quelque chose qui n'existe pas....
Tu trouveras sur le site de Misange toutes sortes de macro, avec chacune
sa
particularité, ou des classeurs à télécharger.
Tu as à ta disposition un menu de recherche(à gauche), clique dessus, tu
trouveras certainement ton bonheur.

Salutations
JJ

"Érico" a écrit dans le message de
news:%23C0ydU$$
Salut,

Sur le site d'excelabo, je ne trouves la liste complet des macros.
Savez-vous où je pourrais trouvé celà?

Merci








Avatar
Jacky
Re...
Exemple, Range veux dire quoi et il fait quoi.
Sélection de Range(ou n'importe quelles instructions) et un petit coup de F1


JJ

"Érico" a écrit dans le message de
news:%
Je n'ai rien trouvé.

J'aimerais avoir comme un dictoinnaire des commandes de macro.
Exemple, Range veux dire quoi et il fait quoi.
Dans Misange, c'est le même site de excelabo.

Merci

Érico



"Jacky" a écrit dans le message de news:
eZZ1R6$$
Bonsoir,

AMHA tu cherches quelque chose qui n'existe pas....
Tu trouveras sur le site de Misange toutes sortes de macro, avec chacune
sa
particularité, ou des classeurs à télécharger.
Tu as à ta disposition un menu de recherche(à gauche), clique dessus, tu
trouveras certainement ton bonheur.

Salutations
JJ

"Érico" a écrit dans le message de
news:%23C0ydU$$
Salut,

Sur le site d'excelabo, je ne trouves la liste complet des macros.
Savez-vous où je pourrais trouvé celà?

Merci












Avatar
Michel Gaboly
Range n'est pas une macro, mais une classe d'objets, une macro étant un programme.

Si tu veux des infos sur les objets, leurs propriétés et leurs méth odes, cela existe en standard :

Dans l'environnement VBA, Affichage/Explorateur d'objets.

En dessous du titre de la fenêtre de l'explorateur d'objets, tu as 2 li stes et des icônes ; la dernière à droite est un
point d'interrogation.

Agrandis si nécessaire cette fenêtre.
Choisis ensuite un objet dans la liste de gauche et éventuellement une propriété ou une méthode de l'objet dans la
colonne de droite.
Clique ensuite sur le point d'interrogation précédemment évoqué e t l'aide correspondante s'affichera.

NB - Si ta version d'Excel est un peu ancienne, l'aide de VBA n'est pas n écessairement installée par défaut, auquel cas
il faut recourir au CD d'install.


Je n'ai rien trouvé.

J'aimerais avoir comme un dictoinnaire des commandes de macro.
Exemple, Range veux dire quoi et il fait quoi.
Dans Misange, c'est le même site de excelabo.

Merci

Érico



"Jacky" a écrit dans le message de news:
eZZ1R6$$

Bonsoir,

AMHA tu cherches quelque chose qui n'existe pas....
Tu trouveras sur le site de Misange toutes sortes de macro, avec chacun e
sa
particularité, ou des classeurs à télécharger.
Tu as à ta disposition un menu de recherche(à gauche), clique dessu s, tu
trouveras certainement ton bonheur.

Salutations
JJ

"Érico" a écrit dans le message de
news:%23C0ydU$$

Salut,

Sur le site d'excelabo, je ne trouves la liste complet des macros.
Savez-vous où je pourrais trouvé celà?

Merci











--
Cordialement,

Michel Gaboly
www.gaboly.com



Avatar
Érico
Merci pour votre aide.

J'aimerais modifier cette macro, au lieu de rajouter des lignes, je veux
démasquer des lignes.
Personne m'avait répondu.

___________________________________
Sub DemasqueDesLignes()
' vbInformation, "Ouverture"


'MsgBox " Salut Paul! "
MsgBox " Pour démasquer des lignes... "

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 12
'Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 4
'****rouge***

Next
End If
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A7:A60")
Range("A7:A60").Select


End Sub
'-------------
'-------------
Avatar
michdenis
Bonjour Érico,

Cela pourrait ressembler à ceci :

'-------------------------
Sub AfficherColonne()

With Worksheets("Feuil1")
'Affiche toutes les colonnes entre
'la colonne A et M
.Columns("A:M").Hidden = False
'affiche toutes les lignes entre
'la ligne 5 et 25
.Rows("5:25").Hidden = False
End With

End Sub
'-------------------------


Salutations!


"Érico" a écrit dans le message de news:
Merci pour votre aide.

J'aimerais modifier cette macro, au lieu de rajouter des lignes, je veux
démasquer des lignes.
Personne m'avait répondu.

___________________________________
Sub DemasqueDesLignes()
' vbInformation, "Ouverture"


'MsgBox " Salut Paul! "
MsgBox " Pour démasquer des lignes... "

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 12
'Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 4
'****rouge***

Next
End If
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A7:A60")
Range("A7:A60").Select


End Sub
'-------------
'-------------
Avatar
Érico
Comment je met ça dans ma macro?

"michdenis" a écrit dans le message de news:
eXpNn%
Bonjour Érico,

Cela pourrait ressembler à ceci :

'-------------------------
Sub AfficherColonne()

With Worksheets("Feuil1")
'Affiche toutes les colonnes entre
'la colonne A et M
.Columns("A:M").Hidden = False
'affiche toutes les lignes entre
'la ligne 5 et 25
.Rows("5:25").Hidden = False
End With

End Sub
'-------------------------


Salutations!


"Érico" a écrit dans le message de news:

Merci pour votre aide.

J'aimerais modifier cette macro, au lieu de rajouter des lignes, je veux
démasquer des lignes.
Personne m'avait répondu.

___________________________________
Sub DemasqueDesLignes()
' vbInformation, "Ouverture"


'MsgBox " Salut Paul! "
MsgBox " Pour démasquer des lignes... "

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 12
'Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 4
'****rouge***

Next
End If
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A7:A60")
Range("A7:A60").Select


End Sub
'-------------
'-------------





Avatar
michdenis
Bonjour Érico,

Je n'en n'ai pas la moindre idée.

Ta macro insère des nouvelles lignes. Comment puis-je savoir ce que tu veux
faire exactement ?

Tu insères la macro dans le même module et tu testes différent endroit
selon ce que tu veux obtenir. Pour ce faire, tu
n'as qu'à ajouter la ligne de déclaration de la procédure "AfficherColonne"
quelque part dans ton autre procédure.


Salutations!


"Érico" a écrit dans le message de news:
Comment je met ça dans ma macro?

"michdenis" a écrit dans le message de news:
eXpNn%
Bonjour Érico,

Cela pourrait ressembler à ceci :

'-------------------------
Sub AfficherColonne()

With Worksheets("Feuil1")
'Affiche toutes les colonnes entre
'la colonne A et M
.Columns("A:M").Hidden = False
'affiche toutes les lignes entre
'la ligne 5 et 25
.Rows("5:25").Hidden = False
End With

End Sub
'-------------------------


Salutations!


"Érico" a écrit dans le message de news:

Merci pour votre aide.

J'aimerais modifier cette macro, au lieu de rajouter des lignes, je veux
démasquer des lignes.
Personne m'avait répondu.

___________________________________
Sub DemasqueDesLignes()
' vbInformation, "Ouverture"


'MsgBox " Salut Paul! "
MsgBox " Pour démasquer des lignes... "

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 12
'Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 4
'****rouge***

Next
End If
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A7:A60")
Range("A7:A60").Select


End Sub
'-------------
'-------------





Avatar
jps
heu....ligne de déclaration que tu ajoutes sans les guillemets, érico
ah, ce michel, jamais complet dans ses réponses...
jps (QC passed)

"michdenis" a écrit dans le message de
news:
Bonjour Érico,

Je n'en n'ai pas la moindre idée.

Ta macro insère des nouvelles lignes. Comment puis-je savoir ce que tu
veux

faire exactement ?

Tu insères la macro dans le même module et tu testes différent endroit
selon ce que tu veux obtenir. Pour ce faire, tu
n'as qu'à ajouter la ligne de déclaration de la procédure
"AfficherColonne"

quelque part dans ton autre procédure.


Salutations!


"Érico" a écrit dans le message de news:


Comment je met ça dans ma macro?

"michdenis" a écrit dans le message de news:
eXpNn%
Bonjour Érico,

Cela pourrait ressembler à ceci :

'-------------------------
Sub AfficherColonne()

With Worksheets("Feuil1")
'Affiche toutes les colonnes entre
'la colonne A et M
.Columns("A:M").Hidden = False
'affiche toutes les lignes entre
'la ligne 5 et 25
.Rows("5:25").Hidden = False
End With

End Sub
'-------------------------


Salutations!


"Érico" a écrit dans le message de news:

Merci pour votre aide.

J'aimerais modifier cette macro, au lieu de rajouter des lignes, je veux
démasquer des lignes.
Personne m'avait répondu.

___________________________________
Sub DemasqueDesLignes()
' vbInformation, "Ouverture"


'MsgBox " Salut Paul! "
MsgBox " Pour démasquer des lignes... "

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)


If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1
&


":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1
&


":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex 12
'Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex 4
'****rouge***

Next
End If
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A7:A60")
Range("A7:A60").Select


End Sub
'-------------
'-------------










Avatar
michdenis
Comment dites vous Sieur du Beaujolais ? Oeuf Corse !!!
;-)


Salutations!



"jps" a écrit dans le message de news:
heu....ligne de déclaration que tu ajoutes sans les guillemets, érico
ah, ce michel, jamais complet dans ses réponses...
jps (QC passed)

"michdenis" a écrit dans le message de
news:
Bonjour Érico,

Je n'en n'ai pas la moindre idée.

Ta macro insère des nouvelles lignes. Comment puis-je savoir ce que tu
veux

faire exactement ?

Tu insères la macro dans le même module et tu testes différent endroit
selon ce que tu veux obtenir. Pour ce faire, tu
n'as qu'à ajouter la ligne de déclaration de la procédure
"AfficherColonne"

quelque part dans ton autre procédure.


Salutations!


"Érico" a écrit dans le message de news:


Comment je met ça dans ma macro?

"michdenis" a écrit dans le message de news:
eXpNn%
Bonjour Érico,

Cela pourrait ressembler à ceci :

'-------------------------
Sub AfficherColonne()

With Worksheets("Feuil1")
'Affiche toutes les colonnes entre
'la colonne A et M
.Columns("A:M").Hidden = False
'affiche toutes les lignes entre
'la ligne 5 et 25
.Rows("5:25").Hidden = False
End With

End Sub
'-------------------------


Salutations!


"Érico" a écrit dans le message de news:

Merci pour votre aide.

J'aimerais modifier cette macro, au lieu de rajouter des lignes, je veux
démasquer des lignes.
Personne m'avait répondu.

___________________________________
Sub DemasqueDesLignes()
' vbInformation, "Ouverture"


'MsgBox " Salut Paul! "
MsgBox " Pour démasquer des lignes... "

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)


If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1
&


":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1
&


":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex 12
'Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex 4
'****rouge***

Next
End If
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A7:A60")
Range("A7:A60").Select


End Sub
'-------------
'-------------