Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probléme de Macro - Automatiser le changement de format d'une colonne

  • Initiateur de la discussion Initiateur de la discussion sokour
  • Date de début Date de début
S

sokour

XLDnaute Occasionnel
Bonjour,

Je vous expose mon probleme :
J'ai un fichier avec 2 onglets et je compares ces 2 feuilles avec la macro qui supprime les lignes similaires selon des colonnes ayant les memes critères.

Le problème est que dans l'une des onglet la colonne a changer comporte des espaces pour les chiffres et ne permet donc pas une comparaison optimale.

J'aimerai utuliser la fonction substitue en automatiser mais comme je suis début je ne vois pas comment faire.

Je vous joint ma feuille et la macro ( la colonne concernée est dans la feuille , colonne O)

Mercii
 

Pièces jointes

  • Compar.XLS
    48 KB · Affichages: 73
  • Compar.XLS
    48 KB · Affichages: 77
  • Compar.XLS
    48 KB · Affichages: 79
Trier par date Trier par votes
R

Raja

XLDnaute Accro
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Re,

Je n'ai toujours pas compris ce que tu attends comme résultat. Essaye ce code à la place :

Code: 
If Trim(F1.Cells(I, "C")) = Trim(f2.Cells(k, "O")) _
Or Trim(F1.Cells(I, "E")) = Trim(f2.Cells(k, "I")) Then

Et dis-nous si c'est le bon résultat.
 
Vote positif 0 Vote négatif
S

sokour

XLDnaute Occasionnel
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

non cela ne marches pas.

Je veux juste pour la colonne O de la feuille F : que l'espace pour les chiffres disparaisset afin de pouvoir comparer correctement les lignes .
 
Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Bonjour Sokour, Raja, PierreJean,

Le problème c'est que ce n'est pas un espace mais un caractère spécial.

En formules, tu peux le supprimer en mettant:

Code: 
=SUBSTITUE(O1;CAR(160);"")

En macro, je ne connais pas l'equivalent de CAR() que l'on ne peut pas utiliser en VBA.

@+

Gael
 
Vote positif 0 Vote négatif
R

Raja

XLDnaute Accro
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Bonjour,

Essaye ce code suivant :

Code: 
Sub comparaison()
  Application.ScreenUpdating = False
    Set F1 = Sheets("B")
    Set f2 = Sheets("F")
    For k = F1.Range("C" & "65000").End(xlUp).Row To 1 Step -1
       For j = f2.Range("i" & "65000").End(xlUp).Row To 1 Step -1
         If Val(Trim(F1.Cells(k, "C"))) = Val(Trim(f2.Cells(j, "O"))) _
            And Val(Trim(F1.Cells(k, "E"))) = Val(Trim(f2.Cells(j, "I"))) Then
            F1.Rows(k).Delete
            f2.Rows(j).Delete
         End If
       Next j
    Next k
  Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
S

sokour

XLDnaute Occasionnel
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Salut je viens d'essayer à linstant ta macro, mais le problème est toujours présent.

As tu regardé le fichier c'est un caractère spécial comme la précisé gael?

Merci
 
Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Bonjour



Ou
Code: 
Replace(Chaine, Chr(160), vbnullstring)

Ou chaine est la valeur à traiter

Donc avec le code issu du présent fil
Code: 
If F1.Cells(I, "C") =[COLOR="Red"] Replace(f2.Cells(k, "O").Text, chr(160), vbnullstring)[/COLOR] _
            And F1.Cells(I, "E") = f2.Cells(k, "I") Then
 
Vote positif 0 Vote négatif
S

sokour

XLDnaute Occasionnel
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

je suis novice, pourrait tu voir en fonction de ma macro comment insérer la partie que m'a dictée ci dessus.

(j'ai regardé ce n'est pas un espace mais bien un caractère spécial lors de l'import )
 
Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Re,

Merci VBAcrumble, j'avais un trou de mémoire pour une fonction aussi simple que Chr()

Ca devrait marcher maintenant.

@+

Gael
 
Vote positif 0 Vote négatif
S

sokour

XLDnaute Occasionnel
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Lorsque j'execute la macro avec ta modification elle bug sur ta ligne


If F1.Cells(I, "C") = Replace(f2.Cells(k, "O").Text, Chr(160), vbNullString) _
 
Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Re,

Il ne devrait pas y avoir de bug, j'ai testé chez moi et c'est OK avec le code suivant:

Code: 
Sub comparaison()
Application.ScreenUpdating = False
    Set F1 = Sheets("B")
    Set f2 = Sheets("F")
    For I = F1.Range("C" & "65000").End(xlUp).Row To 1 Step -1
       For k = f2.Range("I" & "65000").End(xlUp).Row To 1 Step -1
         If F1.Cells(I, "C") = Replace(f2.Cells(k, "O").Text, Chr(160), vbNullString) _
            And F1.Cells(I, "E") = f2.Cells(k, "I") Then
            F1.Rows(I).Delete
            f2.Rows(k).Delete
         End If
       Next k
    Next I
       
End Sub

@+

Gael
 
Vote positif 0 Vote négatif
S

sokour

XLDnaute Occasionnel
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Bonjour je reviens car je voudrais optimiser la macro :
en effet a la fin de ma macro il y a des lignes dans le montant dans une feuille est égale a la somme de 2 lignes ( colonne O ) sachant que le critere prix est le meme

Exemple

feuille b

1000 45€

feuille F

500 45€
500 45€
 
Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc
Re : Probléme de Macro - Automatiser le changement de format d'une colonne

Re

Veux_tu regarder ce qu'il se passe sur les dernieres lignes des feuilles B et F de ce fichier (lignes ajoutées avec les criteres comme tu les expose) lorsque tu lances la macro comparaison ?
 

Pièces jointes

  • Compar_b.zip
    14.2 KB · Affichages: 27
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
561
fanfan38
T
  • Question Question
XL 2016 macro pour vider le contenu d'un tableau synthese ( avant d’actualiser par les nouvelles données )
Réponses
7
Affichages
305
TooFatBoy
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
225
CS49
C
J
  • Question Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
346
jerome91
J
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
P
  • Question Question
XL 2019 Concatener le résultat d'une colonne sous conditions
Réponses
7
Affichages
492
POPPYTDB
P
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
384
CathyLD
C
J
  • Question Question
XL 2021 Créer une fonction qui renvoie le nombre de critères sélectionné dans 1 filtre
Réponses
2
Affichages
210
Johann RSW
J
R
  • Résolu(e)
XL 2019 détection de dates sur la base de 2 tableaux
Réponses
2
Affichages
505
rh.finances
R
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
551
MarineU
M
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
717
Pac41240
P
N
  • Résolu(e)
XL 2019 Automatiser la répartition des effectifs dans une feuille de calcul
Réponses
4
Affichages
649
Nasseuz
N
Y
  • Résolu(e)
XL 2016 Automatiser une macro au changement de valeur
Réponses
8
Affichages
630
YANNISE
Y
  • Résolu(e)
XL 2019 Définir un nom d'un champ lors d'une macro
2
Réponses
28
Affichages
1 K
vgendron
E
  • Question Question
XL 2021 Identifier de manières fiables les colonnes d'un fichier Excel pour une macro VBA
Réponses
2
Affichages
434
excelentille
E
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
693
Dock91
D
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
551
HANN
H
  • Question Question
Microsoft 365 RESOLU - Macro - Recherche de lignes identiques et ressortir les lignes uniques
Réponses
8
Affichages
707
Akortys
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…