Discussion :

[jpvba]

Possible avec ActiveX,

Mais essayé sans, coûte pas trop cher ... je crois que notre ami a 2010 comme version et je pense que cela pourrais peut-être fonctionné sans activeX, dû moins je présume.


Bref si cela fonction ou fonctionne pas OBADJ fais nous signe !!!

[OBADJ]

Possible avec ActiveX,

Mais essayé sans, coûte pas trop cher ... je crois que notre ami a 2010 comme version et je pense que cela pourrais peut-être fonctionné sans activeX, dû moins je présume.


Bref si cela fonction ou fonctionne pas OBADJ fais nous signe !!!

C'est à dire c'est quoi activeX je remplace par quoi redonne moi le code complet stp avec le activeX

[Menhir]

Perso, pour créer un bouton dans une feuille qui lance une macro VBA, j'utilise une simple forme en y liant une macro.
Ca le fait très bien et on a beaucoup plus de possibilités esthétiques.

[jpvba]

Rebonjour OBADJ,



Ma façon est sans les activeX,

Donc j'ai pris les codes de départ et essaye en créant le bouton tel que la photo que j'ai mis .. comme cela on va en avoir le coeur nette !!!

Par la suite on va affecter une macro et bingo en théori cela va fonctionné (en théorie)

[OBADJ]

Désolé les amis mais j'y arrive toujours pas à résoudre ce problème ...

Ps : le bouton que j'ai crée, je l'ai inséré dans une autre feuille, je pense c'est pour ca que ca bloque

[Patrice740]

Bonjour,

QUOI j'ai pas compris là ? Ça marche pour toi ?

Tu as essayé avec cette macro-là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub FormuleL1()
 
Dim d As Long
 
With Sheets("SUIVTRANS EN COURS")
    'Sheets("SUIVTRANS EN COURS").Activate
    d = .Range("A" & Rows.Count).End(xlUp).Row
 
    .Range("L3").Select
    ActiveCell.FormulaR1C1 = _
    "=IF(RC[-3]="""",""PRINCIPAL ""&MID(RC[3],9,8),IF(LEFT(RC[-3],5)=""REGLT"",""REGLT"",IF(LEFT(RC[-3],1)=""G"",""TAXE DE GESTION"",IF(LEFT(RC[-3],1)=""P"",""PRINCIPAL ""&MID(RC[3],9,8),IF(LEFT(RC[-3],1)=""R"",""RECOURS ""&MID(RC[3],9,8),IF(LEFT(RC[-3],1)=""F"",""FRAIS""))))))"
    .Range("L3").AutoFill Destination:=Range("L3:L" & d)
 
    Calculate
End With
End Sub

Tu vas peut-être trouver que je suis tatillon mais pour supprimer toute source d'erreur éventuelle liée aux héritages et aux déclarations explicites :
- remplacer Sheets par Worksheets (il n'y a pas de range dans une sheet)
- Ajouter un point devant Rows.count i.e. .Rows.count pour compter le nombre de lignes de la feuille désignée plutôt que celui de la feuille active (qui n'est pas toujours identique).
- Pour les mêmes raisons, ajoutes un point devant Range("L3:L" & d), i.e. Destination:=.Range("L3:L" & d)
- Au lieu de .Range("L3").Select puis Activecell.FormulaR1C1 = ... , écris directement .Range("L3").FormulaR1C1 = ... Le select est parfaitement inutile, d'ailleurs il te pose problème !

Ceci dit ça ne résoudra peut-être pas ton problème mais ce code sera plus propre.

Tu ne nous as toujours pas dit quel type de bouton tu utilises : ActiveX, Formulaire , Shape, ... ?
Ton fichier exemple est un xlsx donc sans macro, où se situe ta macro ? dans un autre fichier ?

[OBADJ]

Merci pour t'es précision très pertinentes !

Concernant, le type de bouton est contrôle de formulaire, ce n'est pas ActiveX.
Mon fichier, est un fichier xlsm donc avec macro et ma macro se situe bien dans VBA du fichier

[jpvba]

Essaye ça,

C'est ton fichier avec tes macro a part une modif. étant donné que ta formule est dans L2