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 Pourquoi ma VBA s'active pas ?

Pourquoi ma VBA s'active pas ?

3 réponses
Avatar
Julien FROGER
Bonjour,

J'ai fait un nouveau module (click droit dans la liste des feuilles excel,
insertion, module). J'ai copié ce code :

------
Dim LaCel As Range
For Each LaCel In Worksheets("Feuil1").UsedRange.Cells
LaCel.Hyperlinks.Delete
Next LaCel
----------

(c'est pour supprimer tous les liens hypertextes du fichier excel)

Mais quand j'ajoute un bouton, il ne me propose pas mon module ! D'habitude
tous mes modules commencent par un SUB... Mais là ce code que l'on m'a donné
n'a pas ca.

Qu'est ce qui cloche ?

Merci beaucoup
Signaler un problème avec ce contenu

3 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
HD
Qu'est ce qui cloche ?


Effectivement... Si tu veux puovoir associer une macro à un bouton il faut
que celle ci soit bien une " Sub "... Les " function " par exemple ne sont
pas non plus visibles...

Sub SupprHyperlinks
Dim LaCel As Range

For Each LaCel In Worksheets("Feuil1").UsedRange.Cells
LaCel.Hyperlinks.Delete
Next LaCel
End Sub
--
@+
HD

Avatar
Julien FROGER
Super !
Ca marche du tonnerre...et moi qui faisait ca à la main depuis plus d'un
an...

Une simple question de plus :
Comment rajouter une autre partie de code VBA ?

J'aimerais que au meme moment il me fasse ca :
----------
Sub mise()
'
' mise Macro
' Macro enregistrée le 14/03/2005 par Julien FROGER
'

'
Columns("A:C").Select
With Selection.Font
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
End With
Selection.Font.Italic = False
Selection.Font.Bold = False
End Sub
----------
On peut rajouter deux codes VBA ?

Merci beaucoup en tout les cas


Le 14/03/05 11:05, dans , « HD »
a écrit :

Qu'est ce qui cloche ?


Effectivement... Si tu veux puovoir associer une macro à un bouton il faut
que celle ci soit bien une " Sub "... Les " function " par exemple ne sont
pas non plus visibles...

Sub SupprHyperlinks
Dim LaCel As Range

For Each LaCel In Worksheets("Feuil1").UsedRange.Cells
LaCel.Hyperlinks.Delete
Next LaCel
End Sub



Avatar
HD
Une simple question de plus :
Comment rajouter une autre partie de code VBA ?
Copier / Coller.... Pour être rapide : Ctrl + C du code à prendre et Ctrl

+ V à l'endroit où tu veux la suite du code...

ça te donnerait ça avec le code précédent :

Sub SupprHyperlinks
Dim LaCel As Range

For Each LaCel In Worksheets("Feuil1").UsedRange.Cells
LaCel.Hyperlinks.Delete
Next LaCel

Columns("A:C").Select
With Selection.Font
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
End With
Selection.Font.Italic = False
Selection.Font.Bold = False
End Sub

--
@+
HD