Comparaison avec MFC qui donne des erreurs
Résolu
capeo
Messages postés
188
Statut
Membre
-
capeo Messages postés 188 Statut Membre -
capeo Messages postés 188 Statut Membre -
Bonjour,
J'ai voulu appliquer une MFC pour un fichier mais au résultat j'ai des erreurs que j'ai mis en bleu pour quelques données.
Je demande à comparer les deux listes avec la formule "=NB.SI(colonne;cellule)=0".
https://www.cjoint.com/?3Cfnke9G1G6
Pouvez m'expliquer quelle erreur j'ai commis svp ?
Cdlt
J'ai voulu appliquer une MFC pour un fichier mais au résultat j'ai des erreurs que j'ai mis en bleu pour quelques données.
Je demande à comparer les deux listes avec la formule "=NB.SI(colonne;cellule)=0".
https://www.cjoint.com/?3Cfnke9G1G6
Pouvez m'expliquer quelle erreur j'ai commis svp ?
Cdlt
A voir également:
- Comparaison avec MFC qui donne des erreurs
- Comparaison million milliard - Accueil - Technologies
- Logiciel comparaison photo gratuit - Télécharger - Photo & Graphisme
- Comparaison samsung a15 et a16 - Accueil - Téléphones
- Rose et noir donne quelle couleur - Forum Graphisme
- Détection impossible cartouche brother mfc ✓ - Forum Imprimante
2 réponses
Bonjour,
Comme tu pourras le constater, dans ma feuille il n'y a qu'une MFC alors que dans la tienne il y en avait ... un certain nombre.
https://www.cjoint.com/c/ECfnZqEfFUe
A+
Comme tu pourras le constater, dans ma feuille il n'y a qu'une MFC alors que dans la tienne il y en avait ... un certain nombre.
https://www.cjoint.com/c/ECfnZqEfFUe
A+
Bonjour
1) tu as plein de règles dans ta MFC, don certaines avec des refs non valables
2) les plages indiquées ne sont pas bonnes (A:A au lieu de B:B
Va dans Gérer les règles et supprimes toutes les règles puis tu en fais une seule avec la formule !
=si(NB.SI(B:B;A1)=0
et dans s'applique à : A:A
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
1) tu as plein de règles dans ta MFC, don certaines avec des refs non valables
2) les plages indiquées ne sont pas bonnes (A:A au lieu de B:B
Va dans Gérer les règles et supprimes toutes les règles puis tu en fais une seule avec la formule !
=si(NB.SI(B:B;A1)=0
et dans s'applique à : A:A
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
Bonjour
Je ne sais plus ou j'ai la tête
Cette formule je l'applique assez souvent. Les références venant de deux endroits, les écritures sont différentes. L'une est entrée à courir, c'est à dire sans "-" et l'autres les intègre ce qui fait que j'ai des fausses erreurs.
Y aurait il une formule ou une macro qui permettrait de faire comme la MFC, mais au lieu de colorier les données, se serait de les placés dans une autre colonne et de m'enlever ces erreurs.
Peux-tu m'aider stp ?
Encore merci
Bonne journée
Je ne sais plus ou j'ai la tête
Cette formule je l'applique assez souvent. Les références venant de deux endroits, les écritures sont différentes. L'une est entrée à courir, c'est à dire sans "-" et l'autres les intègre ce qui fait que j'ai des fausses erreurs.
Y aurait il une formule ou une macro qui permettrait de faire comme la MFC, mais au lieu de colorier les données, se serait de les placés dans une autre colonne et de m'enlever ces erreurs.
Peux-tu m'aider stp ?
Encore merci
Bonne journée
Re
Bien volontiers,
macro pour couper et copier en feuille 2 les refs de la colonne A non présentes dans la colonne B :
Bonne journée également
Bien volontiers,
macro pour couper et copier en feuille 2 les refs de la colonne A non présentes dans la colonne B :
Sub copier()
Application.ScreenUpdating = False
Dim ligne As Long
'dernière ligne remplie en colonne 1 de base
ligne = Sheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
' boucle sur les lignes
For n = 1 To ligne
si nb.si=0
If Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("B:B"), Sheets("Feuil1").Range("A" & n)) = 0 Then
' couper en A feuil1
Sheets("Feuil1").Select
Range("A" & n).Select
Selection.Cut
'incremente ligne en feuil2 et colle en feuil 2
x = x + 1
Sheets("Feuil2").Select
Range("A" & x).Select
ActiveSheet.Paste
End If
Next
Application.ScreenUpdating = True
End Sub
Bonne journée également
Dsl
j'ai oublié l'apostrophe devant la ligne de commentaire Si nb.si
Bonne macro :
j'ai oublié l'apostrophe devant la ligne de commentaire Si nb.si
Bonne macro :
Sub copier()
Application.ScreenUpdating = False
Dim ligne As Long
'dernière ligne remplie en colonne 1 de base
ligne = Sheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
' boucle sur les lignes
For n = 1 To ligne
'si nb.si = 0
If Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("B:B"), Sheets("Feuil1").Range("A" & n)) = 0 Then
' couper en A feuil1
Sheets("Feuil1").Select
Range("A" & n).Select
Selection.Cut
'incremente ligne en feuil2 et colle en feuil 2
x = x + 1
Sheets("Feuil2").Select
Range("A" & x).Select
ActiveSheet.Paste
End If
Next
Application.ScreenUpdating = True
End Sub
merci pour ta formule
Bonne journée
Cdlt