Macro ralentissant execution

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

highlander

XLDnaute Nouveau
Je pense que c'est pas cette macro qui me ralentis le classeur, elle se trouve dans Thisworkbook

Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("C4:AN42")) Is Nothing Then
For Each cell In Target
If Range("A83") = cell.Value Then
cell.Interior.ColorIndex = xlNone
ElseIf Range("A84") = cell.Value Then
cell.Interior.ColorIndex = 53
ElseIf Range("A85") = cell.Value Then
cell.Interior.ColorIndex = 4
ElseIf Range("A88") = cell.Value Then
cell.Interior.ColorIndex = 34
ElseIf Range("A87") = cell.Value Then
cell.Interior.ColorIndex = 33
ElseIf Range("A86") = cell.Value Then
cell.Interior.ColorIndex = 39
ElseIf Range("A89") = cell.Value Then
cell.Interior.ColorIndex = 25
cell.Font.ColorIndex = 2
ElseIf Range("A90") = cell.Value Then
cell.Interior.ColorIndex = 10
ElseIf Range("A99") = cell.Value Then
cell.Interior.ColorIndex = 5
cell.Font.ColorIndex = 2
ElseIf Range("A92") = cell.Value Then
cell.Interior.ColorIndex = 7
ElseIf Range("A93") = cell.Value Then
cell.Interior.ColorIndex = 12
ElseIf Range("A94") = cell.Value Then
cell.Interior.ColorIndex = 56
cell.Font.ColorIndex = 2
ElseIf Range("A95") = cell.Value Then
cell.Interior.ColorIndex = 8
ElseIf Range("A96") = cell.Value Then
cell.Interior.ColorIndex = 6
ElseIf Range("A97") = cell.Value Then
cell.Interior.ColorIndex = 9
cell.Font.ColorIndex = 2
ElseIf Range("A98") = cell.Value Then
cell.Interior.ColorIndex = 1
cell.Font.ColorIndex = 3
ElseIf Range("A91") = cell.Value Then
cell.Interior.ColorIndex = 43
ElseIf Range("A100") = cell.Value Then
cell.Interior.ColorIndex = 50
ElseIf Range("A101") = cell.Value Then
cell.Interior.ColorIndex = 38
ElseIf Range("A102") = cell.Value Then
cell.Interior.ColorIndex = 35
ElseIf Range("A103") = cell.Value Then
cell.Interior.ColorIndex = 40
ElseIf Range("A104") = cell.Value Then
cell.Interior.ColorIndex = 44
ElseIf Range("A105") = cell.Value Then
cell.Interior.ColorIndex = 14
ElseIf Range("A106") = cell.Value Then
cell.Interior.ColorIndex = 17
ElseIf Range("A107") = cell.Value Then
cell.Interior.ColorIndex = 18
ElseIf Range("A108") = cell.Value Then
cell.Interior.ColorIndex = 19
ElseIf Range("A109") = cell.Value Then
cell.Interior.ColorIndex = 22
ElseIf Range("A110") = cell.Value Then
cell.Interior.ColorIndex = 24
ElseIf Range("A111") = cell.Value Then
cell.Interior.ColorIndex = 36
ElseIf Range("A112") = cell.Value Then
cell.Interior.ColorIndex = 46
ElseIf Range("A113") = cell.Value Then
cell.Interior.ColorIndex = 47
ElseIf Range("A114") = cell.Value Then
cell.Interior.ColorIndex = 53
ElseIf Range("A115") = cell.Value Then
cell.Interior.ColorIndex = 4
ElseIf Range("A118") = cell.Value Then
cell.Interior.ColorIndex = 34
ElseIf Range("A117") = cell.Value Then
cell.Interior.ColorIndex = 33
ElseIf Range("A116") = cell.Value Then
cell.Interior.ColorIndex = 39
ElseIf Range("A119") = cell.Value Then
cell.Interior.ColorIndex = 25
cell.Font.ColorIndex = 2
ElseIf Range("A120") = cell.Value Then
cell.Interior.ColorIndex = 10
ElseIf Range("A129") = cell.Value Then
cell.Interior.ColorIndex = 5
cell.Font.ColorIndex = 2
ElseIf Range("A122") = cell.Value Then
cell.Interior.ColorIndex = 7
ElseIf Range("A123") = cell.Value Then
cell.Interior.ColorIndex = 12
ElseIf Range("A124") = cell.Value Then
cell.Interior.ColorIndex = 56
cell.Font.ColorIndex = 2
ElseIf Range("A125") = cell.Value Then
cell.Interior.ColorIndex = 8
ElseIf Range("A126") = cell.Value Then
cell.Interior.ColorIndex = 6
ElseIf Range("A127") = cell.Value Then
cell.Interior.ColorIndex = 9
cell.Font.ColorIndex = 2
ElseIf Range("A128") = cell.Value Then
cell.Interior.ColorIndex = 1
cell.Font.ColorIndex = 3
ElseIf Range("A121") = cell.Value Then
cell.Interior.ColorIndex = 43
ElseIf Range("A130") = cell.Value Then
cell.Interior.ColorIndex = 50
ElseIf Range("A131") = cell.Value Then
cell.Interior.ColorIndex = 38
ElseIf Range("A132") = cell.Value Then
cell.Interior.ColorIndex = 35
ElseIf Range("A133") = cell.Value Then
cell.Interior.ColorIndex = 40
ElseIf Range("A134") = cell.Value Then
cell.Interior.ColorIndex = 44
ElseIf Range("A135") = cell.Value Then
cell.Interior.ColorIndex = 14
ElseIf Range("A136") = cell.Value Then
cell.Interior.ColorIndex = 17
ElseIf Range("A137") = cell.Value Then
cell.Interior.ColorIndex = 18
ElseIf Range("A138") = cell.Value Then
cell.Interior.ColorIndex = 19
ElseIf Range("A139") = cell.Value Then
cell.Interior.ColorIndex = 22
ElseIf Range("A140") = cell.Value Then
cell.Interior.ColorIndex = 24
ElseIf Range("A141") = cell.Value Then
cell.Interior.ColorIndex = 36
ElseIf Range("A142") = cell.Value Then
cell.Interior.ColorIndex = 46
ElseIf Range("A143") = cell.Value Then
cell.Interior.ColorIndex = 47

End If
Next
End If
If Not Intersect(Target, Range("C4:AN42")) Is Nothing Then
For Each cell In Target
If cell = Range("B84") Then Target = Range("A84")
Cells.Replace What:=("B84"), Replacement:=("A84"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B85") Then Target = Range("A85")
Cells.Replace What:=("B85"), Replacement:=("A85"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B86") Then Target = Range("A86")
Cells.Replace What:=("B86"), Replacement:=("A86"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B87") Then Target = Range("A87")
Cells.Replace What:=("B87"), Replacement:=("A87"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B88") Then Target = Range("A88")
Cells.Replace What:=("B88"), Replacement:=("A88"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B89") Then Target = Range("A89")
Cells.Replace What:=("B89"), Replacement:=("A89"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B90") Then Target = Range("A90")
Cells.Replace What:=("B90"), Replacement:=("A90"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B91") Then Target = Range("A91")
Cells.Replace What:=("B91"), Replacement:=("A91"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B92") Then Target = Range("A92")
Cells.Replace What:=("B92"), Replacement:=("A92"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B93") Then Target = Range("A93")
Cells.Replace What:=("B93"), Replacement:=("A93"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B94") Then Target = Range("A94")
Cells.Replace What:=("B94"), Replacement:=("A94"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B95") Then Target = Range("A95")
Cells.Replace What:=("B95"), Replacement:=("A95"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B96") Then Target = Range("A96")
Cells.Replace What:=("B96"), Replacement:=("A96"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B97") Then Target = Range("A97")
Cells.Replace What:=("B97"), Replacement:=("A97"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B98") Then Target = Range("A98")
Cells.Replace What:=("B98"), Replacement:=("A98"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B99") Then Target = Range("A99")
Cells.Replace What:=("B99"), Replacement:=("A99"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B100") Then Target = Range("A100")
Cells.Replace What:=("B100"), Replacement:=("A100"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B101") Then Target = Range("A101")
Cells.Replace What:=("B101"), Replacement:=("A91"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B102") Then Target = Range("A102")
Cells.Replace What:=("B102"), Replacement:=("A102"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B103") Then Target = Range("A103")
Cells.Replace What:=("B103"), Replacement:=("A103"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B104") Then Target = Range("A104")
Cells.Replace What:=("B104"), Replacement:=("A104"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B105") Then Target = Range("A105")
Cells.Replace What:=("B105"), Replacement:=("A105"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B106") Then Target = Range("A106")
Cells.Replace What:=("B106"), Replacement:=("A106"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B107") Then Target = Range("A107")
Cells.Replace What:=("B107"), Replacement:=("A107"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B108") Then Target = Range("A108")
Cells.Replace What:=("B108"), Replacement:=("A108"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B109") Then Target = Range("A109")
Cells.Replace What:=("B109"), Replacement:=("A109"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B110") Then Target = Range("A110")
Cells.Replace What:=("B110"), Replacement:=("A110"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B111") Then Target = Range("A111")
Cells.Replace What:=("B111"), Replacement:=("A111"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B112") Then Target = Range("A112")
Cells.Replace What:=("B12"), Replacement:=("A112"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B113") Then Target = Range("A113")
Cells.Replace What:=("B113"), Replacement:=("A113"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B114") Then Target = Range("A114")
Cells.Replace What:=("B114"), Replacement:=("A114"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B115") Then Target = Range("A115")
Cells.Replace What:=("B115"), Replacement:=("A115"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B116") Then Target = Range("A116")
Cells.Replace What:=("B116"), Replacement:=("A116"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B117") Then Target = Range("A117")
Cells.Replace What:=("B117"), Replacement:=("A117"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B118") Then Target = Range("A118")
Cells.Replace What:=("B118"), Replacement:=("A118"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B119") Then Target = Range("A119")
Cells.Replace What:=("B119"), Replacement:=("A119"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B120") Then Target = Range("A120")
Cells.Replace What:=("B120"), Replacement:=("A120"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B121") Then Target = Range("A121")
Cells.Replace What:=("B121"), Replacement:=("A121"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B122") Then Target = Range("A122")
Cells.Replace What:=("B122"), Replacement:=("A122"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B123") Then Target = Range("A123")
Cells.Replace What:=("B123"), Replacement:=("A123"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B124") Then Target = Range("A124")
Cells.Replace What:=("B124"), Replacement:=("A124"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B125") Then Target = Range("A125")
Cells.Replace What:=("B125"), Replacement:=("A125"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B126") Then Target = Range("A126")
Cells.Replace What:=("B126"), Replacement:=("A126"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B127") Then Target = Range("A127")
Cells.Replace What:=("B127"), Replacement:=("A127"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B128") Then Target = Range("A128")
Cells.Replace What:=("B128"), Replacement:=("A128"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B129") Then Target = Range("A129")
Cells.Replace What:=("B129"), Replacement:=("A129"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B130") Then Target = Range("A130")
Cells.Replace What:=("B130"), Replacement:=("A130"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B131") Then Target = Range("A131")
Cells.Replace What:=("B131"), Replacement:=("A131"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B132") Then Target = Range("A132")
Cells.Replace What:=("B132"), Replacement:=("A132"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B133") Then Target = Range("A133")
Cells.Replace What:=("B133"), Replacement:=("A133"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B134") Then Target = Range("A134")
Cells.Replace What:=("B134"), Replacement:=("A134"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B135") Then Target = Range("A135")
Cells.Replace What:=("B135"), Replacement:=("A135"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B136") Then Target = Range("A136")
Cells.Replace What:=("B136"), Replacement:=("A136"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B137") Then Target = Range("A137")
Cells.Replace What:=("B137"), Replacement:=("A137"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B138") Then Target = Range("A138")
Cells.Replace What:=("B138"), Replacement:=("A138"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B139") Then Target = Range("A139")
Cells.Replace What:=("B139"), Replacement:=("A139"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B140") Then Target = Range("A140")
Cells.Replace What:=("B140"), Replacement:=("A140"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B141") Then Target = Range("A141")
Cells.Replace What:=("B141"), Replacement:=("A141"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B142") Then Target = Range("A142")
Cells.Replace What:=("B142"), Replacement:=("A142"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If cell = Range("B143") Then Target = Range("A143")
Cells.Replace What:=("B143"), Replacement:=("A143"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End If
End Sub


pensez vous que si je la met dans chaque feuille ca ira plus vite ?
et comment faire car il me pose probleme si je change le titre en
Private Sub WorkSheet_change(ByVal Sh As Object, ByVal Target As Range)
 
Trier par date Trier par votes
Re : Macro ralentissant execution

Bonjour,

essaye en modifiant comme suit :
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
'ton code
Application.EnableEvents = True
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Macro ralentissant execution

en placant le code couleur apres, ca marche mais ca continue a être tres long

j'ai essayer de le déplacer dans la feuille mais je pense que du fait que j'ai déja du code, il ne le prend pas en compte car il ne crée pas de module supplémentaire

le problème c'est que je sais pas faire
 
Vote positif 0 Vote négatif
Re : Macro ralentissant execution

oui j'avais laissé

mais maintenant ca va plus vite, je comprend pas

j'ai essayer sans aussi, ca va aussi vite

a voir si je copie le code dans chacune des feuilles si ca va pas a nouveau etre long
je te tiens au courant

en tout cas merci de prendre du temps pour m'aider
 
Vote positif 0 Vote négatif
Re : Macro ralentissant execution

Re,

pour la 2ème partie, tu aurais pu coder ainsi :
Code: 
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer, c As Range
Application.EnableEvents = False
If Not Intersect(Target, Sh.Range("C4:AN42")) Is Nothing Then
    For Each c In Target
        For i = 84 To 143
            If c = Sh.Cells(i, 2) Then Target = Sh.Cells(i, 1)
            Sh.Cells.Replace Sh.Cells(i, 2), Sh.Cells(i, 1), xlWhole, xlByRows, 0
        Next i
    Next c
End If
Application.EnableEvents = True
End Sub

A voir... pour les couleurs pas trop compris la logique...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
267
Phil69970
Phil69970
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
257
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
123
un internaute
U
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
329
jalaba
J
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
940
Dranreb
Dranreb
S
  • Question Question
XL 2016 Inversion jour / mois
Réponses
2
Affichages
449
dysorthographie
dysorthographie
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
522
CortoXls
C
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
683
sylvanu
sylvanu
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
161
lestoiles1
lestoiles1
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
331
thunder23
thunder23
T
  • Question Question
Microsoft 365 Modification formules via VBA
Réponses
1
Affichages
280
Dudu2
Dudu2
Jojo973
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
513
Jojo973
Jojo973
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
464
de_hanstrapp
D
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
468
Francky79
F
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
247
eric72
E
halecs93
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
1 K
halecs93
halecs93
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
696
Gestionnaire_rh
G
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
N
  • Résolu(e)
XL 2019 transformation de cordonnée GPS
Réponses
14
Affichages
1 K
sylvanu
sylvanu
B
  • Question Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
626
Eric KERGRESSE
E
Retour