Microsoft 365 Macro excel qui bug

C

Céline49

XLDnaute Junior
Bonjour,
Je créé une macro excel pour retravailler 3 bases de données pour lesquels je veux supprimer des colonnes, modifier le format des chiffres (remplacer les points par des virgules, reclasser l'ordre des colonnes, ne garder que les 4 premiers caractères d'une colonne) mais j'ai un bug certainement à plusieurs niveaux de ma macro mais j'avoue ne pas trop savoir comment procéder pour détecter d'où vient le problème.
Vous remerciant par avance pour votre aide

Je vous mets la macro ci-dessous car le fichier est trop lourd avec la macro...mais pourquoi?

Sub Modif()

Dim fl As Worksheet

'Désactiver le raffraichissement d'écran
Application.ScreenUpdating = False

'Désactiver le Calcul Automatique
Application.Calculation = xlManual



' Travailler sur la feuille Vte, Cai et Bqe
For Each fl In Worksheets

If fl.Name <> "Vte" And fl.Name <> "Cai" And fl.Name <> "Bqe" Then

'Remplacer les points par des virgules pour les colonnes G et H

Columns("G:H").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

'Supprimer colonnes inutiles
.Range("A:A,E:E").Delete

' Déplacer la colonne de "pièce"

Columns("D:D").Select
Application.CutCopyMode = False
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight

'Supprimer 1ère ligne
.Rows("1:1").Delete

End If


' Travailler sur la feuille Cai et Bqe
If fl.Name <> "Cai" And fl.Name <> "Bqe" Then


' Ne garder que les 4 premiers caractères de la colonne N° pièce (F)


'Réactiver le Calcul Automatique
Application.Calculation = xlAutomatic
'Réactiver le raffraichissement d'écran
Application.ScreenUpdating = True

End Sub
 

Pièces jointes

  • Trame écriture sans macro.xlsx
    32.1 KB · Affichages: 6
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour

Pour infos (et pour zapper les smileys ;))
VB: 
Sub Modif()

Dim fl As Worksheet

'Désactiver le raffraichissement d'écran
Application.ScreenUpdating = False

'Désactiver le Calcul Automatique
Application.Calculation = xlManual



' Travailler sur la feuille Vte, Cai et Bqe
For Each fl In Worksheets

If fl.Name <> "Vte" And fl.Name <> "Cai" And fl.Name <> "Bqe" Then

'Remplacer les points par des virgules pour les colonnes G et H

Columns("G:H").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

'Supprimer colonnes inutiles
.Range("A:A,E:E").Delete

' Déplacer la colonne de "pièce"

Columns("D:D").Select
Application.CutCopyMode = False
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight

'Supprimer 1ère ligne
.Rows("1:1").Delete

End If


' Travailler sur la feuille Cai et Bqe
If fl.Name <> "Cai" And fl.Name <> "Bqe" Then


' Ne garder que les 4 premiers caractères de la colonne N° pièce (F)


'Réactiver le Calcul Automatique
Application.Calculation = xlAutomatic
'Réactiver le raffraichissement d'écran
Application.ScreenUpdating = True

End Sub
Il suffit d'utiliser la balise BBCODE idoine ;)
(voir ma signature)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re, jmfmarques (re)

•>jmfmarques
Oui, c'est ce que je viens de dire au message#5
Mais le répéter une seconde fois est indolore...:rolleyes:

•>Céline49
Testes ton code modifié de la sorte et redis-nous
VB: 
Sub Modif_II()
Dim fl As Worksheet
'Désactiver le raffraichissement d'écran
Application.ScreenUpdating = False
'Désactiver le Calcul Automatique
Application.Calculation = xlManual
' Travailler sur la feuille Vte, Cai et Bqe
For Each fl In Worksheets
If fl.Name <> "Vte" And fl.Name <> "Cai" And fl.Name <> "Bqe" Then
'Remplacer les points par des virgules pour les colonnes G et H
fl.Columns("G:H").Replace What:=".", Replacement:=","
'Supprimer colonnes inutiles
fl.Range("A:A,E:E").Delete
' Déplacer la colonne de "pièce"
fl.Columns("D:D").Cut fl.Columns("B:B") '.Insert Shift:=xlToRight
'Supprimer 1ère ligne
fl.Rows("1:1").Delete
End If
Next
'Réactiver le Calcul Automatique
Application.Calculation = xlAutomatic
'Réactiver le raffraichissement d'écran
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
C

Céline49

XLDnaute Junior
Bonjour,
Je viens de recopier le code de Staple 1600 mais il m'applique la macro sur l'onglet "Mode opératoire" alors qu'il me semble de le code demande bien à ce qu'il soit appliquer sur les onglets "Vte", "Cai", Bqe"
Qu'est-ce qui m'échappe?
Et désolée de mon ignorance...mais c'est quoi les balises BBCODE?
Merci
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

C'est écrit dans ma signature comme je l'indiquais, non ?
Enjolivez votre code VBA : utiliser l'éditeur de code intégré
(ou les balises BBCODE suivantes: [CODE=VB]Ici le code VBA[/CODE]
Merci pour le plaisir de nos yeux
Cliquez pour agrandir...
NB: Cette fois-ci, c'est moi qui suis dans le rôle du répétiteur

Pour la macro, c'est ta macro ;)
J'ai juste ajouté fl là où cela manquait ;)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

•>Mme Th*i**ier (²)
Testé sur ton fichier exemple
VB: 
Sub Modif_III()
Const FAT As String = "VteCaiBqe"
Dim ws As Worksheet, Nfo
Nfo = Array(Array(0, 1), Array(4, 9))
Application.ScreenUpdating = False
For Each ws In Worksheets
    If InStr(1, FAT, ws.Name) > 0 Then
        With ws
            .Columns("G:H").Replace What:=".", Replacement:=",", LookAt:=2, SearchOrder:=1
            .Columns(7).TextToColumns Destination:=Range("G1"), DataType:=1
            .Columns(8).TextToColumns Destination:=Range("H1"), DataType:=1
            .Range("A:A,E:E").Delete
            .Columns("D:D").Cut
            .Columns("B:B").Insert Shift:=xlToRight
            Application.CutCopyMode = False
            .Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=2, FieldInfo:=Nfo
            .[B1] = "N° Pièce"
            .[A1].CurrentRegion.Columns.AutoFit
        End With
    End If
Next
End Sub
(²): Toujours penser à anonymiser les classeurs joints ;)
 
Vote positif 0 Vote négatif

Discussions similaires

B
  • 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
549
Eric KERGRESSE
E
L
  • Question
XL 2019 Excel - utilisation des unbound pour grande base de donnees
Réponses
11
Affichages
816
Lordpeter
L
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
Phil69970
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
ERIC S
A
  • Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
Ferbank
  • Question
XL 2019 modifier une macro
Réponses
2
Affichages
975
Ferbank
Ferbank
G
  • Résolu(e)
XL 2016 Simplifier macro rapidité
Réponses
9
Affichages
1 K
ChTi160
ChTi160
P
  • Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
GALOUGALOU
J
  • Question
XL 2016 Supprimer des lignes qui contiennent des mots d'une liste
Réponses
8
Affichages
2 K
jmgill
J
C
  • Question
XL 2013 VBA - Copier coller valeurs uniquement - Macro consolidation
Réponses
1
Affichages
1 K
sylvanu
sylvanu

Membres actuellement en ligne

3 membres et 41 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 127
Messages
2 116 534
Membres
112 771
dernier inscrit
mikadu49